附验证登陆时的源代码,
再次谢谢大家的指点:)
———Char_login.asp验证登陆时源代码—————————————————
if ctype=1 then
sqlstr=" username='"&checkStr(username)&"'"
elseif trim(username)=trim(membername) then
sqlstr=" userid="&userid&""
else
sqlstr=" username='"&checkStr(username)&"'"
end if
sql="select userpassword,lockuser,userclass,article,LastLogin,userid,UserGroupID,titlepic,username from [User] where "&sqlstr&""
set rsUser=conn.execute(sql)
if rsUser.eof and rsUser.bof then
chkuserlogin=false
else
if trim(password)<>trim(rsUser(0)) then
chkuserlogin=false
elseif rsUser(1)=1 then
chkuserlogin=false
elseif rsUser(6)=5 then
chkuserlogin=false
else
userclass=rsUser(2)
article=rsUser(3)
UserLastLogin=rsUser(4)
userid=rsUser(5)
GroupID=rsUser(6)
titlepic=rsUser(7)
regname=rsUser(8)
if article<0 then article=0
chkuserlogin=true
end if
end if