?? writelog.asp
字號:
<%response.expires=-1%>
<!--#include file="../conn.asp"-->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="main.css">
</HEAD>
<%
selectdate=date()
session("empid")=session("oabusyuserid")
LoginID=trim(session("EmpId"))
if LoginID="" then response.end
if request("cmdUp")<>"" then
WriteID=trim(request("WriteID"))
WriteName=trim(request("WriteName"))
body=trim(request("body"))
Title=trim(request("Title"))
Department=trim(request("Department"))
if Title="" then
response.write "記錄日志主題不能為空。<a href='javascript:history.back(-1);'>[返回]</a>"
oconn.close
response.end
end if
AddData()
response.write "您的安排已經提交，謝謝！<a href=watch_index.asp>[返回]</a>"
oConn.close
response.end
end if
set rs=server.createobject("Adodb.recordset")
sql="select * from tblWatch where WatchID="& LoginID &" and Starttime<=#"& selectdate&" 23:30:00" &"# and EndTime>=#"& selectdate &"# Order by ID desc"
'sql語句中時間用#
rs.open sql,oConn
if not rs.eof then
isWatch=true
WatchOrderID=trim(rs("ID"))
Department=trim(rs("Department"))
else
isWatch=false
end if
rs.close
set rs=nothing
%>
<BODY BGCOLOR="#FFFFFF">
<div align=center>
<table border=1 cellpadding=3 cellspacing=0 width="95%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
<td colspan=4 align=center><b>填寫值班記錄/日志</b></td>
</tr>
<%if isWatch then%>
<form name="OrderForm" method="post" action="">
<tr>
<td width=80>填寫用戶：</td>
<td><input type="text" name="WriteName" value="<%=GetTableValue("Userinf","Name","ID",LoginID)%>" size=16 readonly class="input"></td>
<td width=80>安排部門：</td>
<td><input type="text" name="DepartmentName" value="<%=GetTableValue("dept","dept","ID",department)%>" size=16 readonly class="input"></td>
</tr>
<tr>
<td>記錄填寫時間</td>
<td colspan=3><input type="text" name="Times" value="<%=now%>" size=16 readonly class="input"></td>
</tr>
<tr>
<td>記錄日志主題</td>
<td colspan=3><input type="text" name="Title" value="" size=40 class="input"></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>
<INPUT TYPE="hidden" name="WriteID" value="<%=LoginID%>">
<INPUT TYPE="hidden" name="Department" value="<%=Department%>">
</form>
<%else%>
<tr>
<td colspan=4>您今天沒有安排值班，不能填寫值班記錄。<a href="javascript:history.back(-1);">[返回]</a></td>
</tr>
<%end if%>
</table>
</div>
</BODY>
</HTML>
<%
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 tblwatchlog(WriteID,Department,WriteName,Title,body) VALUES(" & WriteID & _
","& Department & _
",'"& WriteName & _
"','"& Title & _
"','"& body & _
"');"
'response.write sql
oConn.execute (sql)
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -