asp简单用户登陆代码

 
 
 
 

   
   
   
 

 

   
   
   
 

<%
if request.form("name")<>"" then
 login()
end if
function login()
dim sql,username,userpwd,user
   username=html_encode(request.form("name"))
   userpwd=html_encode(request.form("pwd"))
   user=request.form("user")
   if len(username)<4 or len(username)>16 then
      response.write("")
   response.end
 end if
   if len(userpwd)<4 or len(userpwd)>16 then
      response.write("")
   response.end
 end if
   if  cint(user)<>session("user") then
      response.write("")
      response.end
   end if
   sql="select * from reg where username='"&username&"' and password='"&userpwd&"'"
     call opensql()
  sqlrs.open sql,sqlcn
  if not sqlrs.eof then
    session("username")=username
    response.redirect("../usermange.asp?user="&username)
   else
   response.write("")
   end if
end function

'说明 首先是获取用户提供的用户名与密码，然后再进行数据比较判断，如果不合法就不让查询数据库教程，如果通过规则验证验证就进行数据库用户名与密码验证，验证通过了就把用户名保存到session中，再跳转到我们要处理的页面。
%>