?<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
'====================================================================
' 請你保留這段說明，這并不會影響你的速度,
' 程序制作：橫云			        掌上校園版權所有，請勿破解
' 完成時間： 2007-09-27   		主頁地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   		QQ:554904632
'====================================================================
%>

<!--#include file=conn.asp-->
<%
	dim sql
	dim rs
	dim username
	dim password
	username=request("username")
	password=request("password")

	set rs=server.createobject("adodb.recordset")
	sql="select * from admin where password='"&password&"' and username='"&username&"'"
'	response.write ""&sql&""
'	response.end
	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if password=rs("password") then
                        Session.Timeout=1200
			session("admin")=rs("username")
			session("flag")=rs("flag")
                        session("mid")=rs("id")
			Response.Redirect "main.asp"
 		else
			call Error
 		end if
	else
		call Error()
	end if

	sub Error()
    	response.write "<br/>"
    	response.write "&#x64CD;&#x4F5C;: &#x786E;&#x8BA4;&#x8EAB;&#x4EFD;&#x5931;&#x8D25;!"
    	response.write "<br/>&#x7528;&#x6237;&#x540D;&#x6216;&#x5BC6;&#x7801;&#x9519;&#x8BEF;!"
    	response.write "&#x8FD4;&#x56DE;"        
	end sub
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

%>