login.asp

三鸟个人网站源码。

<!--#include file="conn.asp"-->
<%
dim d_webname,d_pass
d_webname=trim(request("d_webname"))
d_pass=trim(request("d_pass"))

set rs=server.createobject("adodb.recordset")
sql="select * from duser where d_webname='"&d_webname&"' and d_pass='"&d_pass&"'"
rs.open sql,conn,1,3
    if rs.eof then
        response.redirect"error.htm"
    else
        session("d_webname")=rs("d_webname")
        session("d_pass")=rs("d_pass")
        response.redirect "index.asp"
    end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>