qsto.asp

来自「公文签收系统,短小精悍」· ASP 代码 · 共 45 行

ASP

45 行

<!--#include file="conn.asp"-->
<!--#include file="md5.inc"-->
<% 
look_id=session("look_id")
username=request.form("用户名")
password=request.form("密码")
qsname=request.form("签收人")
password=ucase(md5(trim(password)))


%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>签收文件</title>
</head>

<body>
<%  
set rs=server.CreateObject("adodb.recordset")
 sql="select * from qsnews where reid ="&look_id&" and 用户名='"&username&"'"
                    rs.Open sql,conn,1,3
                      if rs.eof then
                      response.write "没有文件签收或用户名错误!"
                      response.redirect("qs.asp")
                        else
                        if   rs("密码")<> password then 
                        response.write "签收密码错误!"
                        response.redirect("qs.asp")
                        else
	                rs("ip")=Request.ServerVariables("REMOTE_HOST")
		        rs("签收人")=qsname
		        rs("签收状态")=1
		        rs("签收时间")=now()
		        rs("ip")=Request.ServerVariables("REMOTE_HOST")
			rs.update
			end if
			end if
		      rs.Close
               set rs=nothing
               set conn=nothing
               response.redirect("qtlooker.asp?look_id="&look_id&"")
%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

qsto.asp

qsto.asp - 源码说明

⌨️ 快捷键说明