/bbs/gg_view.asp代码页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=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="cnscucsb.asp"--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <%
dim id
id=request.QueryString("id")
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select * from cnscu_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 cnscu_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;cnscu="&cnscu&"'>"& 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 cnscu_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;cnscu="&cnscu&"'>"& names &"</a><br/>"
npps.close
set npps=nothing
%>
<%end if%>
<a href="gg_index.asp?cnscu=<%=cnscu%>">更多公告...</a><br/>
<!--#include file="w.asp"-->
<%
conn.close
set conn=nothing
%>
</p>
</card>
</wml>
相关源码
字母检索
回到顶部