adminpass.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 35 行

<!--#include file=conn.asp --> 
<!--#include file=../inc/encrypt.asp -->
<%
admin_name=request("admin_name")
admin_password=request("admin_password")

Set rs_admin = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where admin_name like '" & admin_name & "' and admin_password = '" & Encode(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("hs_opt")="ok"
response.redirect "mimi.asp"
%>