showthread.asp

酷虎网同学录V1.0

<!--#INCLUDE FILE="setup.asp" -->
<!--#include file="char.asp" -->
<!--#include file="ubbcode.asp" -->
<!--#include file="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<%

locat="校园论坛"
act="浏览帖子"
call top(2,1)

dim topic
dim topicid
dim hits


dim currentpage
dim totalpages

dim rs
dim abgcolor
call main()

sub main()

topicid=request("RootID")
sql="select topic,hits from bbs where parentid=0 and bbsid="&topicid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	errmsg=errmsg+"<br><li>您要查看的主题不存在！"
	call error("Exclamation",errmsg)
	exit sub
end if
topic=rs(0)
hits=rs(1)

set rs=nothing

call topictop()
call showreplys()

if membername<>"" then
	call fastreply()
	if sysadmin then call managemenu()
end if



conn.execute("update bbs set hits=hits+1 where parentid=0 and bbsid="&topicid)
end sub

sub topicTop()
dim nrs

set nrs=conn.execute("select top 1 bbsid from bbs where parentid=0 and bbsid>"&topicid&" order by bbsid")
if not (nrs.eof and nrs.bof) then
pretopic=nrs(0)
end if
set nrs=conn.execute("select top 1 bbsid from bbs where parentid=0 and bbsid<"&topicid&" order by bbsid desc")
if not (nrs.eof and nrs.bof) then
nxttopic=nrs(0)
end if

response.write "<BR><BR><table cellpadding=0 cellspacing=0 border=0 width=""100%"" align=center>"&_
			"<tr><td align=left width=""30%"" valign=middle><a href=NewTopic.asp>"&_ 
			"<img src=images/topic.gif alt=发表一个新主题 border=0></a>&nbsp; <a href=NewReply.asp?RootID="&topicid&">"&_ 
			"<img src=images/reply.gif alt=回复主题 border=0></a></td>"&_
			"<td align=right width=""70%"" valign=middle><font color="&BodyFontColor&">您是本帖的第 <B>"&hits&"</B> 个阅读者