关于论坛风格问题![晴川请进]

我来也

老大!

  怎么才可以把风格改成默认的风格啊??



  怎么才可以添加风格模块???

我来也

还有怎么 才可以在论坛首页显示  新帖  热帖 回帖  ???



呵呵!

  不懂的太多,希望能多多教我!

晴川

风格在后台基本设置里默认风格里填写ID号就行了，例如方格文件夹是12那就填12

首页加最新帖子、人气帖子等的话，要改Default.asp文件并且要加tcfb.asp文件

tcfb.asp文件的内容如下

<br>
<table cellspacing="1" cellpadding="4" width=100% border="0" class="a2" align="center">
  <tr class="a1"><td valign="center" align="middle" width="33%">..::最新发表主题::..</td><td valign="center" align="middle" width="33%">..::本周最强人气::.. </td><td valign="center" align="middle" width="33%">..::本周最多回复 </td></tr>
<tr class="a4"><td><%
sql="select top 6 * from [BBSXP_Threads] where IsDel=0 order by id Desc"
rs.Open sql,Conn,1
Do While Not RS.EOF
titletop=""&left(""&rs("topic")&"",12)&""
if titletop="<font color=" then
Count=35
else
Count=17
end if
response.write "<IMG src=images/tong.gif border=0> <a href=ShowPost.asp?ThreadID="&rs("id")&">"&left(""&rs("topic")&"",""&Count&"")&"</a><br>"
RS.MoveNext
loop
rs.close
%>
</td><td>
<%
sql="select top 6 * from [BBSXP_Threads] where IsDel=0 and PostTime>"&SqlNowString&"-7 order by Views Desc"

Set Rs=Conn.Execute(sql)
Do While Not RS.EOF
titletop=""&left(""&rs("topic")&"",12)&""
if titletop="<font color=" then
Count=35
else
Count=17
end if
response.write "<IMG src=images/tong.gif border=0> <a href=ShowPost.asp?ThreadID="&rs("id")&">"&left(""&rs("topic")&"",""&Count&"")&"</a><br>"
RS.MoveNext
loop
rs.close
%></td><td>
<%

sql="select top 6 * from [BBSXP_Threads] where IsDel=0 and PostTime>"&SqlNowString&"-7 order by replies Desc"
Set Rs=Conn.Execute(sql)
Do While Not RS.EOF
titletop=""&left(""&rs("topic")&"",12)&""
if titletop="<font color=" then
Count=35
else
Count=17
end if
response.write "<IMG src=images/tong.gif border=0> <a href=ShowPost.asp?ThreadID="&rs("id")&">"&left(""&rs("topic")&"",""&Count&"")&"</a><br>"
RS.MoveNext
loop
rs.close
%>

</td></tr></table>

我来也

谢谢老大！！



   太感谢!！



是把上面的代码直接复制进去就可以?？？？

我来也

改Default.asp文件？？



这个怎么改!？？