一聚教程网:一个值得你收藏的教程网站

热门教程

asp用户登录程序

时间:2022-07-02 22:42:55 编辑:袖梨 来源:一聚教程网

<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request.form("username")),"'","")
password=replace(trim(request.form("password")),"'","")
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where LockUser=False and username='" & username & "' and password='" & password &"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
 if password=rs("password") then
  session("UserName")=rs("username")
  'session("purview")=999
  Response.Redirect "ment1.asp"
 end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>










 
  
   


   
操作: 确认身份失败!


     

      用户名或密码错误!!!

     
【返回】

     

热门栏目