checkuser.asp

来自「企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。」· ASP 代码 · 共 33 行

<!--#include file ="Connections/auto.asp"-->
<% 
Lname = Trim(request.form("uid"))
Lpwb = Trim(request.Form("pwd"))
response.write Lname & Lpwb & "sss"
%>
<%
set RS = server.CreateObject("ADODB.Recordset")
Sname = "select * from Login where ID='" & Lname & "' and PWD='" & Lpwb &"'"
set RS=CN.execute(Sname)
response.write Sname
%>
<% 
if (not RS.eof) then
  	 	 session("Rname")=Lname
		 session("Part")=RS("Part")
	     sql="select * from Message where ID='" & Lname &"'" 
	     set rs1=CN.execute(sql)
		 session("position")=rs1("Position")
		 session("Uname")=rs1("Name")
		 rs1.close
		 RS.close
		 set RS=nothing	
		 CN.close
		 set CN=nothing

		 response.Redirect("LeftCheck.asp")
		
else 
	response.Redirect("index.asp")
end if
%>