checkuser.asp

来自「功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来」· ASP 代码 · 共 19 行

<%
set rst=server.createobject("adodb.recordset") 
    query="select userid,status,baseid from newwork where id="&CLng(request("nwid"))
    rst.open query,conn,1,1
	if rst.eof then
	response.redirect "error.htm"
	response.end
	end if
	if rst("userid")=session("uid") and rst("status")=0 and rst("baseid")=Clng(request("flowid")) then
	rst.close
	set rst=nothing
	else
	rst.close
	set rst=nothing
	response.redirect "error.htm"
	response.end
	end if
	
%>