 |
| |
 |
|
| |
<%
pass=request("pass")
if pass="" then
%>
<%else%>
<%set Rs=server.CreateObject("ADODB.Recordset")
Rs.open "select top 1 * from manage",con,1,1
if Rs.eof or Rs.bof then
response.write "数据库错误,数据库中注管理员已经不存在,请添加记录后再操作!"
Rs.close
set Rs=nothing
con.close
set con=nothing
response.end
end if
if rs("pass")<>pass then
response.write "密码错误!"
Rs.close
set Rs=nothing
con.close
set con=nothing
response.end
end if
session("pass")=pass
response.clear
Rs.close
set Rs=nothing
con.close
set con=nothing
response.redirect "manage.asp"
end if
%>
|
|
| |
|
|
|
