📄 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 + -