我是菜鸟请教高手关于ASP

来源:百度知道 编辑:UC知道 时间:2024/05/22 16:14:05
以下是定义了一个过程请问高手哪一句的意思是密码正确进入主页面:

Sub CheckAdminLogin(strUserId, strPwd)
dim strSQL, rsObj
if strUserId <> "" then
strSQL = "SELECT * FROM Admins WHERE Account = '" & strUserId & "'"

set rsObj = conn.Execute(strSQL)
if not (rsObj.eof or err) then
if strPwd = rsObj("Pwd") then
Session("AdminAccount") = rsObj("Account")
Session("userClass") = 1
rsObj.Close
Set rsObj = Nothing
CloseConn()
Response.Clear
Server.Transfer "default.asp"
end if
end if
rsObj.Close
Set rsObj = Nothing
CloseConn()

Response.Write "<script language = Javascript>"
Response.Write "alert('错误!请重新输入');"
Response.Write "window.history.go(-1);"
Response.Write "</script>"

if strPwd = rsObj("Pwd") then 如果得到的pwd和数据库中pwd相等 则
Session("AdminAccount") = rsObj("Account") session的adminaccount和记录中的account相等
Session("userClass") = 1 让userclass的值为1
rsObj.Close 关闭记录集
Set rsObj = Nothing
CloseConn()
Response.Clear
Server.Transfer "default.asp" 转到页面default.asp

if strPwd = rsObj("Pwd") then
如果密码符合则....