📄 gg_view.asp

📁 wap系统程序源码用户名密码:admin

💻 ASP

字号:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%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"> 
<!--#include file="conn.inc"-->
<!--#include file="66hcsb.asp"-->
<%
dim id
id=request.QueryString("id")
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select * from 66hc_gg where id="&id
npp.open rspl,conn,1,2
name=npp("name")
txt=ubb2(npp("txt"))
fbtm=npp("tm")
npp.close
set npp=nothing
%>
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="<%=name%>">
<p>
<b>标题:<%=name%></b><br/>
内容:<%=txt%><br/>
时间:<%=fbtm%><br/>
[本公告为论坛系统公告,发布人为本站站长，如有任何问题请与论坛ID:1联系]<br/>
--------<br/>
<%
dim idd
idd=clng(id+1)
set nppx=Server.CreateObject("ADODB.Recordset")
rsplx="select * from 66hc_gg where id="&idd
nppx.open rsplx,conn,1,2
   Response.write "下一条："
if nppx.eof then
   Response.write "已经没有了！<br/>"
Else
namex=nppx("name")
Response.write "<a href='gg_view.asp?id="& idd &"&amp;glsb="&glsb&"'>"& namex &"</a><br/>"
nppx.close
set nppx=nothing
%>
<%end if%>
<%
dim sidd
sidd=clng(id-1)
set npps=Server.CreateObject("ADODB.Recordset")
rspls="select * from 66hc_gg where id="&sidd
npps.open rspls,conn,1,2
   Response.write "上一条："
if npps.eof then
   Response.write "已经没有了！<br/>"
Else
names=npps("name")
Response.write "<a href='gg_view.asp?id="& sidd &"&amp;glsb="&glsb&"'>"& names &"</a><br/>"
npps.close
set npps=nothing
%>
<%end if%>
<a href="gg_index.asp?glsb=<%=glsb%>">更多公告...</a><br/>
<!--#include file="w.asp"-->
<%
conn.close
set conn=nothing
%>
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -