chkadmin.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 23 行

<!--#include file="conn.asp"-->
<%
  dim admin,password
      admin   =replace(trim(request("admin")),"'","")
      password=replace(trim(request("password")),"'","")

set rs=server.CreateObject("adodb.recordset")
    rs.Open "select * from shop_admin where admin='"&admin&"' and password='"&password&"' " ,conn,1,1
if not(rs.bof and rs.eof) then
   if password=rs("password") then
      session("admin")=trim(rs("admin"))
      session("flag")=int(rs("flag"))
      session.Timeout=20
      rs.Close
      set rs=nothing
      response.Redirect "index.asp"
   else
      response.write "<script LANGUAGE='javascript'>alert('对不起，登录失败！');window.location.reload('javascript:history.go(-1)')</script>"
   end if
else
   response.write "<script LANGUAGE='javascript'>alert('对不起，登录失败！');window.location.reload('javascript:history.go(-1)')</script>"
end if
%>