admincheck.asp

来自「一个教育系统」· ASP 代码 · 共 41 行

<!--#include file="conn.asp"-->
<%
adminpwd = request("adminpwd")
adminname=request("adminname")
verifycode = trim(request("verifycode"))

if adminname = "" then
 conn.close
 set conn = nothing
 response.write "<script>alert('请输入名字');history.go(-1);</script>"
 response.end
end if


if adminpwd = "" then
 conn.close
 set conn = nothing
 response.write "<script>alert('请输入密码');history.go(-1);</script>"
 response.end
end if


sql = "select * from config"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if adminpwd = rs("adminpwd") then
 session("admin") = rs("adminname")
 rs.close
 set rs = nothing
 conn.close
 set conn = nothing
 response.redirect "adminmain.asp"
else
 rs.close
 set rs = nothing
 conn.close
 set conn = nothing
 session("verifycode") = ""
 response.write "<script>alert('密码错误');window.location.href='adminlogin.asp';</script>"
end if
%>