[ASK] ASP CLASSIC

koleksi14

26-11-2013 10:58

[ASK] ASP CLASSIC

Permisi gan,, newbie numpang nanya seputar coding ASP Classic
mohon maaf sebelumnya kalo salah kamar emoticon-Malu (S)

Jadi gini gan ane buat aplikasi web attendance report
seperti gambar dibawah ini

Spoiler for ss web:

dari gambar tersebut
ada kolom DAY
isi dari kolom day itu ada Saturday dan Sunday yang ane beri warna merah muda utk saturday & warna merah utk sunday,
kolom day itu syntax nya ane ambil dari query.
Utk table sendiri ane pake BOOTSTRAP 2.x.x

Yang ane mau tanyain bagaimana syntax kodingnya jika kolom DAY berisi saturday & sunday maka baris (TR)saturday dan sunday mempunyai warna yang ane inginkan?? emoticon-Bingung (S)

Berikut full koding web menggunakan ASP Classic emoticon-Smilie

Spoiler for coding:

Code:



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/dbhris.asp" -->

<% Server.ScriptTimeout = 360%> 

<%

 Set Absensi1 = Server.CreateObject("ADODB.Recordset")

 Absensi1.ActiveConnection = GetRows_cnn_Absensi

 Absensi1.source="SELECT '' AS [Emp No.],'' AS [AC No.],'' AS [Name], '' AS [Department], " &_

 " CONVERT(VARCHAR(10),date, 101) as Date, datename(dw,date) as [Day], '' AS [Timetable],'' AS [On Duty], " &_ 

 " '' as [Off Duty], '' as [Clock In], "&_ 

 " '' as [Clock Out], '' as [LD],'' as [LDI],"&_ 

 " '' as [Exception],'' as [OT Wk],'' as [OT Hy] "&_

 "FROM dbo.ExplodeDates('"& request.form("txtdate1") &"', '"& request.form("txtdate2") &"')"



 Absensi1.CursorType = 0

 Absensi1.CursorLocation = 2

 Absensi1.LockType = 1

 Absensi1.Open()

%>



<%

 Set AbsensiName = Server.CreateObject("ADODB.Recordset")

 AbsensiName.ActiveConnection = GetRows_cnn_Absensi

 AbsensiName.source="select a.name, b.deptname " &_ 

 "from dbo.userinfo as a inner join dbo.departments as b on a.defaultdeptid = b.deptid"

 AbsensiName.CursorType = 0

 AbsensiName.CursorLocation = 2

 AbsensiName.LockType = 1

 AbsensiName.Open()

%>



<!DOCTYPE html>

<html lang="en">

<head>

 <meta charset="utf-8">

 <title>PT. Bima Bisalloy - Human Resource Information System</title>

 <meta name="viewport" content="width=device-width, initial-scale=1.0">

 <meta name="description" content="">

 <meta name="author" content="">

[removed]

var txt="PT. Bima Bisalloy - Human Resource Information System | ";

var kecepatan=1000;var segarkan=null;function bergerak() { document.title=txt;

txt=txt.substring(1,txt.length)+txt.charAt(0);

segarkan=setTimeout("bergerak()",kecepatan);}bergerak();

[removed]







 <!--link rel="stylesheet/less" href="less/bootstrap.less" type="text/css" /-->

 <!--link rel="stylesheet/less" href="less/responsive.less" type="text/css" /-->

 <!--script src="js/less-1.3.3.min.js">[removed]

 <link href="css/bootstrap-responsive.min.css" rel="stylesheet">

 <link href="css/style.css" rel="stylesheet">

 <link href="css/bootstrap-combobox.css" rel="stylesheet">

 <link href="navbar-fixed-top.css" rel="stylesheet">



<!-- Load jQuery UI CSS -->

 

 <!-- HTML5 shim, for IE6-8 support of HTML5 elements -->

 <!--[if lt IE 9]>

 [removed][removed]

 <![endif]-->



 <!-- Fav and touch icons -->

 <link rel="apple-touch-icon-precomposed" sizes="144x144" href="img/apple-touch-icon-144-precomposed.png">

 <link rel="apple-touch-icon-precomposed" sizes="114x114" href="img/apple-touch-icon-114-precomposed.png">

 <link rel="apple-touch-icon-precomposed" sizes="72x72" href="img/apple-touch-icon-72-precomposed.png">

 <link rel="apple-touch-icon-precomposed" href="img/apple-touch-icon-57-precomposed.png">

 <link rel="shortcut icon" href="img/faviconBB.png">

 

 [removed][removed]

 [removed][removed]

 [removed][removed]

 [removed][removed]



 <link rel="stylesheet" href="css/jquery-ui-1.9.1.custom.min.css">



 [removed]

 $(document).ready(function(){

 

/*Default Functionality*/

 $("#datepicker1").datepicker({

 changeMonth: true,

 changeYear: true,

 showButtonPanel: true,

 maxDate: "0D",

 dateFormat: "mm/dd/yy"

 });

 $("#datepicker1").datepicker("option","showAnim","blind");

 /*Animation*/

 $("#datepicker2").datepicker({

 changeMonth: true,

 changeYear: true,

 showButtonPanel: true,

 minDate: -360,

 maxDate: "0D",

 dateFormat: "mm/dd/yy"

 }); //init

 $("#datepicker2").datepicker("option","showAnim","blind");

 /*

 opsi bounce bisa diganti macam2 animasinya

 opsi animasinya : show,slideDown,fadeIn,blind,bounce,clip,drop,fold,slide

 */

 });

 [removed]

 

</head>

<body> 

<div class="container"> 

 <div class="row"> 

 <div class="span12"> 

 <div class="row"> 

 <div class="span12"> </div>

 </div>

 <div class="navbar"> 

 <div class="navbar-inner"> 

 <div class="container-fluid"> <a data-target=".navbar-responsive-collapse" data-toggle="collapse" class="btn btn-navbar"> 

 <span class="icon-bar"></span><span class="icon-bar"></span> <span class="icon-bar"></span></a> 

 <a href="#" class="brand">Human Resource Information System</a> 

 <div class="nav-collapse collapse navbar-responsive-collapse"> 

 

 <ul class="nav">

 <li > <a href="#">Home</a> </li>

 <li class="dropdown" > <a data-toggle="dropdown" class="dropdown-toggle" href="#">Attendance 

 system<strong class="caret"></strong></a> 

 <ul class="dropdown-menu">

 <li class="active"> <a href="#">Attendance Report</a> </li>

 <li class="divider"> </li>

 <li> <a href="#">Update your attendance</a> </li>

 <li> <a href="#">Update your overtime</a> </li>

 </ul>

 <li> <a href="#">Logout</a> </li></li>

 

 </ul>

 </div>

 </div>

 </div>

 </div>

 <ul class="breadcrumb">

 <li> <a href="#">Home</a> <span class="divider">/</span> </li>

 <li> <a href="#">Attendance System</a> <span class="divider">/</span> 

 </li>

 <li class="Active"> Attendance Report </li>

 </ul>

 <form name="form1" method="post" action="AttendanceReport.asp">

 

 <fieldset>

 <legend>Attendance Report</legend>

 <!-- <label>Department </label>

 <select class="combobox input" name="cmbDept" >

 <option value="">Choose a Department</option>

 

 </select>

 -->

 

 <label><i class="icon-user"></i> Name </label>

 <select class="combobox input-small" name="cmbName" >

 <option value="">Select Name</option>

 <% do until AbsensiName.EOF

 response.write("<option")

 if AbsensiName.fields(0)=cmbname then

 response.write("selected")

 end if

 response.write(">")

 response.write(AbsensiName.fields("name"))

 AbsensiName.MoveNext

 loop

 AbsensiName.Close

 set AbsensiName=Nothing %>

 </select>



 <label> <i class="icon-calendar"></i> Time Range </label>

 <input type="text" id="datepicker1" name="txtdate1"size="10" placeholder="Date Start" class="span2" readonly="">

 <em> - </em>

 <input type="text" id="datepicker2" name="txtdate2"size="10" placeholder="Date End" class="span2" readonly="">

 <input type="hidden" name="submity" value="y"> 

 </fieldset>

 <fieldset>

 

 <button type="submit" class="btn btn-primary"> Submit</button>

 </fieldset>

 </form>

 <% if request.Form("submity") = "y" then %>

 

 <table width="100%" class="table table-bordered" >

 <tr bgcolor="#EEEEEE"> 

 <div align="center"> 

 <%for each x in Absensi1.Fields

 'kolom field absensi1

 response.write ("<th> <b><font color=black size=1>" & x.name & "</th> </font>") 

next%>

 </div>

 </tr>

 <% 

 

 dim Absensi2

 Set Absensi2 = Server.CreateObject("ADODB.Recordset")

 Absensi2.ActiveConnection = GetRows_cnn_Absensi

 dim i

 do until Absensi1.EOF

 Absensi2.source = "SELECT TOP (1) a.USERID, a.SSN, a.Name, b.DEPTNAME, d.NAME AS Timetable, e.STARTDATE, e.ENDDATE, "&_

 " CONVERT(VARCHAR(5), f.starttime, 108), CONVERT(VARCHAR(5), f.endtime, 108), " &_ 

 "(SELECT TOP (1) CONVERT(VARCHAR(5), CHECKTIME, 108) AS Expr1 "&_

 "FROM dbo.CHECKINOUT AS c "&_

 "WHERE (CONVERT(VARCHAR(10), CHECKTIME, 101) = '"& Absensi1.Fields(4).value &"') AND (USERID = a.USERID) "&_

 "ORDER BY CHECKTIME) AS ClockIn, "&_

 "(SELECT TOP (1) CONVERT(VARCHAR(5), CHECKTIME, 108) AS Expr2 "&_

 "FROM dbo.CHECKINOUT AS c "&_

 "WHERE (CONVERT(VARCHAR(10), CHECKTIME, 101) = '"& Absensi1.Fields(4).value &"') AND (USERID = a.USERID) "&_

 "ORDER BY CHECKTIME DESC) AS ClockOut "&_

 

 "FROM dbo.USERINFO AS a INNER JOIN "&_

 "dbo.DEPARTMENTS AS b ON a.DEFAULTDEPTID = b.DEPTID INNER JOIN "&_

 "dbo.NUM_RUN AS d INNER JOIN dbo.USER_OF_RUN AS e ON d.NUM_RUNID = e.NUM_OF_RUN_ID ON a.USERID = e.USERID "&_

 "INNER JOIN dbo.NUM_RUN_DEIL as f ON d.NUM_RUNID = f.num_runid " &_ 

"WHERE (a.Name LIKE '%" & request.form("cmbName") &"%') AND (e.STARTDATE <= '"& Absensi1.Fields(4).value &"') AND (e.ENDDATE >= '"& Absensi1.Fields(4).value &"') "&_

"ORDER BY e.STARTDATE DESC"







 Absensi2.CursorType = 0

 Absensi2.CursorLocation = 2

 Absensi2.LockType = 1

 Absensi2.Open()

 

 do until absensi2.EOF%>

 [color=blue] <tr>

 <%

 i = 0

 for each y in Absensi1.Fields%>

 <td><font color=black size=1> 

 <%

 'kolom / field di table (TD)

 select case i 

 case 0 'Emp No

 Response.Write(absensi2.Fields(0).value)

 case 1 'Acc No

 Response.Write(absensi2.Fields(1).value)

 case 2 'name <a href='UpdateAttendance.asp'>

 Response.Write "<b><font color=#0000FF size=1><a title= 'Edit Attendance'>" &(absensi2.Fields(2).value)& "</font></b></a>"

 case 3'deptname

 Response.Write(absensi2.Fields(3).value)

 case 4'explode date

 Response.Write(y.value)

 case 5 ' day

 Response.Write(y.value)

 case 6'timetable

 Response.Write(absensi2.Fields(4).value)

 case 7 'on duty

 Response.Write(absensi2.Fields(7).value)

 case 8'off duty

 Response.Write (absensi2.Fields(8).value)

 case 9 'Clock In

 Response.Write(absensi2.Fields(9).value)

 case 10 'Clock out

 Response.Write(absensi2.Fields(10).value)

 

 'case 11'Lambat datang

 'Response.Write("Lambat Datang")

 'case 12'Lambat datang izin

 'Response.Write("Lambat Datang Izin")

 

 

 end select%>

 </div></td>

 <%

 i = i + 1

 next 

 absensi2.movenext%>

 </font>

 </tr>[/color]

 <%

 loop

 absensi2.close

 Absensi1.MoveNext

loop



Absensi1.close

GetRows_cnn_Absensi.close

%>

 </table>

 <% end if %>

 

 <div class="pagination pagination-centered"> 

 <ul>

 <li> <a href="#">Prev</a> </li>

 <li> <a href="#">1</a> </li>

 <li> <a href="#">2</a> </li>

 <li> <a href="#">3</a> </li>

 <li> <a href="#">4</a> </li>

 <li> <a href="#">5</a> </li>

 <li> <a href="#">Next</a> </li>

 </ul>

 </div>

 

 </div>

 </div>

 </div>

 </div>

</div>

</body>



 [removed][removed]

 [removed]

 //<![CDATA[

 $(document).ready(function(){

 $('.combobox').combobox()

 });

 //]]>

 [removed]

</html>

Mohon pencerahannya yag gan emoticon-I Love Kaskus (S)

Diubah oleh koleksi14 26-11-2013 11:10

1.1K

Kutip

Balasan

Komentar yang asik ya

Komunitas Pilihan