<option value="" selected >--â»Ã´àÅ×Í¡ ÅѡɳЧҹ--</option>
<%
strsql1 = "Select * from Helpdesk_Job_type "
Set rsjobtype = Conn_helpdesk.execute(strsql1)
do until rsjobtype.eof
response.write"<option value ="""&rsjobtype("Job_Id")&""">"&rsjobtype("Type_Detail")&"</option>"
rsjobtype.movenext
loop
Sub ValidateTimeOut
if (request.Form.Item("text_HH_out")>= 0 and _
request.Form.Item("text_HH_out")<= 23 )and _
(request.Form.Item("text_MM_out")>= 0 and _
request.Form.Item("text_MM_out")<= 59)and _
(request.Form.Item("text_SS_out")>= 0 and _
request.Form.Item("text_SS_out")<= 59) Then
else
Response.Write ("¤Ø³¡ÃÍ¡¢éÍÁÙÅàÇÅÒ¼Ô´")
End if
End Sub
Dim TimeStringIn
if (Request.Form.Item("text_HH_in") = ""OR _
Request.Form.Item("text_MM_in") = ""OR _
Request.Form.Item("text_SS_in") = "" OR _
Request.Form.Item("text_HH_out") = ""OR _
Request.Form.Item("text_MM_out") = ""OR _
Request.Form.Item("text_SS_out") = "" )Then
%>
IF (not IsNumeric (text_HH_in)) OR _
(not IsNumeric (text_MM_in)) OR _
(not IsNumeric (text_SS_in)) OR _
(not IsNumeric (text_HH_out)) OR _
(not IsNumeric (text_MM_out)) OR _
(not IsNumeric (text_SS_out))Then
Response.Write("<p>¡ÃسҡÃÍ¡¢éÍÁÙÅà»ç¹µÑÇàÅ¢à·èÒ¹Ñé¹</p>")
Else
Call ValidateTimeIn
call ValidateTimeOut
End if
Response.Write(TimeStringIn)
Response.Write("<p>-----------------------------------------------------</p>"&TimeStringout)
End if
%>
<option value="" selected >--â»Ã´àÅ×Í¡ ª×è;¹Ñ¡§Ò¹--</option>
<%
strsql = "Select CODE , NAME , DEPT , STATWORK from EMPMONTH where DEPT = 'IT001' and STATWORK = 'A' "
Set rs1 = Conn_helpdesk.execute(strsql)
do until rs1.eof
response.write"<option value ="""&rs1("CODE")&""">"&rs1("NAME")&"</option>"
rs1.movenext
loop
<option value="" selected >--â»Ã´àÅ×Í¡ ª×è;¹Ñ¡§Ò¹--</option>
<%
strsql = "Select CODE , NAME , DEPT , STATWORK from EMPMONTH where DEPT = 'IT001' and STATWORK = 'A' "
Set rs1 = Conn_helpdesk.execute(strsql)
do until rs1.eof
response.write"<option value ="""&rs1("CODE")&""">"&rs1("NAME")&"</option>"
rs1.movenext
loop