admincheck.asp

一个关于学校网站教育资源的网站,能实现文件的上载,可以实现教育资源的共响

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

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

if session("verifycode") = "" then  '验证语句
 conn.close
 set conn = nothing
 response.write "<script>alert('登陆超时，请重新登录');window.location.href='adminlogin.asp';</script>"
 response.end
elseif session("verifycode") <> verifycode then
 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") = "admin"
 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
%>