Question

asp这个语句里如何加个会员等级的判断，pass=0和pass=1

Dim oRsLogin,oRsLog,Copyright
Dim UserName,UserPass,VerifyCode,System,SqlLog,SqlLogin,Url,strsql
Url = "index.asp"
UserName = Replace(Trim(Request.Form("Name")),"'","''")
UserPass = Replace(Trim(Request.Form("PassWord")),"'","''")

if UserName ="" or UserPass ="" then
response.write ("<script type='text/javascript'>alert(""用户名和密码都是必须的"&Copyright&""");location.href=""Login.asp"";</script>")
response.end
end if

if UserName = Name and UserPass=Pass1 then
LoginFlag = True
else
Set oRsLogin = BuildRecordset("webuser","*","Name='"&UserName&"' And pass1='"&UserPass&"'",1,2)
if oRsLogin.bof and oRsLogin.eof then
response.write ("<script type='text/javascript'>alert(""用户名或密码错误"&Copyright&""");location.href=""Login.asp"";</script>")
response.end

else
LoginFlag = True
end if
end if
if LoginFlag then

session("UserName")=UserName

response.write ("<script type='text/javascript'>alert(""欢迎登录"&Copyright&""");location.href=""a.asp"";</script>")
end if
%>

Answer 1

else
LoginFlag = True
pass=oRsLogin('pass') '登记字段
if pass=0 then
....
else if pass=1 then
....
end if
end if

Answer 2

代码没贴全，也有错。