📄 putout_things.asp
字号:
<%response.expires=0%>
<!--#include file="../asp/sqlstr.asp"-->
<%
'session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
'if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
'if dbsort="accessdsn" then conn.Open "DSN=" & DBPath
'if dbsort="access" then conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'if dbsort="sqlserver" then conn.Open "DSN=" & DBPath & ";uid=wsw;pwd=wsw"
DBPath1=server.mappath("../db/jzud-oa.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
'end if
set opendb=session(sessionname)
end function
%>
<!--#include file="../asp/bgsub.asp"-->
<!--#include file="../asp/keepformat.asp"-->
<!--#include file="setpopedom.asp"-->
<!--#include file="../asp/sendeventemail.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserid=request.cookies("oabusyuserid")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" or oabusyuserid="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='default.asp';")
response.write("</script>")
response.end
end if
errstr=getpopedom("allow_manage_workthings",oabusyusername)
if errstr<>"" then
response.redirect "../asp/disperrorinfo.asp?errorinfo="&errstr
response.end
end if
on error resume next
set conn=opendb("oabusy","conn","accessdsn")
sendemailok=""
if request.form("sendemail")="通知对方" then
userid=request.form("userid")
emailtitle="您好，请到"&oabusyname&"处领取办公用品！"
errstr="对不起，发送邮件出错，请重试！"
errinfostr=send_event_email(emailtitle,oabusyuserid,userid,"",errstr)
if errinfostr<>"" then
conn.close
response.redirect "../asp/disperrorinfo.asp?errorinfo="&errinfostr
response.end
else
sendemailok="<center><font color=""#0000ee"">通知邮件已发送给"&request.form("name")&"！<font>"
end if
end if
if request.form("ok")=" 提交 " then
recordnumber=request.form("recordnumber")
set rs2=server.createobject("adodb.recordset")
sql="select workthings_userthings.ID from workthings_userthings,workthings_type where workthings_userthings.recordid="&recordnumber&" and workthings_type.autoid=workthings_userthings.workthingsid"
rs2.open sql,conn,1
nowtime=cstr(date())&" "&cstr(time())
do while not rs2.eof
numbervalue=request.form("T"&cstr(rs2("ID")))
if numbervalue="" then numbervalue="0"
sql1="update workthings_userthings set putoutfactnumber="&numbervalue&" where ID="&rs2("ID")
conn.execute(sql1)
rs2.movenext
loop
sql2="update workthings_use set putoutusername='"&oabusyname&"',writetabletime=#"&nowtime&"# where autoid="&recordnumber
conn.execute(sql2)
set rs2=nothing
if err.number<>0 then
conn.rollbacktrans
conn.close
response.redirect "../asp/disperrorinfo.asp?errorinfo=对不起，填写办公用品发放表出错！"
response.end
else
conn.committrans
end if
end if
if request.form("deltable")="删除领用表" then
id=request.form("recordnumber")
sql="delete from workthings_use where autoid="&id
conn.execute(sql)
sql="delete from workthings_userthings where recordid="&id
conn.execute(sql)
if err.number<>0 then
conn.rollbacktrans
conn.close
response.redirect "../asp/disperrorinfo.asp?errorinfo=对不起，删除领用表出错！"
response.end
else
conn.committrans
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from workthings_use,userinf where workthings_use.putoutusername='' and (workthings_use.auditingflag=false or (workthings_use.auditingflag=true and workthings_use.alreadyauditing=true)) and workthings_use.writeuserid=userinf.ID"
rs.open sql,conn,1
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="expires" content="no-cache">
<title>发放办公用品</title>
<link rel="stylesheet" type="text/css" href="../css/css.css">
<script language="vbscript">
sub checkkey()
if window.event.keyCode >57 or window.event.keyCode <48 then
window.event.keyCode=0
end if
end sub
</script>
</head>
<body topmargin="5" leftmargin="5">
<%
%>
<center>
<table align="center">
<tr>
<td><b>发放办公用品</b>（<font color="#ee0000">请先审核后单击“通知对方”按钮通知对方领取办公用品！）</font></td>
</tr>
</table>
</center>
<%
if sendemailok<>"" then
response.write(sendemailok)
end if
if rs.eof and rs.bof then
set rs=nothing
%>
<p><p>
<center><font color="#ee0000" size="+1">现在不需要发放办公用品！</font></center>
<%
else
do while not rs.eof
set rs1=server.createobject("adodb.recordset")
sql1="select * from workthings_userthings,workthings_type where workthings_userthings.recordid="&rs("autoid")&" and workthings_userthings.workthingsid=workthings_type.autoid"
rs1.open sql1,conn,1
if not rs1.eof and not rs1.bof then
%>
<br>
<p align="center" style="margin-bottom: 0"><b><font color="#FF0000" size="3">办公用品发放表</font></b></p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td>
<hr color="#FF0000" width="50%">
</td>
</tr>
</table>
</center>
</div>
<form method="POST" action="putout_things.asp">
<input type="hidden" name="recordnumber" value="<%=rs("autoid")%>">
<input type="hidden" name="userid" value="<%=rs("ID")%>">
<input type="hidden" name="name" value="<%=rs("name")%>">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td>
<p align="center">领取人：<%=keepformat(rs("name"))%>
部门：<%=keepformat(rs("userdept"))%>
时间：<%=rs("writetabletime")%></td>
</tr>
</table>
</div>
<div align="center">
<center>
<table border="1" cellpadding="5" cellspacing="0" width="80%" bordercolorlight="#808080" bordercolordark="#D4D0C8">
<tr>
<td height="25" width="40" align="center" bgcolor="#D4D0C8">编号</td>
<td height="25" width="100" align="center" bgcolor="#D4D0C8">办公用品名称</td>
<td height="25" width="70" align="center" bgcolor="#D4D0C8">领取数量</td>
<td height="25" width="80" align="center" bgcolor="#D4D0C8">实际领取数量</td>
<td height="25" width="80" align="center" bgcolor="#D4D0C8">审核意见</td>
<td height="25" width="120" align="center" bgcolor="#D4D0C8">审核意见说明</td>
</tr>
<%
recordsums=1
do while not rs1.eof
%>
<tr>
<td height="25" width="40" align="center"><%=cstr(recordsums)%></td>
<td height="25" width="100" align="center"><%=keepformat(rs1("workthingsname"))%></td>
<td height="25" width="80" align="center"><%=rs1("putoutnumber")%></td>
<td height="25" width="70" align="center">
<%
if not rs1("auditingflag") or (rs1("auditingflag") and rs1("auditingidea")) then
%>
<input type="text" name="T<%=rs1("ID")%>" size="12" onkeypress="checkkey()" maxlength="2" value="<%=rs1("putoutnumber")%>">
<%
else
response.write("0")
end if
%>
</td>
<td height="25" width="80" align="center">
<%
if rs1("auditingflag") then
if rs1("auditingidea") then
response.write("同意领取")
else
response.write("<font color=""#ee0000"">不同意领取</font>")
end if
else
response.write(" ")
end if
%>
</td>
<td height="25" width="120" align="center">
<%
if rs1("auditingexplain")="" or rs1("auditingexplain")=NULL then
response.write(" ")
else
response.write(keepformat(rs1("auditingexplain")))
end if
%>
</td>
</tr>
<%
rs1.movenext
recordsums=recordsums+1
loop
%>
</table>
</center>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td>
<p align="center">经手人：<%=keepformat(oabusyname)%>
部门：<%=keepformat(oabusyuserdept)%>
时间：<%=cstr(date())&" "&cstr(time())%></td>
</tr>
</table>
</div>
<p align="center"><input type="submit" value=" 提交 " name="ok"> <input type="reset" value=" 重填 " name="reset"> <input type="submit" name="sendemail" value="通知对方"> <input type="submit" name="deltable" value="删除领用表" onclick="javascript:return window.confirm('此操作后数据无法恢复，您确实要删除该领用表吗？');"></p>
</form>
<%
else
sql="delete from workthings_use where autoid="&rs("autoid")
conn.execute(sql)
end if
set rs1=nothing
rs.movenext
loop
end if
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -