📄 wap_ads.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<% Response.ContentType="text/vnd.wap.wml" %><?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>
<card id="card" title="正在进入...">
<p>
<%
id=Request("id")
set Rs=server.createobject("adodb.recordset")
Rs.open "select * from Advertise where id="&id,Conn,1,2
If not Rs.eof Then
Rs("click")=Rs("click")+1
Rs("lasttime")=now()
Rs.Update
'If IsSqlDataBase = 1 Then
'set Rs1=Server.CreateObject("adODB.Recordset")
'Rs1.open "select * from KS_Adiplist",conn,1,3
'Rs1.AddNew
'Rs1("adid")=Rs("id")
'Rs1("time")=now()
'Rs1("ip")=ip
'Rs1("class")=2
'Rs1.Update
'Rs1.Close
'set Rs1=Nothing
'End If
Response.redirect ""&Rs("url")&""
Response.write "<br/><a href="""&Rs("url")&""">快速进入...</a>"
Else
Response.redirect WapUrl
End If
Rs.close:set Rs = nothing
set Wap = nothing
%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -