关于用户登录问题，大家帮看看好吗？
在登录时如果输入错误用户名和密码，现在不能做出提示，总提示
Session("UserID") = Session("Userrs")(0)部分有错误。请指点
<%
Function CheckPwd( UserID, PWD )
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
Session("UserID") = Session("Userrs")(0)
Session("UserGroup")=Session("Userrs")("Admingroup")
Session("Location")= Session("Userrs")("Location")
End Function
%>
<%
If IsEmpty(Session("Passed")) Then Session("Passed") = False
Head = "<font size='2' color='#000000'>请输入用户名和密码</font>"
UserID = Request("UserID")
PWD = Request("PWD")
If UserID = "" Or PWD = "" Then
Head = ""
elseIf not CheckPwd( UserID, PWD ) Then
Head = "<font size='2' color='#000000'>信息有误！请重新输入</font>"
else
select case Session("UserGroup")
case 0:
response.redirect "localadmin.asp"
case 1:
response.redirect "register.asp"
case 2:
response.redirect "admin.asp"
end select
Session("UserID") = Session("Userrs")(0)
end if
%>
问题点数：100、回复次数：1Top
1 楼Brookes（边走边唱）回复于 2003-09-04 13:56:18 得分 100
怎么感觉好像问过了？
怎么可以这样做呢？不要直接使用Set Session("Userrs") = conn.Execute( sql )
来用session记录一个记录集！还是先用一个变量，再给session吧。
Session("UserID") = Session("Userrs")(0)这样写，系统不知道怎么去解释Session("Userrs")(0)Top
