📄 vguang.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-01 HTTP://wap.czhome.net
' E-Mail: 316801451@qq.com QQ:316801451
'=================================================
%>
<% 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">
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="function1.asp"--><wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="查看广告">
<p mode='nowrap' >
<br/>~~~~~~~~~~~~<br/>
<%
dim id,rs,sql
id=saferequest("id",1)
set rs=server.createobject("adodb.recordset")
sql="select * from guanggao where id="&id
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write "广告已被删除"
else
rs("hit")=rs("hit")+1
rs.update
%>
<%=encodestr(rs("text"))%><br/>
<a href='<%=rs("link")%>'>点击进入<%=rs("title")%></a><br/>
<anchor><prev/>＝返回＝</anchor>
<%
end if
rs.close
conn.close
set conn=nothing
%></p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -