todaytopic.asp

一个不错的论坛原代码

<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->

<%if h_viewcpb=1 and isuser=false then response.redirect("login.asp")
username=trim(request.querystring("username"))
if username="" then
cpbtitle="论坛新贴"
else
cpbtitle="查看 "&username&" 发表的主题"
end if
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
   %>


<div align="center">
  <center>
 <table border=1 borderColor=<%=tdc2%> cellPadding=1 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse">        
            <tr  align="center"> 
            <td width="10%" <%=tColor%> class=tdc1 height=23>作者</td>
            <td width="35%" <%=tColor%> class=tdc1>主题</td>
            <td width="5%" <%=tColor%> class=tdc1>点击</td>
            <td width="5%" <%=tColor%> class=tdc1>回复</td>
            <td width="15%" <%=tColor%> class=tdc1>发表时间</td>
            <td width="15%" <%=tColor%> class=tdc1>最后回复时间</td>
            <td width="10%" <%=tColor%> class=tdc1>最新回复</td>
          </tr>
          <% 
          page=request.querystring("page")
  if page="" then  page=1
   pages = ""&t_page&""
set rs = server.createobject("adodb.recordset") 
if username="" then
       sql="select top 1000 t_username,t_id,l_id,t_replynum,t_count,t_lastusername,t_title,t_time,t_lasttime from topic where t_lasttime>#"&dateadd("d", -1, nowtime) & "# and t_lock<>2  order by t_lasttime desc"
    else
    sql="select top 1000 t_username,t_id,l_id,t_replynum,t_count,t_lastusername,t_title,t_time,t_lasttime from topic where t_username='"&username&"' and t_lock<>2 order by t_lasttime desc"
end if                
rs.open sql,conn,1,1
if not(rs.BOF or rs.EOF) then
rs.pagesize = pages 
maxpagecount=rs.pagecount
r=cint(rs.RecordCount)'记录总数
rs.absolutepage = page '当前页数
rcount=0

 %>
 
<% do while not rs.eof and rcount <rs.pagesize%> 

        <tr  align="left"> 
            <td width="10%" bgcolor=<%=tColor2%> class=tdc height=22 align=center><a href="viewuser.asp?username=<%=rs("t_username")%>" target=_blank><%=rs("t_username")%></a>　</td>
            <td width="35%" bgcolor=<%=tColor2%> class=tdc><a href=topic.asp?l_id=<%=rs("l_id")%>&t_id=<%=rs("t_id")%> title=<%=HTMLEncode(rs("t_title"))%>><%=left(HTMLEncode(rs("t_title")),30)%>...</a>　</td>
            <td width="5%" bgcolor=<%=tColor2%> class=tdc align=center><%=rs("t_count")%>　</td>
            <td width="5%" bgcolor=<%=tColor2%> class=tdc align=center><%=rs("t_replynum")%>　</td>
            <td width="15%" bgcolor=<%=tColor2%> class=tdc align=center><%=rs("t_time")%>　</td>
            <td width="15%" bgcolor=<%=tColor2%> class=tdc align=center><%=rs("t_lasttime")%>　</td>
            <td width="10%" bgcolor=<%=tColor2%> class=tdc align=center><a href=viewuser.asp?username=<%=rs("t_lastusername")%> target=_blank><%=rs("t_lastusername")%></a>　</td>
          </tr>

<% 

rs.MoveNext 
rcount=rcount+1
loop 
rs.close 
set rs=nothing 
%> 
<tr> 
            <td colspan="7" bgcolor=<%=tColor2%> class=tdc height=22>
            
            <%
                        if maxpagecount="" then maxpagecount=1
            if r="" then r=0
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=?username="&username&"&page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?username="&username&"&page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href=?username="&username&"&page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页   每页:"&pages&" 记录数:"&r&" ")%>
            
            </tr>          
                
 <%else%>
   <tr  align="center" height=23> 
            <td bgcolor=<%=tColor2%> class=tdc colspan="7" height=23>无记录</td>
          </tr>
 <%
 end if
%>
</table>
</div>
 <!--#include file="bq.asp" -->