chklogin.asp

计算器源码

<!--#include file="conn.asp"-->
<% 

dim username
dim password 
username=trim(request.form("username")) 
password=trim(request.Form("password")) 

dim rs5
dim sql5
set rs5=server.CreateObject("adodb.recordset")
    sql5="select admin,password from admin where id=1"
	rs5.open sql5,conn,1,1
dim admin
dim pass
    admin=trim(rs5("admin"))
    pass=trim(rs5("password"))

if  username=admin and password=pass then 
    session.contents("admin")="ok"
    response.redirect "loginok.asp"
    
else
    response.redirect "login.asp"

end if 
    rs5.close
set rs5=nothing
    conn.close
set conn=nothing
%>