wap_ads.asp

来自「玛雅自助导航系统 玛雅自助导航系统 玛雅自助导航系统」· ASP 代码 · 共 42 行

ASP
42 行
字号 
<%@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>

wap_ads.asp - 源码说明

本页面展示了「玛雅自助导航系统 玛雅自助导航系统 玛雅自助导航系统」中的 wap_ads.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与导航系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?