adminpass.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%
admin_name=request("admin_name")
admin_password=request("admin_password")

Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../user/redtools123.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs_admin = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where admin_name like '" & admin_name & "' and admin_password like '" & admin_password & "'"
rs_admin.open sql,conn,3,2
if rs_admin.eof and rs_admin.bof then
   response.write "<script language='javascript'>"
   response.write "alert('账号或密码错误！');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end
end if

rs_admin.close
session("admin_pass")="ok"
   response.write "<meta http-equiv='refresh' content='1; url=default.asp'>"
%>