关于用户登录问题,帮忙看看这段代码怎么啦??
我的用户表有三个字段:UserID,PWD,Admingroup
如果Admingroup为0就是管理员进入管理界面,如果为1就是普通用户录入界面,可是我的这段代码怎么不能实现呀?
<%
Function CheckPwd( UserID, PWD )
Dim conn, param, rs
connstr="Provider=SQLOLEDB;Data Source=XUJIA;Database=showroom;UID=sa;Pwd="
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql = "Select * From tblUser Where UserID='" & UserID & "' And PWD = '" & PWD & "'"
Set Session("Userrs") = conn.Execute( sql )
If Session("Userrs").EOF Then
CheckPwd = False
Else
CheckPwd = True
End If
sqlAdmingroup="select Admingroup from tblUser where UserID='" & UserID& "'"
set ad=conn.execute(sqlAdmingroup)
End Function
%>
<%
If IsEmpty(Session("Passed")) Then Session("Passed") = False
Head = "<font size='2' face='Arial'>请输入用户名和密码</font>"
UserID = Request("UserID")
PWD = Request("PWD")
Admingroup = Request("Admnigroup")
If UserID = "" Or PWD = "" Then
Head = ""
ElseIf not CheckPwd( UserID, PWD ) Then
Head = "<font size='2' face='Arial'>信息有误!请重新输入</font>"
Elseif ad="0" then
Session("UserID") = Session("Userrs")(0)
response.redirect "admin.asp"
Elseif ad="1" then
Session("UserID") = Session("Userrs")(0)
response.redirect "localadmin.asp"
else
Session("UserID") = Session("Userrs")(0)
response.redirect "register.asp"
End If
%>