%
dim conn,connstr
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") '数据库路径和名称
conn.Open connstr
%>
<%
sub chk() '判断管理登陆过程
pass=replace(trim(request.form("pass")),"'","")
sql="select * from book where pass='"&pass&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write""
response.end
end if
if pass<>rs("pass") then
response.write""
response.end
end if
permit=rs("permit")
rs.close
set rs=nothing
conn.close
set conn=nothing
if permit = true then
session("pass")=pass
Session.TimeOut=60 '登陆超时时间 单位 分钟
response.write""
response.write("")
else
response.write""
end if
end sub
%>
<%
Action = LCase(request("action")) '得到action值
Select Case Trim(Action) '调用过程
Case "chk"
Call chk()
End Select
%>