chklogin.asp

来自「一个较好的网上购物系统 是基于ASP的多用户网上商城」· ASP 代码 · 共 22 行

<!--#include file="conn.asp" -->
<%
adminname=request("adminname")
adminpassword=Request("adminpassword")
sql="select * from admin_info where admin_name='"&adminname&"' and admin_password='"&adminpassword&"' "
set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('用户名或密码不正确!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
else
session("admin")="smallstick"
response.redirect "frame.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>