bbsshow.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="up.asp"--><!--#include file="inc/grade.asp"-->
<%dim action,ii,name,pic,info,nn,strt
if isnull(lguserid) or lguserid="" then response.redirect"login.asp"
action=request.querystring("action")
sub sendinfo2(tl,mes)
response.write"<table bordercolor="&c1&" align=center border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' width="&tbw&" ><tr><td class=td1 width=100% bgcolor="&c1&" height=26 background="&tbg&">&nbsp;<img border=0 src=pic/tl.gif> "&tl&"</td></tr><tr><td width=100% ><p style='margin: 8; line-height:150%'>"&mes&"</p></td></tr></table>"
end sub
response.write ttop
select case action
case""
%><table bordercolor=<%=c1%> align="center" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>" bgcolor="<%=c2%>">
  <tr>
 <td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28" colspan="5">&nbsp; <img src="pic/gl.gif" border="0"> 
 <font color="<%=c3%>">论坛展区选项</font></td>
  </tr><tr><td>
 <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="<%=c2%>">
  <tr bgcolor="<%=c2%>">
 <td width="20%">
<p style="margin: 5"><b>论坛排行榜：</b></td>
 <td width="20%">
<p style="margin: 5"><a href="bbsshow.asp?action=topmark">论坛积分前10名</a>
</td>
 <td width="20%">
<p style="margin: 5"><a href="bbsshow.asp?action=topbbs">10大热门帖子</a></td>
 <td width="20%">
<p style="margin: 5"><a href="userlist.asp">所有用户列表</a>　</td>
 <td width="20%">
　</td>
  </tr>
  <tr>
 <td width="20%">
<p style="margin: 5"><b>论坛图片集：</b></td>
 <td width="20%">
<p style="margin: 5"><a href="bbsshow.asp?action=pic">所有图片</a></td>
 <td width="20%">
<p style="margin: 5"><a href="bbsshow.asp?action=top10pic">10大热门图片</a></td>
 <td width="20%">
<p style="margin: 5">　</td>
 <td width="20%">
　</td>
  </tr>  <tr bgcolor="<%=c2%>">
 <td width="20%">
<p style="margin: 5"><b>论坛Flash集：</b></td>
 <td width="20%">
<p style="margin: 5"><a href="bbsshow.asp?action=flash">所有Flash</a></td>
 <td width="20%">
<p style="margin: 5"><a href="bbsshow.asp?action=top10flash">10大热门Flash</a></td>
 <td width="20%">
<p style="margin: 5">　</td>
 <td width="20%">
　</td>
  </tr>
  <tr>
 <td width="20%">
<p style="margin: 5"><b>论坛文件集：</b></td>
 <td width="20%">
<p style="margin: 5"><a href="bbsshow.asp?action=file">所有文件</a></td>
 <td width="20%">
<p style="margin: 5"><a href="bbsshow.asp?action=top10file">10大热门文件</a></td>
 <td width="20%">
<p style="margin: 5">　</td>
 <td width="20%">
　</td>
  </tr><form method="GET" name="form">
<tr bgcolor="<%=c2%>">
 <td width="20%">
<p style="margin: 5"><b>搜索用户文件集：</b></td>
 <td width="80%" colspan="4">
<p style="margin: 5"><input type="text" name="name" size="20" value="请输入查询的用户名">
<select size="1" name="action" style="font-size: 9pt">
<option selected>文件类型</option>
<option value="picuser">图片集</option>
<option value="flashuser">Flash集</option>
<option value="fileuser">文件集</option>
</select> <input type="submit" value="  查  询  "></td>
  </tr></form>
 </table>
 </td></tr>
  </table>
<%case"topmark"
dim allmark
i=0
set rs=conn.execute("select top 10 userid,name,mark,grade,alltopicnum from [user] order by mark desc,lasttime desc")
do while not rs.eof
i=i+1
if i>10 then exit do
allmark=int(allmark)+rs("mark")
rs.movenext
loop
%>
<table bordercolor="<%=c1%>" align=center border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>" bgcolor="<%=c2%>">
  <tr>
 <td width="100%"  class=td1  bgcolor="<%=c1%>" background="<%=tbg%>" height="28"><font color="<%=c3%>">&nbsp;论坛积分前10名</font></td>
  </tr>
  <tr><td><table bordercolor="<%=c1%>" align=center border="1" bgcolor="<%=c2%>" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%"> <tr bgcolor="<%=c2%>">
 <td width="20%" height="28">&nbsp;用户名：</td>
 <td width="40%">&nbsp;当前积分：</td>
 <td width="25%">&nbsp;论坛等级：</td>
 <td width="15%">&nbsp;发表帖数：</td>
  </tr>
<%
i=0
rs.movefirst
do while not rs.eof
i=i+1
if i>10 then exit do
response.write"<tr><td width=20% height=28>&nbsp;<a href=userinfo.asp?userid="&rs("userid")&">"&rs("name")&"</a></td><td width=40% >&nbsp;"&rs("mark")&"<br>&nbsp;<img border=0 src=pic/voteline.gif width='"&rs("mark")/allmark*80&"%' height=8></td><td width=25% >"&rs("grade")&"&nbsp;[ ":gradename(rs("grade")):response.write" ]<p style='margin:5px'><img border=0 src=images/grade/"&rs("grade")&".gif></td><td width=15% >&nbsp;"&rs("alltopicnum")&"</td></tr>"
rs.movenext
loop
%></table>
</td></tr>
</table>
<%
set rs=nothing
%>
<%case"topbbs"
dim topicinfo,retopic,reinfo,renum,hot,repage,width,face,n
set rs=conn.execute("select top 10 * from topic where type<>3 order by renum desc,edittime desc")
%>
<table bordercolor="<%=c1%>" align="center" class=td1  border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>" bgcolor="<%=c2%>" background="<%=tbg%>" height="28">
 <tr>
<td width="5%" align="center"><font color="<%=c3%>">表情</font></td>
<td align="center" width="45%"><font color="<%=c3%>">主题 （点击表情在新窗口打开）</font></td>
<td align="center" width="10%"><font color="<%=c3%>">作者</font></td>
<td align="center" width="10%"><font color="<%=c3%>">回复/人气</font></td>
<td align="center" width="20%"><font color="<%=c3%>">最后更新时间</font></td>
<td align="center" width="10%"><font color="<%=c3%>">最后回复</font></td>
 </tr>
</table>
<%i=0
do while not rs.eof
i=i+1
if i>10 then exit do
topicinfo=rs("topicinfo")
topicinfo=split(topicinfo,"|")
retopic=rs("retopic")
if isnull(retopic) or retopic="" then
reinfo="——"
retopic="未有人回复。|——|0"
retopic=split(retopic,"|")
else
retopic=split(retopic,"|")
reinfo="<a href=userinfo.asp?userid="&retopic(2)&">"&kbbs(retopic(1))&"</a>"
end if
renum=rs("renum")
hot=checknum(application(prefix&"showbbspage"))
if renum/hot>(renum\hot) then
repage=(renum\hot)+1
else
repage=renum\hot
end if
width=35
face=topicinfo(0)
if rs("type")=1 then face="jing"
if rs("type")=2 then face="lock"

if rs("top")=1 then face="top"
if rs("top")=2 then face="alltop"
if repage>1 then width=25

response.write"<table  bordercolor="&c1&" bgcolor="&c2&"  border=1 align=center cellpadding=0 cellspacing=0 style='border-collapse: collapse; border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1' width="&tbw&" height=28><tr><td width=5% align=center><a target=_blank href='show.asp?bd="&rs("bd")&"&id="&rs("id")&"&totable="&rs("totable")&"' title='最后回复："&kbbs(retopic(0))&"'><img border=0 src=images/face/"&face&".gif></a></td><td width=45% >&nbsp;&nbsp;<a href='show.asp?bd="&rs("bd")&"&id="&rs("id")&"&totable="&rs("totable")&"' title='最后回复："&kbbs(retopic(0))&"'>"&topicinfo(3)&" <font color="&replacecolor(kbbs(topicinfo(1)))&">"&lefttrue(kbbs(topicinfo(1)),width)&"</font></a>"
if repage>1 then
response.write" <font color="&c1&">[</font><b> "
if repage<=4 then
for n=1 to repage
response.write"<a target=_self href=show.asp?id="&rs("id")&"&bd="&rs("bd")&"&totable="&rs("totable")&"&topage="&n&"><font color="&c1&">"&n&"</font></a> "
next
else
for nn=1 to 3
response.write"<a target=_self href=show.asp?id="&rs("id")&"&bd="&rs("bd")&"&totable="&rs("totable")&"&topage="&nn&"><font color="&c1&">"&nn&"</font></a> "
next
response.write"... <a target=_self href=show.asp?id="&rs("id")&"&bd="&rs("bd")&"&totable="&rs("totable")&"&topage="&repage&"><font color="&c1&">"&repage&"</font></a> "
end if
response.write" </b><font color="&c1&">]</font>"
end if
response.write"</td><td align=center width=10% ><a href=userinfo.asp?userid="&rs("userid")&">"&kbbs(topicinfo(2))&"</a></td><td align=center width=10% >"&renum&"/"&rs("hits")&"</td><td align=center width=20% >"&rs("edittime")&"</td><td align=center width=10% >"&reinfo&"</td></tr></table>"
rs.movenext
loop
set rs=nothing
%>
<%case"pic","top10pic","picuser","flash","top10flash","flashuser","file","top10file","fileuser"
dim sql,pagesetup,totalpage,count,pagecount,iii
name=replace(request.querystring("name"),"'","")
if action="pic" then sql="select*from [upload] where (filetype='.gif' or filetype='.jpg'or filetype='.bmp'or filetype='.png') and bbsid>0 order by id desc":strt="论坛图片集"
if action="top10pic" then sql="select top 10 * from [upload] where (filetype='.gif' or filetype='.jpg'or filetype='.bmp'or filetype='.png') and bbsid>0 order by hits desc,id desc":strt="论坛图片集"
if action="picuser" then
if checkname(name)=false then response.write"你执行了非法的操作，程序终止。":response.end
sql="select*from [upload] where (filetype='.gif' or filetype='.jpg'or filetype='.bmp'or filetype='.png') and name='"&name&"' and bbsid>0"
strt="论坛图片集"