<!--#include file="conn.asp"-->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/birthday.asp"-->
<!-- #include file="inc/ubbcode.asp" -->
<!--#include file="head_bbs.asp"-->
<%
	dim rs,sql
	dim boardid,announceid_1
	dim username,rootid,topic,topic_1
	dim star,totalrec,p,i,page_count
	dim bgcolor,abgcolor,namestyle
	dim istop,isvote
	dim onlineUserList
	dim view
	dim boardstat
	dim userbirth,sex,times
	dim nskin,skinpic,skiname
	i=1

    	foundErr = false
    	ErrMsg = ""

	stats="瀏覽帖子"
    	if foundErr then
		call nav()
		call headline(2)
		call error()
	else
    		call chkInput()
		if founderr then
			call nav()
			call headline(2)
			call error()
		else
    			call chktopic()
			if founderr then
				call nav()
				call headline(2)
				call error()
			else
				call nav()
				call headline(2)
				call subOnline()
				call TopicTop()
				if cint(skin)=1 then
				call showTopic_2()
				call treelist()
				else
				call showTopic_1()
				call listpage()
				end if
				call fastreply()
				if founderr then call error()
			end if
		end if
	end if
	call endline()

	sub chktopic()
	if cint(boardskin)=6 then
		if membername="" then
		response.write "<script>location.href='login.asp'</script>"
		response.end
		end if
	elseif cint(boardskin)=5 then
		if membername="" then
			founderr=true
			Errmsg=Errmsg+"<br>"+"<li>本論壇為認(rèn)證論壇，請(qǐng)<a href=login.asp><font color="&TableContentColor&">登陸</font></a>并確認(rèn)您的用戶名已經(jīng)得到管理員的認(rèn)證后進(jìn)入。"
			exit sub
		else
			if chkboardlogin(boardid,membername)=false then
			founderr=true
			Errmsg=Errmsg+"<br>"+"<li>本論壇為認(rèn)證論壇，請(qǐng)確認(rèn)您的用戶名已經(jīng)得到管理員的認(rèn)證后進(jìn)入。"
			exit sub
			end if
		end if
	end if
    conn.execute("update bbs1 set hits=hits+1 where announceID="&AnnounceID_1&"")
	sql="select topic,istop,isbest,username,hits,times from bbs1 where announceID="&rootID&""
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if not(rs.bof and rs.eof) then
		topic_1=rs(0)
		istop=rs(1)
		isbest=rs(2)
		username=rs(3)
		view=rs(4)
		times=rs(5)
		stats=""&boardtype&"瀏覽："&topic_1&""
		if username=membername and membername<>"" then call readRe()
	else
		foundErr = true
		ErrMsg=ErrMsg+"<br>"+"<li>您指定的貼子不存在</li>"
	end if
	rs.close
	set rs=nothing
	end sub

	sub topicTop()
	response.write "<table cellpadding=0 cellspacing=0 border=0 width="""&TableWidth&""" align=center>"&_
			"<tr><td align=left width=""30%"" valign=middle>&nbsp; <a href=announce.asp?boardid="&boardid&">"&_ 
			"<img src="&picurl&P_post&" alt=發(fā)表一個(gè)新主題 border=0></a>&nbsp; <a href=vote.asp?boardid="&boardid&">"&_ 
			"<img src="&picurl&P_vote&" alt=發(fā)表一個(gè)新投票 border=0></a>&nbsp;<a href=reannounce.asp?boardid="&boardid&"&rootid="&rootid&"&id="&announceid_1&">"&_ 
			"<img src="&picurl&P_reply&" alt=回復(fù)主題 border=0></a></td>"&_
			"<td align=right width=""70%"" valign=middle><font color="&BodyFontColor&">您是本帖的第 <B>"&view&"</B> 個(gè)閱讀者