admincheck.asp

这个是图书管理系统绝对是本人原著！而且多次调试能够用！

<%@ language=vbscript%>
<title>admincheck</title>
<%
 adminname=trim(request.form("adminname"))
 adminpassword=trim(request.form("adminpassword"))
 set conn = server.CreateObject("adodb.connection")
        connstr="DBQ="+server.mappath("bookstore.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
	conn.Open connstr
	set rs = server.CreateObject("adodb.recordset")
	sql = "select * from admininfo where adminname='"&trim(adminname)& "'" 
        rs.Open sql,conn
	if trim(request("adminname"))="" then
	response.write "<center><b><font size=2>请输入管理员姓名和密码!<a href=login.asp>重新登录</a></font><b></center>"
	response.end
 end if

  if request("adminpassword")="" then
  response.write "<center><b><font size=2><a href=login.asp>请输入管理员密码!<a href=login.asp>重新登录</a></font><b></center>"
  response.end
  end if

	if not rs.eof then
   if adminname=rs("adminname") and adminpassword<>rs("adminpassword") then
   response.write "<center><b><font size=2>管理员密码不正确，请重新输入!<a href=login.asp>重新登录</a></font><b></center>"
   end if
   if adminpassword=rs("adminpassword") and adminname=rs("adminname") then
    response.redirect "admin_alterinfo.asp"
   end if
end if

if rs.eof then
response.write "<center><b><font size=2>管理员不存在!<a href=login.asp>重新登录</a></font><b></center>"
end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	%>