?? a.asp
字號:
?<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.ContentType="text/vnd.wap.wml"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
%>
<!--#include file="Conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<%
On Error Resume Next
HTTP_USER_AGENT = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
Function IpAddr()
Ipr=Clng(Left(Trim(Replace(Request.ServerVariables("REMOTE_ADDR"),".","")),6))
If (Ipr<>211103 and Ipr<211136) or (Ipr>211143 and Ipr<218200) or (Ipr>218207 and Ipr<221130) or (Ipr>221131) Then
IpAddr=True
Else
IpAddr=False
End if
End Function
If Cbool(Wap.blnfilter(HTTP_USER_AGENT,3))=True Then
Response.redirect PeizhiDianru
ElseIf Cbool(Wap.blnfilter(Wap.Ip,4))=True Then
Response.redirect PeizhiDianru
ElseIf Cbool(IpAddr)=True Then
Response.redirect PeizhiDianru
Else
Rem 刪除防刷臨時數據
If IsSqlDataBase = 1 Then
Wap.Execute("DELETE From FangShua where DateDIff(s,ShuaTime,GetDate()) > 10*60")
Else
Wap.Execute("DELETE From FangShua where DateDIff('s',ShuaTime,Now()) > 10*60")
End If
Rem 寫入防刷臨時數據
SuiID=Session.Sessionid
set Rs=server.createobject("adodb.recordset")
Rs.open "select * from FangShua",Conn,1,3
Rs.AddNew
Rs("SuiID")=SuiID
Rs("Ip")=Wap.Ip
Rs("ShuaTime")=Now()
Rs.Update
Rs.close
set Rs=nothing
Rem 主體數據
set Rs=server.createobject("adodb.recordset")
Rs.open "select wuxiao from Link where UserName='"&UserName&"'",Conn,1,3
If not Rs.eof Then
Rs("wuxiao")=Rs("wuxiao")+1
Rs.Update
Response.Write "<card id=""card"" title=""正在進入..""><onevent type=""onenterforward""><go href=""Wap_In.asp?UserName="&UserName&"&SuiID="&SuiID&"""/></onevent>"
Response.Write "<p align=""center"">"
Response.Write "正在進入,請稍等...<br/>"
Response.Write "<a href=""Wap_In.asp?UserName="&UserName&"&SuiID="&SuiID&""">快速進入</a>"
Else
If WapJinru = "0" Then
Url = WapUrl&WapMulu
Else
Url = WapUrl
End if
Response.Write "<card title=""系統提示！""><p align=""center"">"
Response.Write "無此用戶名，或者此用戶名已經刪除，點此訪問 <a href="""&Url&""">訪問...</a>"
End if
Rs.close:set Rs=nothing
End if
set Wap = nothing
%>
</p>
</card>
</wml>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -