dispbbs.asp

生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序

<!--#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>本论坛为认证论坛，请<a href=login.asp><font color="&TableContentColor&">登陆</font></a>并确认您的用户名已经得到管理员的认证后进入。"
			exit sub
		else
			if chkboardlogin(boardid,membername)=false then
			founderr=true
			Errmsg=Errmsg+"<br>"+"<li>本论坛为认证论坛，请确认您的用户名已经得到管理员的认证后进入。"
			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=发表一个新主题 border=0></a>&nbsp; <a href=vote.asp?boardid="&boardid&">"&_ 
			"<img src="&picurl&P_vote&" alt=发表一个新投票 border=0></a>&nbsp;<a href=reannounce.asp?boardid="&boardid&"&rootid="&rootid&"&id="&announceid_1&">"&_ 
			"<img src="&picurl&P_reply&" alt=回复主题 border=0></a></td>"&_
			"<td align=right width=""70%"" valign=middle><font color="&BodyFontColor&">您是本帖的第 <B>"&view&"</B> 个阅读者