admin.asp

来自「简单的留言版asp原码,供学习参考,里边有详细说明」· ASP 代码 · 共 24 行

<!--#include file="conn.asp"-->
<%
UserName=trim(request("UserName"))
PassWord=trim(request("PassWord"))
if username="" and password="" then
response.write"<script>alert('参数错误');location.href='javascript:history.back()'</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select admin,pass from admin where admin="&username
rs.open sql,conn,1,1
if rs.eof then
response.write "<script>alert('用户名密码错误');location.href='javascript:history.back()'</script>"
response.end
end if
if password<>rs("pass") then
response.write "<script>alert('用户名密码错误');location.href='javascript:history.back()'</script>"
response.end
end if
session("bxgzsadmin")=username
session("bxgzspass")=password
response.redirect "index.asp"
       
%>