login.asp

J:程序新静态动态可选择wap友链接版[自带简单留言本]源码程序系统

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度,
' 程序制作：横云			        掌上校园版权所有，请勿破解
' 完成时间： 2007-09-27   		主页地址：HTTP://wap.cnscu.cn
' E-Mail: [e-mail]   		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

%>