watch_order.htm

来自「全方面的OA管理程序代码」· HTM 代码 · 共 186 行

HTM
186 行
字号 

<!--#include file="../inc/Secure.htm"-->
<%dim ThisKey
ThisKey = "g"
%>
<!--#include file="../inc/permission.htm"-->
<!--#include file="../inc/conn.htm"-->
<!--#include file="../inc/dbtools.htm"-->
<HTML>
<HEAD>
<TITLE>  </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>

<BODY BGCOLOR="#FFFFFF">
<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)%>&nbsp;</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" size=12 readonly class="input"></td>
<td colspan=2>安排部门：<input type="text" name="DepartmentName" size=16 readonly class="input"></td>
</tr>
<tr>
<td>安排用户：</td><td colspan=3><%options "WatchID","tblUser","name",0%></td>
</tr>
<tr>
	<td width=100>值班开始时间：</td>
	<td width=60><input type="text" name="StartTime_y" 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" 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>&nbsp;</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>
<!--#include file="../inc/conn_close.htm"-->
<%
Function GetTableValue(TableName,Field,ValueField,Value)
	if TableName<>"" and Value<>"" then
		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()
	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 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
%>

watch_order.htm - 源码说明

本页面展示了「全方面的OA管理程序代码」中的 watch_order.htm 源码文件，采用 HTM 编程语言编写，共 186 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与方面相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?