gusucode.com > ASP+ACCESS学生管理系统(源代码+论文) > ASP+ACCESS学生管理系统(源代码+论文)\zjw\admin1.asp

    <% option explicit %>
<%
dim db
set db=server.CreateObject("adodb.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath("db1.mdb")
dim rs,strsql
if trim(request("admin_name"))<>""  and trim(request("admin_pwd"))<>"" then
strsql="select * from admin where admin_name='"&request("admin_name")&"' and admin_pwd='"&request(" admin_pwd")&"'"
set rs=db.execute(strsql)
if not rs.bof and not rs.eof then
session("id")=rs("id")
response.redirect "xxgl.asp"
else
response.write "对不起，密码不正确，请重新输入"
end if
end if  
  %>