<%
dim user,pwd,rs,msg
user=Trim(Request.Form("username"))
pwd=Trim(Request.Form("password"))
user=replace(user,"'","''")
pwd=replace(pwd,"'","''")
msg=""
set rs=conn.execute("select * from PSLogins where LoginID='" & user & "' and [password]='" & pwd & "'")
if rs.eof then
msg = "用户名或密码输入错误！请重新输入"
else
session("ok")=user
session("idno")=rs("id")
session("id") = rs("LoginID")
Session("Name") = rs("userName")
Session("Password") = rs("Password")
Session("IsSystemManager")=rs("IsSystemManager")
if rs("IsSystemManager")=1 then
session("is_admin")=1
else
session("is_admin")=0
end if
if rs("IsSystemManager")=0 then
response.Write ""
end if
if rs("IsSystemManager")=1 then
response.Write ""
end if
end if
rs.close
%>