| |
<% dim myrs,sq
set myrs=server.CreateObject ("adodb.recordset")
sq="select top 1 * from admin"
myrs.Open sq,gconn,1,3
if request("admin") <> "" then
if myrs("admin")=Request("admin") then
if myrs("password")=request("password") then
session("admin")=true
login_ok()
else
Response.Write ("登陆失败！ ")
login()
end if
else
Response.Write ("登陆失败！ ")
login()
end if
else
login()
end if
myrs.Close ()
%>
<%sub login%> |
