www.gusucode.com > 云枫工作室企业网站源代码第五版 1.0 > docc/admin/chkadmin.asp

    <!--#include file="conn.asp" -->
<%
	dim admin,password
	admin=replace(trim(request("admin")),"'","")
	password=replace(trim(request("password")),"'","")
	if admin="" or password="" then
		response.Write "<center><a href=../index.asp><font color=red size=2>对不起，登陆失败，请检查您的登陆名和密码</font></a></center>"
		response.end
	end if
	set rs=server.CreateObject("adodb.recordset")
	rs.Open "select * from adminuser where sqluser='"&admin&"' and sqlpas='"&password&"' " ,conn,1,1
	if not(rs.bof and rs.eof) then
		if password=rs("sqlpas") then
			session("lyj_admin")=trim(rs("sqlindex"))
			session("lyj_flag")=int(rs("sqlflag"))
			session.Timeout = 120
			rs.Close
			set rs=nothing
			conn.close
			set conn=nothing
			response.Redirect "manguage.asp"
		else
			response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');history.go(-1);</script>"
			
		end if
	else
	response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');history.go(-1);</script>"

	end if

%>