checkuser.asp

来自「这是一个基于WEB的树木分类专家系统asp源代码,对于初学者特别有帮助!」· ASP 代码 · 共 30 行

<% @ Language=VBScript %>
<%
 dim username,password
 username = trim(request.form("username"))
 password = trim(request.form("password"))
      Set conn = Server.CreateObject("ADODB.Connection")
        conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tree.mdb")
        set rs= server.createobject("adodb.recordset") 
        if username="liufeng" and password="108617" then 
            response.redirect"manage.html"
        else
        
           sql="select * from 用户信息表 where username='"&username&"'and password='"&password&"'"
	    set rs=conn.execute(sql)
            if not rs.eof then
                          session("islogin")=ok
                          session("username")=username
                          session("password")=password
               conn.close
               response.redirect"login.asp"
          else
           response.write "对不起！你输入的用户名密码不正确！"
           end if 
     end if 	
%>