setup.asp

感谢您使用BBSXP

''''''''''''''''''''''''''''''''
sub responseend
Conn.close
set rs=nothing
set rs1=nothing
set Conn=nothing
set SiteSettings=nothing
Response.End
end sub
''''''''''''''''''''''''''''''''


sub ForumTree(selec)
sql="Select * From [BBSXP_Forums] where id="&selec&""
Set Rs1=Conn.Execute(sql)
if not rs1.eof then
ForumTreeList="<span id=temp"&selec&"><a onmouseover=loadtree('"&selec&"') href=ShowForum.asp?ForumID="&Rs1("id")&">"&Rs1("ForumName")&"</a></span> → "&ForumTreeList&""
ForumTree Rs1("followid")
end if
Set Rs1 = Nothing
end sub



sub menu(selec)
sql="Select * From [BBSXP_Menu] where followid="&selec&" order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if rs1("followid")=0 then 
%> | <a onmouseover="showmenu(event,'<%menu(rs1("id"))%>')" style=cursor:default><%=rs1("name")%></a><%
else
response.write "<div class=menuitems><a href="&rs1("url")&">"&rs1("name")&"</a></div>"
end if
rs1.Movenext
loop
Set Rs1 = Nothing
end sub

sub ClubTree
sql="Select * From [BBSXP_Forums] where followid=0 and ForumHide=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
ClubTreeList=ClubTreeList&"<div class=menuitems><a href=ShowForum.asp?ForumID="&Rs1("id")&">"&Rs1("ForumName")&"</a></div>"
rs1.Movenext
loop
Set Rs1 = Nothing
response.write "<a onmouseover="&Chr(34)&"showmenu(event,'"&ClubTreeList&"')"&Chr(34)&" href=Default.asp>"&SiteSettings("SiteName")&"</a>" 
end sub

sub BBSList(selec)
sql="Select * From [BBSXP_Forums] where followid="&selec&" and ForumHide=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
Response.write "<option value="&rs1("ID")&">"&string(ii,"　")&""&rs1("ForumName")&"</option>"
ii=ii+1
BBSList rs1("id")
ii=ii-1
rs1.Movenext
loop
Set Rs1 = Nothing
end sub

sub ShowForum()
if Rs1("ForumPassword")<>"" or Rs1("ForumPass")>2 then
ShowForumIcon=3
else
ShowForumIcon=Rs1("ForumPass")
end if

if rs1("Moderated")<>empty then
ModeratedList="版主："
filtrate=split(rs1("Moderated"),"|")
for i = 0 to ubound(filtrate)
ModeratedList=ModeratedList&"<a href=Profile.asp?UserName="&filtrate(i)&">"&filtrate(i)&"</a> "
next
else
ModeratedList=""
end if
%>
<tr>
<td align="middle" width="5%" bgcolor="#ffffff">
<img src="images/skins/<%=Request.Cookies("skins")%>/Board<%=ShowForumIcon%>.gif"></td>
<td bgcolor="#ffffff">
<table cellspacing="0" cellpadding="3" width="100%" border="0">
	<tr>
		<td valign="top">『 <a href="ShowForum.asp?ForumID=<%=Rs1("id")%>"><%=Rs1("ForumName")%></a> 』</td>
		<td align="right" rowspan="2"><%if Rs1("ForumIcon")<>"" then%><img src="<%=Rs1("ForumIcon")%>" onload="javascript:if(this.width&gt;100)this.width=100;if(this.height&gt;60)this.height=60;"><%end if%></td>
		<td width="30%" rowspan="2">
<%if ShowForumIcon=3 then%> 
私密论坛
<%else%>
主题:<%=Rs1("lastTopic")%><br>
作者:<a href="Profile.asp?UserName=<%=Rs1("lastname")%>"><%=Rs1("lastname")%></a><br>
时间:<%=Rs1("lasttime")%>
<%end if%>
		</td>
	</tr>
	<tr>
		<td><%=Rs1("ForumIntro")%></td>
	</tr>
	<tr class="a3">
		<td colspan="2"><%=ModeratedList%></td>
		<td>
		<table cellspacing="0" width="100%" border="0">
			<tr>
				<td width="33%">今日:<font color="red"><%=Rs1("ForumToday")%></font></td>
				<td width="33%">主题:<%=Rs1("ForumThreads")%></td>
				<td width="33%">帖子:<%=Rs1("ForumPosts")%></td>
			</tr>
		</table>
		</td>
	</tr>
</table>
</td>
</tr>
<%
end sub

sub ShowThread()
if Rs("IsTop")=2 then
IconImage="<img src=images/top.gif border=0>"
elseif Rs("IsTop")=1 then
IconImage="<img src=images/f_top.gif border=0>"
elseif Rs("IsLocked")=1 then
IconImage="<img src=images/f_locked.gif border=0>"
elseif Rs("IsVote")="1" then
IconImage="<img src=images/f_poll.gif border=0>"
elseif Rs("replies")=>SiteSettings("PopularPostThresholdPosts") or  Rs("Views")=>SiteSettings("PopularPostThresholdViews") then
IconImage="<img src=images/f_hot.gif border=0>"
elseif Rs("replies")>0 then
IconImage="<img src=images/f_New.gif border=0>"
else
IconImage="<img src=images/f_norm.gif border=0>"
end if

if Rs("IsGood")=1 then
IsGoodIcon="<img alt='精华帖子' src=images/Topicgood.gif>"
else
IsGoodIcon=""
end if


if Rs("replies")=0 then
replies="-"
else
replies=Rs("replies")
end if


if Rs("SpecialTopic")<>"" then
SpecialTopicHtml="["&Rs("SpecialTopic")&"]"
else
SpecialTopicHtml=""
end if

if Rs("icon")>0 then
icon="<img src=images/brow/"&Rs("icon")&".gif> "
else
icon=""
end if

if Rs("replies")=>SiteSettings("PostsPerPage") then
MaxPostPage=fix(Rs("replies")/SiteSettings("PostsPerPage"))+1 '共多少页
ShowPostPage="( <img src=images/multiPage.gif> "
For PostPage = 1 To MaxPostPage
if PostPage<11 or MaxPostPage=PostPage then ShowPostPage=""&ShowPostPage&"<a href=ShowPost.asp?PageIndex="&PostPage&"&ThreadID="&Rs("ID")&"><b>"&PostPage&"</b></a> "
Next
ShowPostPage=""&ShowPostPage&")"
else
ShowPostPage=""
end if
%>
<tr class=a3>
<td width=5% align=center><a target=_blank href=ShowPost.asp?ThreadID=<%=Rs("ID")%>><%=IconImage%></a></td>
<td>
<table cellSpacing=0 cellPadding=0 width=100% border=0><tr><td><%=icon%><%=SpecialTopicHtml%><a href=ShowPost.asp?ThreadID=<%=Rs("ID")%>><%=Rs("Topic")%></a></td><td noWrap align=right><%=IsGoodIcon%></td></tr></table>
<table cellSpacing=0 cellPadding=0 width=100% border=0><tr><td>by <a href=Profile.asp?UserName=<%=Rs("UserName")%>><%=Rs("UserName")%></a></td><td align=right><%=ShowPostPage%>
</td></tr></table></td><td>by <a href=Profile.asp?UserName=<%=Rs("lastname")%>><%=Rs("lastname")%></a><br><%=Rs("lasttime")%></td><td align=center><%=replies%></td><td align=center><%=Rs("Views")%></td></tr><%
end sub

%>