vguang.asp
来自「admin/admin.asp是WAP的后台管理登陆页面」· ASP 代码 · 共 40 行
ASP
40 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15 HTTP://www.wapfs.net
'=================================================
%>
<% 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' >
<%
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/>~~~~~~~~~~~~<br/>
<anchor><prev/>=返回=</anchor>
<%
end if
rs.close
conn.close
set conn=nothing
%></p>
</card>
</wml>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?