checkadmin.asp

来自「评价系统 有多个登陆选择」· ASP 代码 · 共 24 行

<!--#include file="conn.asp"-->

<%
dim admin_name,admin_pwd
admin_name=trim(request("admin_name"))
admin_pwd=trim(request("admin_pwd"))

set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&admin_name&"'"
rs.open sql,conn,1,1

if not rs.eof then
	if admin_pwd=rs("admin_pwd") then
		session("admin")=admin_name
		response.redirect "admin_main.asp"
	else
			Response.Write "<script language='javascript'>window.confirm('密码错误！！');</script>"
	Response.Write "<script language='javascript'>parent.window.history.go(-1);</script>"
	end if
else
		Response.Write "<script language='javascript'>window.confirm('用户名不存在！！');</script>"
	Response.Write "<script language='javascript'>parent.window.history.go(-1);</script>"
end if
%>