www.gusucode.com > WapEditFile手机WAP文件管理器源码 > wap_login.asp

    <!--#include file="wap_common.asp"-->
<!--#include file="wap_check.asp"-->
<!--#include file="wap_conn.asp"-->
<!--#include file="wap_md5.asp"-->
<%
Response.Buffer=True
Response.ExpiresAbsolute=Now()-1
Response.Expires=-1
Response.CacheControl="no-cache"
Response.AddHeader "Pragma", "No-Cache"
%>
<%Response.ContentType="text/vnd.wap.wml; charset=utf-8"%>
<%
	dim sql
	dim rs
	dim user_name
	dim user_password
	dim user_code
	user_name=replace(trim(request("user_name")),"'","")
	user_password=md5(replace(trim(Request("user_password")),"'",""))
	user_code=replace(trim(request("user_code")),"'","")

	set rs=server.createobject("adodb.recordset")
	sql="select id,user_name,user_password,user_realname from admin_user where user_password='"&user_password&"' and user_name='"&user_name&"'"
'	response.write ""&sql&""
'	response.end
	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if user_password=rs("user_password") and user_code=Request.Cookies("GetCode") then
			response.Cookies("wap_name")=rs(1)
			response.Write "<?xml version='1.0' encoding='utf-8'?>"
			response.Write "<!DOCTYPE wml PUBLIC '-//WAPFORUM//DTD WML 1.1//EN' 'http://www.wapforum.org/DTD/wml_1.1.xml'>"
			response.Write "<wml>"
			response.Write "<card title='进入成功' id='admin' ontimer='wap_all.asp'>"
			response.Write "		<timer value='5'/>"
			response.Write "		<p align='center'>5秒钟后自动进入。。。</p>"
			response.Write "		<p align='center'><a href='wap_all.asp'>[直接进入]</a></p>"
			response.Write "</card>"
			response.Write "</wml>"
 		else
			response.redirect pathstr&"wap_err.asp?id=3"
 		end if
	else
		response.redirect pathstr&"wap_err.asp?id=3"
	end if

	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

%>