login.asp

一份课件,教你怎样制作网站和网页,简单明了,适用与入门的新手

<%  
    username1 = Request("username_input")
    password1 =  Request("password_input")

    Set conn = Server.CreateObject("ADODB.Connection")
    str_conn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("user.mdb")    
    conn.Open str_conn

    Set rs = Server.CreateObject("ADODB.Recordset")   
    str_sql = "select * from user where username='"  &  username1  &  "' and password = '"  &  password1 & "'"
    rs.open str_sql,conn,1,1
    
    If rs.RecordCount = 1 Then
       Session("name") = username1
       rs.Close
       Set rs=Nothing
       conn.Close
       Set conn=Nothing
       Response.Redirect  "../lijie.asp"
    Else
       rs.Close
       Set rs=Nothing
       conn.Close        
       Set conn=Nothing
       Response.Redirect  "error.asp?info=账号或密码输入错误!"
    End If
%>