wnp_checklogin.asp

U盘身份识别软件

<!--#include file="CONN.asp" -->
<%
dim CLpassword
CLpassword=request("password")
if InStr(CLpassword,"'") then
  response.Write "<script language=javascript>alert('口令中含有非法字符！');location.href='WNP_LOGIN.ASP';</script>"
else
sql="select * from WNT_USER where WND_USER_PASSWORD='"&CLpassword&"' and WND_USER_VALID=true"
rs.open sql,conn,1,1
On Error Resume Next
if not rs.eof then
       dim CLtime
	   CLtime=rs("WND_USER_TIME")
       if Cint(DateDiff("d", date(), CLtime))<0 then
	       rs("WND_USER_VALID")=false
		   response.Write "<script language=javascript>alert('口令有误,请重新输入！');location.href='WNP_LOGIN.ASP';</script>"
	   else
	       session("USERID")=rs("WND_USER_ID")
           session("WND_USER_USERNAME")=rs("WND_USER_USERNAME")
		   session("WND_USER_AREA")=rs("WND_USER_AREA")
		   session("USER_DWBM")=rs("USER_DWBM")
		   sql="select * from WNT_GW where WND_GW_ID="&rs("WND_USER_TYPE")
		   rssub.open sql,conn,1,1
		   if not rssub.eof then
		   session("WND_USER_TYPE")=rssub("WND_GW_Order")
		   end if
		   rssub.close
		   
		   sql="select * from WNT_UNIT where WND_UNIT_ID="&rs("WND_USER_UNITID")
           rssub.open sql,conn,1,1
		   if not rs.eof then
           session("WND_USER_UNIT")=rssub("WND_UNIT_UN")
           session("UNIT_BM")=rssub("UNIT_BM")
           session("UNIT_Jibie")=rssub("UNIT_Jibie")
		   end if
		   rssub.close
           rs.close
		   
		   sql="select * from WNT_DWBM_WS where UJ_TYPE_Order=0"
           rssub.open sql,conn,1,1
		   if not rs.eof then
           session("EveryStepNumber")=rssub("UJ_TYPE")
           session("AllStepNumber")=rssub("Unit_Step")
           session("AllNumber")=rssub("UJ_TYPE")*rssub("Unit_Step")
		   for i=1 to session("EveryStepNumber")
		     testStr01=testStr01+"0"
		   next
           session("testStr01")=testStr01
		   end if
		   rssub.close
		   
		   response.Redirect "WNP_DEFAULT.ASP"
	  end if
   else
		   response.Write "<script language=javascript>alert('口令有误，请重新输入！');location.href='WNP_LOGIN.ASP';</script>"
end if
rs.close
end if
call closedb
%>