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 %>