<!--#include file=conn.inc--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <%
admin=Request("username")
password=Request("password")
if admin="'or'='or'" or admin="or=or" then response.redirect "hhh.asp"

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM dwap_admin WHERE dwap_name='" &admin&"' and dwap_pass='" &password &"'"
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then 
        Session.Timeout=999
	session("username")=admin
	Session("password")=password
		rs.Close
		Set rs = Nothing
	response.Redirect "admin_index.asp"
	else
		rs.Close
		Set rs = Nothing
	   response.redirect "index.asp"
	end if
%>