帮个大忙,对你来说是小忙!

By 宝宝 at 2007-09-24 • 0人收藏 • 1437人看过

我的论坛首页的表格有点大,如何将其改小?

新手求助

4 个回复 | 最后更新于 2007-10-14

admin

2007-10-07 #1

有没有代码
看不到代码
我这么帮你啊

宝宝

2007-10-07 #2

<%
GroupID=RequestInt("GroupID")
HtmlTop
%>
<script src="time.js"></script>
<div id="CommonBreadCrumbArea">

<div style="float:right"><a href="Archiver.asp">Archiver</a></div>

</div>
<%
sql="[BBSXP_Threads] where IsApproved=1 and IsDel=0 and ThreadTop=2 order by ThreadID Desc"
Set Rs=Execute(sql)
if Not Rs.Eof Then
%>
<table cellspacing=1 cellpadding=5 width=100% id=CommonListArea>
<tr id=CommonListTitle>
  <td>公告</td>
</tr>
<tr id=CommonListCell>
  <td>
   <marquee onMouseOver="this.stop();" onMouseOut="this.start();" scrollAmount="3">
<%
  Do While Not Rs.Eof
   Response.Write "<a href='ShowPost.asp?ThreadID="&Rs("ThreadID")&"'><b>"&Rs("Topic")&"</b> ("&FormatDateTime(Rs("PostTime"),2)&")</a>　　"
   Rs.MoveNext
  Loop
%>
   </marquee>
  </td>
</tr>
</table>

End If
Rs.Close
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX                                      XXX
'XXX         XXXXXXXX      XXX   XX       XXX
'XXX         XXX    XX    XXX XXX         XXX
'XXX        XXX    XX    XXXX             XXX
'XXX       XXX    XX    XXX XX           XXX
'XXX      XXXXXXXX     XXX     XXX        XXX
'XXX                                      XXX
'XXXXXXXXX [DK贴图集v1.5首页代码段开始] XXXXXXXXXXXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
imgnum=10 '您想有首页最多显示多少张图片，可以改数字

imgheight=140 '图片做由下向上移动时的图片显示区域的高度像素值
imglistshowset=1 '当同时显示N条贴子链接时，图片做由下向上移动时设值为1，幻灯片效果显示图片设值为2

'幻灯显示完所有图片，第一轮显示不限制时间，图片下载完才跳到下一张，第二轮开始用以下参数显示,1000为1秒
imghdsec="2900" '幻灯显示模式下，从显示第二轮开始每张图片的停留时间，1000为1秒，默认为2900

setnum=0 '减短文字的参数，如果您的首页在1024X768分辨下也是限定为按800X600显示，那就要设置为210，这个数值默认为0，值越大，标题截得越短
noorderbyid="no" '您想随机显示图片请填写 yes，否则填写 no

howshow=1 '您想同时显示最新图片、最新贴子、最强人气、最多回复，值就为1；如果只想横向显示最新图片，值就为2
ShowTopic=10 '共显示多少条最近更新信息，最新贴子、最强人气、最多回复等等贴子的标题数
jumptofile="ShowPost" '点链接后跳到的文件，贴子为"ShowPost"，新闻模式为"news"，新闻模式必须有news.asp这个文件存在
kfids="" '要排除版区，这些版区的贴子标题不会显示在贴子列表，多个版区ID用 | 分隔，如 kfids="3|19" 那就不显示版区forumid为3和9的贴子标题了

'下面是四个列表都显示时的排序，请用数字1、2、3、4，不要用其它数字表示序号
newmsg_1=1   '最新图片显示序号，改数字
newmsg_2=2   '最新发表主题的显示序号，改数字
newmsg_3=3   '本周最强人气的显示序号，改数字
newmsg_4=4   '本周最多回复的显示序号，改数字
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
if kfids<>empty then
if instr(kfids,"|") then
set kfids_t=nothing
kfids_t=split(kfids,"|")
for ikfids=0 to ubound(kfids_t)
if isnumeric(""&kfids_t(ikfids)&"") then
kfidall=kfidall&" and forumid<>"&int(kfids_t(ikfids))
end if
next
else
if isnumeric(""&kfids&"") then kfidall=" and forumid<>"&kfids
end if
end if
response.write "<script>"&vbcrlf&"//######## 以下代码由IPSC原创，用于BBSXP首页最近更新标题的自动截短 #########"&vbcrlf&"function dk_topic_cut2(showtopic10,showfont){"&vbcrlf&"var All2="&chr(34)&"|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|0|1|2|3|4|5|6|7|8|9|!|@|#|$|%|^|&|*|(|)|_|+|=|-|[|{|]|}|\|;|:|'|<|,|>|.|/|?|`|~| |"&chr(34)&" "&vbcrlf&"var checknum=0;"&vbcrlf&"var anum=1;"&vbcrlf&"var showallt = "&chr(34)&""&chr(34)&";"&vbcrlf&"var showallt"&vbcrlf&"var bnum=0;"&vbcrlf&"if (showfont != ''){document.write(showfont);}"&vbcrlf&"for(i=0;i<=showtopic10.length;i++) {"&vbcrlf&"checknum=checknum+60;"&vbcrlf&"if (All2.indexOf("&chr(34)&"|"&chr(34)&"+showtopic10.substring(i-1,i)+"&chr(34)&"|"&chr(34)&") != -1){checknum=checknum-30;bnum=bnum-30;anum=anum*(-1);}"&vbcrlf&"if (checknum<=document.body.clientWidth-"&setnum+30&"){document.write(showtopic10.substring(i-1,i));bnum=bnum+60;}"&vbcrlf&"}"&vbcrlf&"if (anum==-1 && checknum>document.body.clientWidth-"&setnum+60&"){if (((bnum/30)>=32 && (bnum/30)<32) || ((bnum/30)>=23 && (bnum/30)<24) ){document.write("&chr(34)&".."&chr(34)&");}else{document.write("&chr(34)&"..."&chr(34)&");}}"&vbcrlf&"if (anum==1 && checknum>document.body.clientWidth-"&setnum+60&"){document.write("&chr(34)&".."&chr(34)&");}"&vbcrlf&"if (showfont != ''){document.write("&chr(34)&"<\/font>"&chr(34)&");}"&vbcrlf&"}"&vbcrlf&"</script>"
if howshow=2 then
response.write "<table cellspacing=1 cellpadding=5 width=100% border=0 id=CommonListArea align=center><tr id=CommonListTitle><td valign=center align=middle width=100% >..::最新主题图片::..</td></tr><tr height=25 id=CommonListCell>"
else
response.write "<table cellspacing=1 cellpadding=5 width=100% border=0 id=CommonListArea align=center><tr id=CommonListTitle>"
for imsgdesc=0 to 4
if imsgdesc=newmsg_1 then response.write "<td valign=center align=middle width=25% class=a1>..::最新主题图片::..<span style="&chr(34)&"font-size: 9pt"&chr(34)&" id="&chr(34)&"imgid3"&chr(34)&"></span></td>"
if imsgdesc=newmsg_2 then response.write "<td valign=center align=middle width=25% class=a1>..::最新发表主题::..</td>"
if imsgdesc=newmsg_3 then response.write "<td valign=center align=middle width=25% class=a1>..::本周最强人气::.. </td>"
if imsgdesc=newmsg_4 then response.write "<td valign=center align=middle width=25% class=a1>..::本周最多回复::.. </td>"
next
response.write "</tr><tr id=CommonListCell height=25>"
end if
sfind="order by id Desc"
if noorderbyid="yes" then sfind=""
sql="select top "&imgnum+11&" id,username,picreadme,addwhen,picurl from [DK_NEWPIC_PLUS] where nosee=0 "&sfind&""
rs.Open sql,Conn,1,3
iimgnum=0'临时用
if howshow=2 then response.write "<td align=center>"
do while not rs.eof and iimgnum<imgnum

if instr(rs("picurl"),"/face")>0 or instr(rs("picurl"),"/emotions")>0 then'自动删除并跳过表情、头像图片
rs.delete
rs.update
rs.movenext
do while not rs.eof
if instr(rs("picurl"),"/face")>0 or instr(rs("picurl"),"/emotion")>0 or instr(rs("picurl"),"/affix.gif")>0 then
rs.delete
rs.update
rs.movenext
else
iimgnum=iimgnum+1
exit do
end if
loop
else
iimgnum=iimgnum+1
end if

if howshow=2 then
showpic=""&showpic&"<td align='center'><A HREF='dk_newpic_plus.asp?menu=showpic&id="&rs("id")&"' title='主　题："&ReplaceText(rs("picreadme"),"<[^>]*>","")&" 
提供者："&rs("username")&"
时　间："&rs("addwhen")&"' target='_blank'><IMG SRC='"&rs("picurl")&"' style='border: 0 solid #000000' width=140 height=120 border=0></A></td>"
else
if imglistshowset=2 then'幻灯片效果，生成链接表
if imghrefall1=empty then
imghrefall1=""&rs("picurl")&""
else
imghrefall1=imghrefall1&"|"&rs("picurl")
end if
if imghrefall2=empty then
imghrefall2="主　题："&ReplaceText(rs("picreadme"),"<[^>]*>","")&" \n提供者："&rs("username")&" \n时　间："&rs("addwhen")&""
else
imghrefall2=imghrefall2&"|主　题："&ReplaceText(rs("picreadme"),"<[^>]*>","")&" \n提供者："&rs("username")&" \n时　间："&rs("addwhen")&""
end if
if imghrefall3=empty then
imghrefall3=""&rs("id")&""
else
imghrefall3=imghrefall3&"|"&rs("id")&""
end if
else
showpic1=""&showpic1&"<br><br><A HREF='dk_newpic_plus.asp?menu=showpic&id="&rs("id")&"' title="&chr(34)&"主　题："&ReplaceText(rs("picreadme"),"<[^>]*>","")&"
提供者："&rs("username")&"
时　间："&rs("addwhen")&""&chr(34)&" target='_blank'><IMG SRC='"&rs("picurl")&"' style='border: 0 solid #000000' width='170' border='0'></A>"
end if

end if
rs.movenext
loop
rs.close
if howshow=2 then
response.write "<marquee onMouseOver=this.stop() onMouseOut=this.start() border=0 align=middle scrollamount=4 direction=left scrolldelay=60 behavior=alternate width=100% ><table border='0' cellspacing='1' cellpadding='3' align=center width='98%'>"&showpic&"</table></marquee>"
else
if imglistshowset=2 then'幻灯片效果，生成显示代码
showpic1="<td align=center valign=center><a href=dksoft id=imgid1 target=_blank title="&chr(34)&"dksoft"&chr(34)&"><span style="&chr(34)&"font-size: 9pt"&chr(34)&"><img id=imgid2 src=images/loading.gif border=0 onload="&chr(34)&"javascript:if(this.width>170){this.width=170};if(this.height>"&imgheight&"){this.height="&imgheight&";if (i99<1){i99++;countDown8(1)};}else{if (i99<1){i99++;countDown8(1)};};"&chr(34)&" onmouseover="&chr(34)&"javascript:if(this.width>170){this.width=170};i66++;"&chr(34)&" onmouseout="&chr(34)&"javascript:i66=0;countDown8(1)"&chr(34)&"></span></a>"
'显示javascript
showpic1=showpic1&vbcrlf&"<script>"&vbcrlf&"//######## 以下代码由IPSC原创，用于BBSXP首页贴图集图片的幻灯显示模式 #########"&vbcrlf&""
showpic1=showpic1&vbcrlf&"var imghrefall1="&chr(34)&imghrefall1&chr(34)&""
showpic1=showpic1&vbcrlf&"var imghrefall2="&chr(34)&imghrefall2&chr(34)&""
showpic1=showpic1&vbcrlf&"var imghrefall3="&chr(34)&imghrefall3&chr(34)&""
showpic1=showpic1&vbcrlf&"var imglist=imghrefall1.split ('|'); "
showpic1=showpic1&vbcrlf&"var i88=imglist.length"
showpic1=showpic1&vbcrlf&"var i77=0"
showpic1=showpic1&vbcrlf&"var i99=0"
showpic1=showpic1&vbcrlf&"var i66=0"
showpic1=showpic1&vbcrlf&"function countDown8(secs8){"
showpic1=showpic1&vbcrlf&"if (i66==0){"
showpic1=showpic1&vbcrlf&"if (imghrefall1!=''){"
showpic1=showpic1&vbcrlf&"i77++;"
showpic1=showpic1&vbcrlf&"imgid1.href="&chr(34)&"dk_newpic_plus.asp?menu=showpic&id="&chr(34)&"+imghrefall3.split("&chr(34)&"|"&chr(34)&")[i77-1];"
showpic1=showpic1&vbcrlf&"imgid1.title=imghrefall2.split("&chr(34)&"|"&chr(34)&")[i77-1];"
showpic1=showpic1&vbcrlf&"imgid2.src=imghrefall1.split("&chr(34)&"|"&chr(34)&")[i77-1];"
showpic1=showpic1&vbcrlf&"imgid3.innerText="&chr(34)&"["&chr(34)&"+i77+"&chr(34)&"/"&chr(34)&"+i88+"&chr(34)&"]"&chr(34)&";"
showpic1=showpic1&vbcrlf&"if(i77>=i88){i77=0;i99++};"
showpic1=showpic1&vbcrlf&"if (i99>0){"
showpic1=showpic1&vbcrlf&"setTimeout("&chr(34)&"countDown8(1)"&chr(34)&","&imghdsec&");"
showpic1=showpic1&vbcrlf&"}"&vbcrlf&"}"&vbcrlf&"}"&vbcrlf&"}"
showpic1=showpic1&vbcrlf&"countDown8(1);"
showpic1=showpic1&vbcrlf&"</script>"&vbcrlf
   else
showpic1="<td align=center><marquee onMouseOver=this.stop() onMouseOut=this.start() border=0 align=middle scrollamount=1 direction=up scrolldelay=60 behavior=scroll width=100% height='"&imgheight&"'><p align=center>"&showpic1&"</p></marquee>"
end if
end if
showpic1=showpic1&"</td>"
if howshow=1 then
showpic2="<td valign=top>"
sql="select top "&ShowTopic&" Threadid,ThreadEmoticonID,topic from [BBSXP_Threads] where IsDel=0 "&kfidall&" order by Threadid Desc"
rs.Open sql,Conn
Do While Not RS.EOF
if not isnumeric(""&rs("ThreadEmoticonID")&"") then:icon=0:else:icon=rs("ThreadEmoticonID"):end if
'******** 把标题长短截整齐代码段，下同代码原创：IPSC ********
topic=Replace(rs("topic")," ",""):topic=Replace(topic," ",""):topic=Replace(topic,"<","<"):topic=Replace(topic,">",">"):topic_2=""
if instr(rs("topic"),"</font>")>0 then
topic_2=Replace(rs("topic"),"</font>","")
topic_1=split(topic_2,">")
topic_2=topic_1(0)&">"
set topic_1=nothing
if instr(topic_2,"<font")<1 then topic_2=""
end if
topic=ReplaceText(topic,"<[^>]*>","")
showpic2=showpic2&"<IMG src=images/brow/"&icon&".gif border=0 width=12 height=12 alt='"&ReplaceText(rs("topic"),"<[^>]*>","")&"'> <a href="&jumptofile&".asp?ThreadID="&rs("Threadid")&"&ID="&rs("Threadid")&" title='"&ReplaceText(rs("topic"),"<[^>]*>","")&"'><script>dk_topic_cut2('"&topic&"','"&topic_2&"')</script></a><br>"
topic_2=""
'*************** END ****************
RS.MoveNext
loop
RS.Close
showpic2=showpic2&vbcrlf&"</td>"
showpic3=showpic3&vbcrlf&"<td valign=top>" '---------------------
sql="select top "&ShowTopic&" Threadid,ThreadEmoticonID,topic from [BBSXP_Threads] where IsDel=0 and posttime>"&SqlNowString&"-7 "&kfidall&" order by TotalViews Desc,Threadid"
rs.Open sql,Conn
Do While Not RS.EOF
if not isnumeric(""&rs("ThreadEmoticonID")&"") then:icon=0:else:icon=rs("ThreadEmoticonID"):end if
topic=Replace(rs("topic")," ",""):topic=Replace(topic," ",""):topic=Replace(topic,"<","<"):topic=Replace(topic,">",">"):topic_2=""
if instr(rs("topic"),"</font>")>0 then
topic_2=Replace(rs("topic"),"</font>","")
topic_1=split(topic_2,">")
topic_2=topic_1(0)&">"
set topic_1=nothing
if instr(topic_2,"<font")<1 then topic_2=""
end if
topic=ReplaceText(topic,"<[^>]*>","")
showpic3=showpic3&"<IMG src=images/brow/"&icon&".gif border=0 width=12 height=12 alt='"&ReplaceText(rs("topic"),"<[^>]*>","")&"'> <a href="&jumptofile&".asp?ThreadID="&rs("Threadid")&"&ID="&rs("Threadid")&" title="&ReplaceText(rs("topic"),"<[^>]*>","")&"><script>dk_topic_cut2('"&topic&"','"&topic_2&"')</script></a><br>"
topic_2=""
RS.MoveNext
loop
RS.Close
showpic3=showpic3&vbcrlf&"</td>"
showpic4=showpic4&vbcrlf&"<td valign=top>" '---------------------
sql="select top "&ShowTopic&" Threadid,ThreadEmoticonID,topic from [BBSXP_Threads] where IsDel=0 and posttime>"&SqlNowString&"-7 "&kfidall&" order by TotalReplies Desc,Threadid"
rs.Open sql,Conn
Do While Not RS.EOF
if not isnumeric(""&rs("ThreadEmoticonID")&"") then:icon=0:else:icon=rs("ThreadEmoticonID"):end if
topic=Replace(rs("topic")," ",""):topic=Replace(topic," ",""):topic=Replace(topic,"<","<"):topic=Replace(topic,">",">"):topic_2=""
if instr(rs("topic"),"</font>")>0 then
topic_2=Replace(rs("topic"),"</font>","")
topic_1=split(topic_2,">")
topic_2=topic_1(0)&">"
set topic_1=nothing
if instr(topic_2,"<font")<1 then topic_2=""
end if
topic=ReplaceText(topic,"<[^>]*>","")
showpic4=showpic4&"<IMG src=images/brow/"&icon&".gif border=0 width=12 height=12 alt='"&ReplaceText(rs("topic"),"<[^>]*>","")&"'> <a href="&jumptofile&".asp?ThreadID="&rs("Threadid")&"&ID="&rs("Threadid")&" title="&ReplaceText(rs("topic"),"<[^>]*>","")&"><script>dk_topic_cut2('"&topic&"','"&topic_2&"')</script></a><br>"
topic_2=""
RS.MoveNext
loop
RS.Close
showpic4=showpic4&vbcrlf&"</td>"
for imsgdesc=0 to 4
if imsgdesc=newmsg_1 then DKNewList=DKNewList&showpic1
if imsgdesc=newmsg_2 then DKNewList=DKNewList&showpic2
if imsgdesc=newmsg_3 then DKNewList=DKNewList&showpic3
if imsgdesc=newmsg_4 then DKNewList=DKNewList&showpic4
next
DKNewList=replace(DKNewList,"brow/0.gif border=0 width=12 height=12","icon_post_show.gif border=0")
response.write DKNewList
end if'if howshow=1...
response.write "</tr></table><br>"
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXXXXXXXXXXXXXX [DK贴图集首页代码段结束] XXXXXXXXXXXXXX
if GroupID>0 then GroupIDSQL=" and GroupID="&GroupID&""
GroupGetRow=FetchEmploymentStatusList("Select GroupID,GroupName,GroupDescription From [BBSXP_Groups] where SortOrder>0 "&GroupIDSQL&" order by SortOrder")

if IsArray(GroupGetRow) then

for j=0 to Ubound(GroupGetRow,2)

  if RequestCookies("ForumGroupDisplay"&GroupGetRow(0,j)&"")="none" then
   ForumGroupDisplay="style='display:none;'"
   ForumGroupDisplayImg="group_expand.gif"
  else
   ForumGroupDisplay=""
   ForumGroupDisplayImg="group_collapse.gif"
  end if
%>

<table cellspacing=1 cellpadding=5 width=100% id=CommonListArea>
<tr id=CommonListTitle>
  <td colspan="7">
   <table width="100%" cellspacing="0" cellpadding="0">
    <tr>
     <td><a href="default.asp?GroupID=<%=GroupGetRow(0,j)%>" title="<%=GroupGetRow(2,j)%>"><%=GroupGetRow(1,j)%></a></td>
     <td align="right"><img style="CURSOR: pointer" onMouseDown="ForumGroupToggleCollapsed('<%=GroupGetRow(0,j)%>')" src="images/<%=ForumGroupDisplayImg%>" id="ForumGroupImg<%=GroupGetRow(0,j)%>" ></td>
    </tr>
   </table>
  </td>
</tr>
<tbody id="ForumGroup<%=GroupGetRow(0,j)%>" <%=ForumGroupDisplay%>>
<tr id=CommonListHeader align="center">
  <td width="30"></td>
  <td>版块</td>
  <td width="50">主题</td>
  <td width="50">帖子</td>
  <td width="200">最后发表</td>
  <td width="100">版主</td>
</tr>
<%
  sql="Select * From [BBSXP_Forums] where GroupID="&GroupGetRow(0,j)&" and ParentID=0 and SortOrder>0 and IsActive=1 order by SortOrder"
  Set Rs=Execute(sql)
  do while not Rs.eof
   ShowForum
   Rs.Movenext
  loop
  Rs.close
  response.write "</table>"
next

end if

ForumName=SiteConfig("SiteName")
ForumID=0

%>
<br />
<table cellspacing=1 cellpadding=5 width=100% id=CommonListArea>
<tr id=CommonListTitle><td colspan="3">社区明星</td></tr>
<tr id=CommonListHeader align="center"><td>24小时发帖冠军</td><td>24小时发帖亚军</td><td>24小时发帖季军</td></tr>
<tr align="center" id=CommonListCell>
<%
Count=Conn.Execute("Select Count(PostID) From [BBSXP_Posts"&PostsTableName&"] Where PostDate>"&SqlNowString&"-1")(0)
ReDim Usr(Count),Num(Count),TopUsr(2),TopNum(2)
Sql="Select * From [BBSXP_Posts"&PostsTableName&"] Where PostDate>"&SqlNowString&"-1"
Rs.Open Sql,Conn,1
ii=0:UsrAll=""
Do While Not Rs.EOF
ii=ii+1
Usr(ii)=Rs("PostAuthor")
UsrAll=UsrAll+Usr(ii)
Rs.MoveNext
Loop
Rs.Close

For ii=1 to Count
Leng=Len(UsrAll)
UsrAll=Replace(UsrAll,Usr(ii),"")
Num(ii)=(Leng-Len(UsrAll))/Len(Usr(ii))
Next

For ii=1 to Count
If TopNum(0)<Num(ii) then
TopNum(0)=Num(ii):TopUsr(0)=Usr(ii)
end if
Next

For ii=1 to Count
If TopNum(1)<Num(ii) and Usr(ii)<>TopUsr(0) then
TopNum(1)=Num(ii):TopUsr(1)=Usr(ii)
end if
Next

For ii=1 to Count
If TopNum(2)<Num(ii) and Usr(ii)<>TopUsr(0) and Usr(ii)<>TopUsr(1) then
TopNum(2)=Num(ii):TopUsr(2)=Usr(ii)
end if
Next

For ii=0 to 2
Set Rs1=Conn.Execute("Select * From [BBSXP_Users] where UserName='"&TopUsr(ii)&"'")
On Error Resume Next
ShowRank(Rs1("experience"))
Response.Write "<td>"
%>
<div style="overflow:auto;width:120px;float:left;padding:10px;">
<img src="<%=Rs1("UserFaceUrl")%>" onload="javascript:if(this.width>120)this.width=120;if(this.heigh>120)this.height=120;" /></div>
<%
Response.Write "<div style=""text-align:left;width:40%;float:left;padding:10px;"">"
Response.Write "<strong><a href=Profile.asp?UserName="&Rs1("UserName")&">"&Rs1("UserName")&"</a></strong><br />"
Response.Write "<img src="&RankIconUrl&" /><br />"
Response.Write "发帖数："&Rs1("TotalPosts")&"<br />"
response.write "角　　色："&ShowRole(Rs1("UserRoleID"))&"<br />"
Response.Write "等　　级："&RankName&"<br />"
Response.Write "经验值："&Rs1("Experience")&"<br />"
Response.Write "金　　钱："&Rs1("UserMoney")&"<br />"
Response.Write "<strong>24小时共发<span style=""color:red;""> "&TopNum(ii)&" </span>帖</strong><br />"
Response.Write "</div></td>"

Set Rs1=Nothing
Next
%>
</tr></table>

<br>

<%
regOnline=Execute("Select count(sessionid) from [BBSXP_UserOnline] where UserName<>''")(0)
if BestOnline < Onlinemany then
Execute("update [BBSXP_SiteSettings] Set BestOnline="&Onlinemany&",BestOnlineTime="&SqlNowString&"")
end if
if SiteConfig("DisplayWhoIsOnline")=1 then
%>

<table cellspacing=1 cellpadding=5 width=100% id=CommonListArea>
<tr id=CommonListTitle>
  <td colspan="2">用户在线信息</td>
</tr>
<tr id=CommonListCell><td align="center" width="5%"><img src="images/whos_online.gif"></td>
  <td>
  <img src="images/plus.gif" id="followImg" style="cursor:pointer;" onClick="loadThreadFollow(<%=ForumID%>)">
  <%Response.Write("目前论坛总共有 <b>"&Onlinemany&"</b> 人在线。其中注册用户 <b>"&regOnline&"</b> 人，访客 <b>"&Onlinemany-regOnline&"</b> 人。最高在线 <font color='red'><b>"&BestOnline&"</b></font> 人，发生在 <b>"&BestOnlineTime&"</b>")%>
  <div style="display:none" id="follow">
   <hr width="90%" SIZE="1" align="left"><span id=followTd><img src=images/loading.gif>正在加载...</span>
  </div>
  </td>
</tr>
</table>

<table cellspacing=1 cellpadding=5 width=100% id=CommonListArea>
<tr id=CommonListTitle>
  <td colspan="2">统计信息</td>
</tr>
<tr id=CommonListCell>
  <td width="5%" align="center"><img src="images/stats.gif" width="30" height="30"></td>
  <td><%
   SQL="Select top 1 * from [BBSXP_Statistics] order by DateCreated desc"
   Set Rs=Execute(sql)
   if Rs.eof then response.redirect "Install.asp"
  %>
  总共 <b><%=Rs("TotalTopics")%></b> 个主题 / <b><%=Rs("TotalPosts")%></b> 篇帖子 / <b><%=Rs("TotalUsers")%></b> 位用户<br>
  <%=FormatDateTime(Rs("DateCreated"),1)%>新增 <b><%=Rs("DaysTopics")%></b> 个新主题 / <b><%=Rs("DaysPosts")%></b> 篇新帖子 / <b><%=Rs("DaysUsers")%></b> 位新用户<br>
  欢迎新用户 <a href='Profile.asp?UserName=<%=Rs("NewestUserName")%>'><b><%=Rs("NewestUserName")%></b></a>
  <%Rs.close%>
  </td>
</tr>
</table>
<br>
<%
end if
if SiteConfig("DisplayBirthdays")=1 then
%>

<table cellspacing=1 cellpadding=5 width=100% id=CommonListArea>
<tr id=CommonListTitle>
  <td colspan="2">今天过生日的用户</td>
</tr>
  <tr id=CommonListCell><td width="5%" align="center"><img src="images/birthday.gif" width="30" height="30"></td><td>
<%
UserBirthdayGetRow=GetEmploymentStatusList("UserBirthday","Select UserName From [BBSXP_Users] where Month(Birthday)="&Month(now())&" and day(Birthday)="&day(now())&"")
if IsArray(UserBirthdayGetRow) then
For i=0 To Ubound(UserBirthdayGetRow,2)
  %><a href="Profile.asp?UserName=<%=UserBirthdayGetRow(0,i)%>"><%=UserBirthdayGetRow(0,i)%></a>　<%
Next
Else
Response.Write "今天没有过生日的用户"
End if
%></td></tr>
</table><br>
<%
end if
if SiteConfig("DisplayLink")=1 then
%>

<table cellspacing=1 cellpadding=5 width=100% id=CommonListArea>
<tr id=CommonListTitle>
  <td colspan="2" align="left">友情链接</td>
</tr>
<tr id=CommonListCell>
  <td align="center" width="5%" rowspan="2">
  <img src="images/shareforum.gif"></td>
  <td><%

LinksGetRow=GetEmploymentStatusList("Links","Select name,Logo,url,Intro From [BBSXP_Links] where SortOrder>0 order by SortOrder")

if IsArray(LinksGetRow) then
For i=0 To Ubound(LinksGetRow,2)

  if LinksGetRow(1,i)="" or LinksGetRow(1,i)="http://" then
   Link1=Link1+"<a title='"&LinksGetRow(3,i)&"' href="&LinksGetRow(2,i)&" target=_blank>"&LinksGetRow(0,i)&"</a> "
  else
   Link2=Link2+"<a title='"&LinksGetRow(0,i)&""&chr(10)&""&LinksGetRow(3,i)&"' href="&LinksGetRow(2,i)&" target=_blank><img src="&LinksGetRow(1,i)&" border=0 width=88 height=31></a> "
  end if
Next
End if
if Link2<>"" then Link2="<hr>"&Link2
Link=Link1&Link2
%><%=Link%></td>
</tr>
</table>

<%
end if
%>
<br />

<table width="50%" align="center">
<tr>
  <td align="center"><img src="images/forum_status_new.gif" border="0" title="一天内有新帖子的论坛"> 有新帖的论坛</td>
  <td align="center"><img src="images/forum_status.gif" border="0" title="一天内无新帖子的论坛"> 无新帖的论坛</td>
  <td align="center"><img src="images/forum_link.gif" border="0" title="论坛直接转向设定的链接"> 带链接的论坛</td>
</tr>
</table>

<%
HtmlBottom
%>