📄 printpage.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/char.asp" -->
<!--#include file="inc/grade.asp"-->
<HTML><HEAD><TITLE><%=ForumName%>--显示贴子</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="forum.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="10" leftmargin="10">
<%
dim rs,sql
dim urs,usql
dim rsboard,boardsql
dim boardtype
dim foundErr
dim ErrMsg
dim boardid
dim announceid
dim username
dim rootid
dim topic
foundErr = false
ErrMsg = ""
Rem ------获取参数(get or post的)------
Rem ------包括版面的ID和页次------
Call getInput()
call chkInput()
set rs=server.createobject("adodb.recordset")
if foundErr then
call showErrMsg()
else
call showPage()
end if
sub showPage()
'on error resume next
if foundErr then
call showErrMsg()
else
call announceinfo()
if founderr then call showErrmsg()
end if
if err.number<>0 then err.clear
end sub
sub announceinfo()
sql="select boardtype from board where boardID="&BoardID
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
boardtype=rs("boardtype")
else
foundErr = true
ErrMsg=ErrMsg+"<br>"+"<li>您指定的论坛版面不存在</li>"
exit sub
end if
rs.close
'Rs.open "Select topic from bbs1 Where announceID="&AnnounceID&"",conn,1,1
set rs=conn.execute("select topic from bbs1 where announceID="&rootID&"")
if not(rs.bof and rs.eof) then
topic=rs("topic")
else
foundErr = true
ErrMsg=ErrMsg+"<br>"+"<li>您指定的贴子不存在</li>"
exit sub
end if
rs.close
%>
<TABLE border=0 width="750" align=center>
<TBODY>
<TR>
<TD valign=middle align=top>
<b>以文本方式查看主题</b><br><br>
- <b><%=ForumName%></b> (<%=HostURL%><%=ForumURL%>index.asp)<br>
-- <b><%=boardtype%></b> (<%=HostURL%><%=ForumURL%>bbs.asp?boardid=<%=boardid%>)<br>
---- <b><%=htmlencode(topic)%></b> (<%=HostURL%><%=ForumURL%>dispbbs.asp?boardid=<%=boardid%>&rootid=<%=rootid%>&id=<%=announceid%>)
</TD></TR></TBODY></TABLE>
<br>
<hr>
<%
Rs.open "Select UserName,Topic,dateandtime,body from bbs1 where boardid="&boardid&" and rootid="&rootid&" order by announceid",conn,1,1
do while not rs.eof
%>
<TABLE border=0 width="750" align=center>
<TBODY>
<TR>
<TD valign=middle align=top>
-- 作者：<%=rs("username")%><br>
-- 发布时间：<%=rs("dateandtime")%><br><br>
-- <%=htmlencode(rs("topic"))%><br>
<%=ubbcode(rs("body"))%>
<hr>
</TD></TR></TBODY></TABLE>
<%
rs.movenext
loop
rs.close
%>
<!----------------------贴子显示End---------------------->
<%
end sub
sub showErrMsg()
%>
<table cellpadding=0 cellspacing=0 border=0 width=750 bgcolor=#777777 align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr align="center">
<td width="100%" bgcolor=#EEEEEE>错误：显示贴子</td>
</tr>
<tr>
<td width="100%" bgcolor=#FFFFFF><b>产生显示贴子错误的可能原因：</b><br><br>
<li>您是否仔细阅读了<a href=javascript:openScript('help.asp?action=announce',500,400)>帮助文件</a>
<%=errmsg%>
</td>
</tr>
<tr align="center">
<td width="100%" bgcolor=#EEEEEE>
<a href="javascript:history.go(-1)"> << 返回上一页</a>
</td>
</tr>
</table> </td></tr></table>
<%
end sub
Sub getInput()
'On Error Resume Next
Rem ------获取版面ID------
BoardID = Request("BoardID")
AnnounceID=Cstr(Request("ID"))
RootID=request("RootID")
End Sub
sub chkInput
'on error resume next
if boardID="" then
foundErr = true
ErrMsg=ErrMsg+"<br>"+"<li>请指定论坛版面</li>"
end if
if announceid="" then
foundErr = true
ErrMsg=ErrMsg+"<br>"+"<li>请指定相关贴子</li>"
end if
if rootid="" then
foundErr = true
ErrMsg=ErrMsg+"<br>"+"<li>请指定相关贴子</li>"
end if
end sub
set urs=nothing
set rs=nothing
Call endConnection
%>
<!--#include file="footer.asp"-->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -