📄 watch_order.asp
字号:
<%dim ThisKey
ThisKey = "g"
%>
<!--#include file="../conn.asp"-->
<!--#include file="../dbtools.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<%
Set oconn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
oconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username='" & oabusyusername&"'"
rs.open sql,oconn,1
allow_human_manage=rs("allow_human_manage")
oconn.close
set oconn=nothing
set rs=nothing
if allow_human_manage<>"yes" then
response.write("<font color=red size=""+1"">对不起，需要人员管理权限！</font>")
response.end
end if
%>
<HTML>
<HEAD>
<TITLE> </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="main.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
session("empid")=request.Cookies("oabusyuserid")
LoginID=trim(session("EmpId"))
if LoginID="" then response.end
department=trim(request("department"))
if department="" then department=0
selectdate=trim(request("SelectDate"))
if selectdate="" then selectdate=date()
if request("cmdUp")<>"" then
CreateID=trim(request("CreateID"))
CreateName=trim(request("CreateName"))
body=trim(request("body"))
WatchID=trim(request("watchID"))
WatchName=GetTableValue("userinf","Name","ID",WatchID)
Department=trim(request("Department"))
StartTime_y=trim(request("StartTime_y"))
StartTime_h=trim(request("StartTime_h"))
StartTime_m=trim(request("StartTime_m"))
EndTime_y=trim(request("EndTime_y"))
EndTime_h=trim(request("EndTime_h"))
EndTime_m=trim(request("EndTime_m"))
if StartTime_y="" then startTime_y=date()
if EndTime_y="" then EndTime_y=date()
StartTime=StartTime_y &" "& StartTime_h & StartTime_m
EndTime=EndTime_y&" "& EndTime_h & EndTime_m
if cdate(StartTime)>=cdate(EndTime) then
response.write "<font color=red>结束时间不能小于开始时间。<a href='javascript:history.back(-1);'>[返回]</a></font>"
'oconn.close
response.end
end if
if WatchName="" then
response.write "<font color=red>值班人不能为空。<a href='javascript:history.back(-1);'>[返回]</a></font>"
'oconn.close
response.end
end if
'set rs=server.createobject("adodb.recordset")
'sql="select * from tblwatch where department="& department &" and EndTime>'"& StartTime &"' and 'StartTime<'"& EndTime &"'"
'rs.open sql,oConn
'if not rs.eof then
' response.write "该部门这段时间内已经安排有人值班，请重新选择，谢谢！<a href='javascript:history.back(-1);'>[返回]</a>"
' oConn.close
' response.end
'else
AddData()
response.write "您的安排已经提交，谢谢！<a href=watch_index.asp?selectdate="&selectdate&">[返回]</a>"
'oConn.close
response.end
'end if
end if
%>
<div align=center>
<table border=1 cellpadding=3 cellspacing=0 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
<td>现已安排的值班人员</td>
<td><%=GetWatch(Department,selectdate)%> </td>
</tr>
</table>
<form name="OrderForm" method="post" action="">
<table border=1 cellpadding=3 cellspacing=0 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
<td width=100>登陆用户：</td>
<td width=50><input type="text" name="CreateName" value="<%=GetTableValue("Userinf","Name","ID",LoginID)%>" size=12 readonly class="input"></td>
<td colspan=2>安排部门：<input type="text" name="DepartmentName" value="<%=GetTableValue("dept","dept","ID",department)%>" size=16 readonly class="input"></td>
</tr>
<tr>
<td>安排用户：</td><td colspan=3><%options "WatchID","Userinf","name",0%></td>
</tr>
<tr>
<td width=100>值班开始时间：</td>
<td width=60><input type="text" name="StartTime_y" value="<%=selectdate%>" size=10 class="input"></td>
<td width=50>
<select name="StartTime_h">
<option value="0:">0时</option>
<option value="1:">1时</option>
<option value="2:">2时</option>
<option value="3:">3时</option>
<option value="4:">4时</option>
<option value="5:">5时</option>
<option value="6:">6时</option>
<option value="7:">7时</option>
<option value="8:">8时</option>
<option value="9:">9时</option>
<option value="10:">10时</option>
<option value="11:">11时</option>
<option value="12:">12时</option>
<option value="13:">13时</option>
<option value="14:">14时</option>
<option value="15:">15时</option>
<option value="16:">16时</option>
<option value="17:">17时</option>
<option value="18:">18时</option>
<option value="19:">19时</option>
<option value="20:">20时</option>
<option value="21:">21时</option>
<option value="22:">22时</option>
<option value="23:">23时</option>
</select>
</td>
<td>
<select name="StartTime_m">
<option value="00">00分</option>
<option value="30">30分</option>
</select>
</td>
</tr>
<tr>
<td width=100>终了时间：</td>
<td width=60><input type="text" name="EndTime_y" value="<%=selectdate%>" size=10 class="input"></td>
<td width=50>
<select name="endTime_h">
<option value="0:">0时</option>
<option value="1:">1时</option>
<option value="2:">2时</option>
<option value="3:">3时</option>
<option value="4:">4时</option>
<option value="5:">5时</option>
<option value="6:">6时</option>
<option value="7:">7时</option>
<option value="8:">8时</option>
<option value="9:">9时</option>
<option value="10:">10时</option>
<option value="11:">11时</option>
<option value="12:">12时</option>
<option value="13:">13时</option>
<option value="14:">14时</option>
<option value="15:">15时</option>
<option value="16:">16时</option>
<option value="17:">17时</option>
<option value="18:">18时</option>
<option value="19:">19时</option>
<option value="20:">20时</option>
<option value="21:">21时</option>
<option value="22:">22时</option>
<option value="23:">23时</option>
</select>
</td>
<td>
<select name="endTime_m">
<option value="00">00分</option>
<option value="30">30分</option>
</select>
</td>
</tr>
<tr>
<td>值班内容描述</td>
<td colspan=3>
<textarea name="body" cols=50 rows=5>
</textarea>
</td>
</tr>
<tr>
<td> </td>
<td colspan=3 align=center>
<INPUT TYPE="submit" name="cmdUp" value="确 定" class="font9boldwhite">
<INPUT TYPE="button" name="cmdreturn" value="返 回" class="font9boldwhite" onclick="javascript:history.back(-1);">
</td>
</tr>
</table>
<INPUT TYPE="hidden" name="CreateID" value="<%=LoginID%>">
<INPUT TYPE="hidden" name="Department" value="<%=Department%>">
</form>
</div>
</BODY>
</HTML>
<%
Function GetTableValue(TableName,Field,ValueField,Value)
if TableName<>"" and Value<>"" then
Set oconn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
oconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
Set RsTmp = Server.Createobject("Adodb.recordset")
strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"="& Value &""
Rstmp.open strSql,oConn,1,1
If not Rstmp.eof then
GetTableValue=trim(Rstmp(Field))
else
GetTableValue=""
end if
Rstmp.close
'set RsTmp = Nothing
else
GetTableValue=""
end if
End Function
Sub AddData()
Set oconn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
oconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
sql=" INSERT INTO tblwatch(CreateID,watchID,Department,CreateName,WatchName,StartTime,EndTime,body) VALUES(" & CreateID & _
","& watchId & _
","& Department & _
",'"& CreateName & _
"','"& WatchName & _
"','"& StartTime & _
"','"& EndTime & _
"','"& body & _
"');"
'response.write sql
oconn.execute (sql)
end sub
private function GetWatch(byval Department,byval times)
Set oconn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../../db/#sdoa.asa")
oconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set rstmp=server.createobject("Adodb.recordset")
sql="select * from tblwatch where Starttime<=#"& times&" 23:30:00" &"# and EndTime>=#"& times &"# and Department="& Department
rstmp.open sql,oConn
if not rstmp.eof then
GetWatch=""
while not rstmp.eof
if GetWatch="" then
GetWatch=GetWatch& trim(rstmp("WatchName"))&"（<font color=red>"&trim(rstmp("StartTime"))&"——"&trim(rstmp("endTime"))&"</font>）"
else
GetWatch=GetWatch&"<BR>"& trim(rstmp("WatchName"))&"（<font color=red>"&trim(rstmp("StartTime"))&"——"&trim(rstmp("endTime"))&"</font>）"
end if
rstmp.movenext
wend
else
GetWatch="未安排"
end if
rstmp.close
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -