forumdisplay.asp

ASP整套的建站源代码

<OPTION value=forumdisplay.asp?forumid=<%=forumid%>&TimeLimit=30>查看一个月内的主题
<OPTION value=forumdisplay.asp?forumid=<%=forumid%>&TimeLimit=60>查看两个月内的主题
<OPTION value=forumdisplay.asp?forumid=<%=forumid%>&TimeLimit=180>查看半年内的主题</OPTION>
</SELECT></TD></TR></TBODY></TABLE>

<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25>
<TD width=21 background=images/title_sub.gif>　</TD>
<TD width=22 background=images/title_sub.gif>　</TD>
<TD align=middle height=24 background=images/title_sub.gif>
<font color="#000000">
<a href="forumdisplay.asp?forumid=<%=forumid%>&order=topic&search=<%=Request("search")%>&key=<%=Request("key")%>&TimeLimit=<%=Request("TimeLimit")%>">
<font color="#000000">主题</font></a></font></TD>
<TD align=middle width=70 height=24 background=images/title_sub.gif>
<font color="#000000">
<a href="forumdisplay.asp?forumid=<%=forumid%>&order=username&search=<%=Request("search")%>&key=<%=Request("key")%>&TimeLimit=<%=Request("TimeLimit")%>">
<font color="#000000">作者</font></a></font></TD>
<TD align=middle width=40 height=24 background=images/title_sub.gif>
<a href="forumdisplay.asp?forumid=<%=forumid%>&order=replies&search=<%=Request("search")%>&key=<%=Request("key")%>&TimeLimit=<%=Request("TimeLimit")%>">
<font color="#000000">字[回]</font></a></TD>
<TD align=middle width=32 height=24 background=images/title_sub.gif>
<a href="forumdisplay.asp?forumid=<%=forumid%>&order=Views&search=<%=Request("search")%>&key=<%=Request("key")%>&TimeLimit=<%=Request("TimeLimit")%>">
<font color="#000000">点击</font></a></TD>
<TD width=200 height=24 background=images/title_sub.gif>　　
<a href="forumdisplay.asp?forumid=<%=forumid%>&search=<%=Request("search")%>&key=<%=Request("key")%>&TimeLimit=<%=Request("TimeLimit")%>">
<font color="#000000">最后更新</font></a>　　　　 <font color=000000>
<a href="forumdisplay.asp?forumid=<%=forumid%>&order=lastname&search=<%=Request("search")%>&key=<%=Request("key")%>&TimeLimit=<%=Request("TimeLimit")%>">
<font color="#000000">最后回复</font></a></font></TD></TR></TBODY></TABLE>


<%
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1

if Not Response.IsClientConnected then
responseend
end if



if rs("toptopic")=1 then
reimage="<img src=images/f_top.gif>"
elseif rs("locktopic")=1 then
reimage="<img src=images/f_locked.gif>"
elseif rs("polltopic")<>"" then
reimage="<img src=images/f_poll.gif>"
elseif rs("replies")>15 or rs("views") > 150 then
reimage="<img src=images/f_hot.gif>"
elseif rs("replies")>0 then
reimage="<img src=images/f_new.gif>"
else
reimage="<img src=images/f_norm.gif>"
end if

if rs("goodtopic")=1 then
reimage2="<img src=images/topicgood.gif>"
elseif rs("username")=""&Request.Cookies("username")&"" then
reimage2="<img src=images/my.gif>"
else
reimage2=""
end if

if rs("replies")>0 then
replies="<font color=red>["&rs("replies")&"]</font>"
else
replies=Len(rs("content"))
end if
newtopic=""
topicpage=""
if rs("posttime")+1 > Now() then
newtopic="<img src=images/new.gif>"
end if
if rs("replies") > 15 then
topicpageend=(rs("replies")-1)/15+1
for topicpagestart=1 to topicpageend
topicpage=""&topicpage&" <b><a href=showtopic.asp?topage="& topicpagestart &"&forumid="&forumid&"&id="&rs("id")&">" & topicpagestart & "</a></b> "
next
topicpage=" ( <img src=images/multipage.gif>"&topicpage&") "
end if
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25>
<TD align=middle width=21 bgColor=ecf5ff><%=reimage%>　</TD>
<TD width=22 bgColor=f2f8ff><%=reimage2%>　</TD>
<TD onmouseover="this.style.backgroundColor='f2f8ff'" onmouseout="this.style.backgroundColor=''" align=left bgColor=ecf5ff>
<img loaded="no" src=images/plus.gif id="followImg<%=rs("id")%>" style="cursor:hand;" onclick="loadThreadFollow(<%=rs("id")%>)">
<a target="_blank" href="showtopic.asp?id=<%=rs("id")%>&forumid=<%=rs("forumid")%>"><img border=0 alt=新窗口 src=images/brow/<%=rs("icon")%>.gif></a> <a href=showtopic.asp?id=<%=rs("id")%>&forumid=<%=rs("forumid")%>&page=<%=i-21+PageCount*20%>><%=rs("topic")%></a> <%=topicpage%><%=newtopic%></TD>
<TD align=middle width=70 bgColor=f2f8ff><a href=profile.asp?username=<%=rs("username")%>><%=rs("username")%>　</TD>
<TD align=middle width=40 bgColor=ecf5ff><%=replies%>　</TD>
<TD align=middle width=32 bgColor=f2f8ff><%=rs("views")%>　</TD>
<TD align=left width=200 bgColor=ecf5ff>&nbsp;<%=rs("lasttime")%> | <a href=profile.asp?username=<%=rs("lastname")%>><%=rs("lastname")%></a></TD></TR>
</TBODY></TABLE>

<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25 style="display:none" id="follow<%=rs("id")%>">
<TD width=21 bgColor=ecf5ff>　</TD>
<TD width=22 bgColor=f2f8ff>　</TD>
<TD id="followTd<%=rs("id")%>" align=left bgColor=f2f8ff>
<div onclick="loadThreadFollow(<%=rs("id")%>)"><table width=100% cellpadding=10><tr><td width=100%>Loading...</td></tr></table></div>
</TD>
</TR>
</TBODY></TABLE>
<%
RS.MoveNext
loop
RS.Close
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25>
<TD height=2 background=images/title_sub.gif>
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD height=2>&nbsp;<b>本论坛共有 <font color="#990000"><%=TotalPage%></font> 
页 [
<%
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1&forumid="&forumid&"&order="&Request("order")&"&search="&Request("search")&"&key="&Request("key")&"&TimeLimit="&Request("TimeLimit")&">1</a> ... "
end if


for i=ii to iii
If i<>PageCount then
Response.Write " <a href=?topage="& i &"&forumid="&forumid&"&order="&Request("order")&"&search="&Request("search")&"&key="&Request("key")&"&TimeLimit="&Request("TimeLimit")&">" & i & "</a> "
else
Response.Write " <font color=#000000><b>"&i&"</b></font> "
end if
next

if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&"&forumid="&forumid&"&order="&Request("order")&"&search="&Request("search")&"&key="&Request("key")&"&TimeLimit="&Request("TimeLimit")&">"&TotalPage&"</a>"
end if
%> ]</b></TD>
<form name=form method="POST" action=javascript:Check()>
<TD height=2 align="right">
<select onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<option selected>跳转论坛至...</option>

<%
rs.Open "class order by id",Conn
do while not rs.eof
%>
<option style=BACKGROUND-COLOR:ECF5FF>╋ <%=rs("classname")%></option>
<%
sql="select id,bbsname from bbsconfig where classid="&rs("id")&""
rs1.Open sql,Conn
do while not rs1.eof
%>
<option value="forumdisplay.asp?forumid=<%=rs1("id")%>">　├『<%=rs1("bbsname")%>』</option>
<%
rs1.movenext
loop
rs1.close
rs.movenext
loop
rs.close
%>

</select>


</TD></form>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<br>
<center>
<table cellSpacing="4" cellPadding="0" width="651" border="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td noWrap width="200">
<img alt src="images/f_new.gif" border="0">&nbsp;打开主题 (有回复的主题)</td>
<td noWrap width="100">
<img alt src="images/f_hot.gif" border="0">&nbsp;热门主题 </td>
<td noWrap width="100">
<img alt src="images/f_locked.gif" border="0">&nbsp;锁定主题</td>
<td noWrap width="150">
<img src="images/topicgood.gif">
精华主题</td>
</tr>
<tr>
<td noWrap width="200">
<img alt src="images/f_norm.gif" border="0">&nbsp;打开主题 (没有回复的主题)</td>
<td noWrap width="100">
<img alt src="images/f_poll.gif" border="0">&nbsp;投票主题</td>
<td noWrap width="100">
<img alt src="images/f_top.gif" border="0">&nbsp;置顶主题</td>
<td noWrap width="150">
<img src="images/my.gif">
自己发表的主题</td>
</tr>
</table>
</center>
<%
htmlend
%>