<% '========================================================= ' File: printpage.asp ' Version:5.0 ' Date: 2002-9-10 ' Script Written by satan '========================================================= ' Copyright (C) 2001,2002 AspSky.Net. All rights reserved. ' Web: http://www.aspsky.net,http://www.dvbbs.net ' Email: info@aspsky.net,eway@aspsky.net '========================================================= dim urs,usql dim rsboard,boardsql dim announceid dim username dim rootid dim topic dim abgcolor dim postbuyuser dim replyid abgcolor="#FFFFFF" Dim TotalUseTable if request("id")="" then founderr=true Errmsg=Errmsg+"
"+"

请指定相关贴子。" elseif not isInteger(request("id")) then founderr=true Errmsg=Errmsg+"
"+"

非法的贴子参数。" else AnnounceID=request("id") end if if foundErr then call nav() call head_var(2,0,"","") call dvbbs_error() else call announceinfo() if founderr then call dvbbs_error() end if call footer() sub announceinfo() set rs=conn.execute("select title,PostTable from topic where topicID="&AnnounceID) if not(rs.bof and rs.eof) then TotalUseTable=rs(1) topic=rs(0) else foundErr = true ErrMsg=ErrMsg+"
"+"

您指定的贴子不存在

" exit sub end if rs.close %>

以文本方式查看主题 -  <%=Forum_info(0)%>  (<%=Forum_info(1)%>index.asp) --  <%=boardtype%>  (<%=Forum_info(1)%>list.asp?boardid=<%=boardid%>) ----  <%=htmlencode(topic)%>  (<%=Forum_info(1)%>dispbbs.asp?boardid=<%=boardid%>&rootid=<%=rootid%>&id=<%=announceid%>)

---

<% Rs.open "Select b.UserName,b.Topic,b.dateandtime,b.body,u.UserGroupID,b.postbuyuser from "&TotalUseTable&" b inner join [user] u on b.PostUserID=u.userid where b.boardid="&boardid&" and b.rootid="&Announceid&" order by b.announceid",conn,1,1 if rs.eof and rs.bof then founderr=true Errmsg=Errmsg+"
"+"

没有找到相关帖子。" exit sub end if do while not rs.eof postbuyuser=rs("postbuyuser") username=rs(0) %>

--  作者：<%=rs("username")%> --  发布时间：<%=rs("dateandtime")%> --  <%=htmlencode(rs("topic"))%> <%=dvbcode(rs("body"),rs("UserGroupID"),1)%>

<% rs.movenext loop rs.close set rs=nothing call activeonline() end sub %>