checklogin.asp

来自「汽车违法查询系统V0.1版本 1.直接解压上传空间就可使用！ 管理员adm」· ASP 代码 · 共 27 行

<!--#include file="conn.asp"-->
<% 
user=trim(replace(request("user"),"'",""))
pass=trim(replace(request("pass"),"'",""))
%> 
<% 
set rs=server.createobject("adodb.recordset") 
sql="SELECT * from 管理员 WHERE 用户 = '"&user&"' and 密码 = '"&pass&"'"
rs.open sql,conn,1,1 
if rs.eof then 
response.write "<script>alert('用户密码错误.');location.replace('login.asp')</script>"
response.end 

else 
user=rs("用户") 
pass=rs("密码") 

if rs("等级")="管理员" then
Session.Contents("master")="master"
response.redirect"main.asp" 
end if
if rs("等级")="录入员" then
Session.Contents("master")="admin"
response.redirect"main1.asp" 
end if
end if 
%>