jinhua.asp

一个不错的论坛原代码

<table border=0 cellpadding=0 cellspacing=0 class=tb2>
  <tbody>
  <TR> 
    <td> 
      <table  border=1 borderColor=<%=tdc2%> cellPadding=1 cellSpacing=0 width=100% style="border-collapse: collapse" align=center>
        <tbody>
        <tr > 
          <td width="5%" align="center" height="23" <%=tColor%> class=tdc1>状态</td>
          <td width="5%" align="center" <%=tColor%> class=tdc1>图标</td>
         
          <td <%=tColor%> align=center class=tdc1>主题</td>
          <td align=center width="10%"<%=tColor%> class=tdc1>话题发起</td>
           <td align=center nowrap width="5%" <%=tColor%> class=tdc1>点击</td>
          <td align=center  nowrap width="5%" <%=tColor%> class=tdc1>回复</td>
          <td align=center width="25%" <%=tColor%> class=tdc1 >最后发表</td>
        </tr>
</tbody>


  <% page=request.querystring("page")
  if page="" then
  page=1
  end if 
  pages = ""&t_page&""
set rs_topic = server.createobject("adodb.recordset") 
sql = "select l_id,t_count,t_content,t_replynum,t_id,t_jinhua,t_title,t_face,t_time,t_username,t_lasttime,t_lastusername,t_top,t_vote,t_lock from topic where l_id="&l_id&" and t_jinhua<>0 and t_lock<>2 order by t_top,t_lasttime desc"
rs_topic.open sql,conn,1,1

if not(rs_topic.BOF or rs_topic.EOF) then 
set rs1=conn.execute("select count(t_id) from topic where l_id="&l_id&" and t_lock<>2 and t_jinhua<>0")
r=rs1(0)
if r mod pages=0 then
     		maxpagecount= r \ pages
  	else
     		maxpagecount= r \ pages+1
  	end if
 
	rs_topic.MoveFirst
	if int(page) > maxpagecount then page = maxpagecount
   	if int(page)<1 then page=1
	rs_topic.Move (page-1) * pages
	rcount=0
 do while not rs_topic.eof and rcount <int(pages)

%> <tbody>
       <tr> 
          <td valign=MIDDLE align=center width="5%" bgcolor=<%=tcolor2%> class=tdc height=23> <% if rs_topic("t_top")="1" then %><img src=image/locktop.gif alt="置顶帖"><% Elseif rs_topic("t_lock")="1" then%><img src=image/lock.gif alt="锁定帖"><% Elseif rs_topic("t_vote")="1" then%><img src=image/vote.gif alt="投票帖"><% Elseif rs_topic("t_count")>h_rtop then%><img src=image/hotclosed.gif alt="热帖"><% Elseif rs_topic("t_count")<1 then %><img src=image/new.gif alt="今日新帖"><%else%><img src=image/closed.gif alt="普通帖"><%end if %>
 
                      </td>
          <TD  align=center valign=MIDDLE width="2%" bgcolor=<%=tcolor1%> 
 class=tdc>   <a href=topic.asp?l_id=<%=rslanmu("l_id")%>&t_id=<%=rs_topic("t_id")%>  target=_blank><img src=<%=rs_topic("t_face")%> alt="弹出新窗口显示"   border="0"></a></td>
  
          <TD  valign=middle bgcolor=<%=tcolor2%> onmouseover=this.bgColor='<%=tcolor1%>'; onmouseout=this.bgColor='<%=tcolor2%>';
 class=tdc> &nbsp;
         <% if rs_topic("t_top")="1" then %><B>置顶</b><% end if%> <% if rs_topic("t_jinhua")<>0 then %><img src=image/jh.gif alt=精华><% end if%> <a href=topic.asp?l_id=<%=rslanmu("l_id")%>&t_id=<%=rs_topic("t_id")%> title="主题：<%=HTMLEncode(rs_topic("t_title"))%>&#13;&#10;观看：<%=rs_topic("t_count")%>次&#13;&#10;回复：<%=rs_topic("t_replynum")%>篇&#13;&#10;发起人：<%=rs_topic("t_username")%>&#13;&#10;最后回复：<%=rs_topic("t_lastusername")%>&#13;&#10;最后回复时间：<%=rs_topic("t_lasttime")%>&#13;&#10;主题内容大小：<%=len(rs_topic("t_content"))%>字节" ><%=left(HTMLEncode(rs_topic("t_title")),23)%>.. </a> 
               <%'判断是否要分页
          if rs_topic("t_replynum")>cint(r_page) then
          response.write "&nbsp;&nbsp;[<img src=image/multipage.gif alt=分页><b>"        
          if rs_topic("t_replynum") mod cint(r_page)=0 then
          maxreply=rs_topic("t_replynum") \ cint(r_page)
          else
           maxreply=rs_topic("t_replynum") \ cint(r_page)+1
           end if
           for i=1 to maxreply
           response.write " <a href='topic.asp?l_id="&rslanmu("l_id")&"&t_id="&rs_topic("t_id")&"&page="&i&"'>"&i&"</a>"
           if i+1>8 and maxreply<>8 then
	response.write "... <a href='topic.asp?l_id="&rslanmu("l_id")&"&t_id="&rs_topic("t_id")&"&page="&maxreply&"'>"&maxreply&"</a>"
	exit for
	end if
	next
	response.write "</b>]"
else
	maxreply=1
end if
           %>
          <%if date()=rs_topic("t_time") then response.write("<img src=image/topnew.gif alt=今日新主题>")%>         
          </td>
          <td  valign=MIDDLE bgcolor=<%=tcolor1%> 
 class=tdc align=center width="10%" ><a href=viewuser.asp?username=<%=rs_topic("t_username")%> target=_blank><%=rs_topic("t_username")%></a>　</td>
                  <td nowrap bgcolor=<%=tcolor2%> 
 class=tdc align=center valign=MIDDLE width="5%" ><%=rs_topic("t_count")%>　</td>
          <td align=center bgcolor=<%=tcolor1%> 
 class=tdc width="5%"  ><%=rs_topic("t_replynum")%>　</td>
          <td  bgcolor=<%=tcolor2%> 
 class=tdc valign=MIDDLE width="25%"  align=center><a href=viewuser.asp?username=<%=rs_topic("t_lastusername")%> target=_blank><%=rs_topic("t_lastusername")%></a>|<%=rs_topic("t_lasttime")%>
          </td>
        </tr></tbody>
  <% 

rs_topic.MoveNext 
rcount=rcount+1
loop 



%> <tbody>
<tr  align="left" height=23> 
            <td colspan="7" bgcolor=<%=tColor2%> class=tdc >            
            
                   <%
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>maxpagecount then pageend=maxpagecount
response.write(" [ ")
if maxpagecount > 6 then Response.Write ("<a href=?l_id="&request.querystring("l_id")&"&page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?l_id="&request.querystring("l_id")&"&page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href=?l_id="&request.querystring("l_id")&"&page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页   每页:"&pages&" 记录数:"&r&" ")%> 　</tr></tbody>
<%else%>
<tbody>
     <tr  align="center" height=23> 
            <td colspan="7" bgcolor=<%=tColor2%> class=tdc >暂无精华帖</td></tr>
            </tbody>

     <%end if
rs_topic.close 
set rs_topic=nothing %>

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

<table width=<%=tdc3%> align="center">
<tr>
<td class=tdc> 



 </td>

<td align="right" class=tdc>
跳转到:         <select name="menu1" onChange="jump('parent',this,0)" class="bdtj3">
            <option value="<%=rslanmu("l_id")%>" selected >&nbsp;&nbsp;├<%=rslanmu("l_title")%>精华区</option>
<% sqlfen="select f_id,f_title from fenlei order by f_num asc"
set rsfen=conn.execute(sqlfen)
do while not rsfen.eof%>
<option value="jinhua.asp?l_id=<%=rslanmu("l_id")%>">++<%=rsfen("f_title")%>++</option>
<%sql_lanmu1="select l_id,l_title from lanmu where f_id="&rsfen("f_id")&""
set rs_lanmu1=conn.execute(sql_lanmu1)
%>
               <% do while not rs_lanmu1.Eof %>
      
      <option value=jinhua.asp?l_id=<%=rs_lanmu1("l_id")%>>&nbsp;&nbsp;├<%=rs_lanmu1("l_title")%>精华区</option>
      
      <%rs_lanmu1.MoveNext 
        Loop
        set rs_lanmu1=nothing
       
        rsfen.movenext
			loop
			set rsfen=nothing
			 set rslanmu=nothing%>  </select> </td>
 </tr>
 </table>
<div align="center">
  <center>

<table width=<%=tdc3%> border="0" style="border-collapse: collapse" class=tb1 cellpadding="4" cellspacing="0" height="60">
 <tr <%=tColor%> class=tdc1>
 <td height="22" <%=tColor%>  colspan="2">
 &gt;&gt;论坛图例</td>
 <td height="22" width="28%" <%=tColor%>>
 　当前时间是：<% response.write Now%></td>
 <td height="22" width="20%" <%=tColor%>>
 　&lt;&lt; 所有时间均为<%=h_servertext%></td>
 </tr>

 <tr bgcolor=<%=tColor2%> class=tdc><td width="25%"><img  src=image/closed.gif > 普通帖子</td><td width="25%"><img  src=image/new.gif > 新主题</td>
    <td width="25%"><img src=image/hotclosed.gif > 热帖（超过<%=h_rtop%>人浏览)</td><td width="25%"><img src=image/vote.gif > 投票帖子</td></tr><tr bgcolor=<%=tColor2%> class=tdc><td width="25%"><img  src=image/locktop.gif > 置于顶部的贴子</td>
    <td width="25%"><img src=image/jh.gif> 精华帖子</td><td width="25%"> <img src=image/lock.gif > 关闭的主题（不再接受回复)</td><td width="25%"><img src=image/announce.gif> 论坛公告</td></tr></table>

</td></tr>

 
</table>
  </center>
</div>
<br>
<%end if%><!--#include file="bq.asp" --></body></html>