mameven.asp

一个不错的论坛原代码

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

<% cpbtitle="事件日志"
if  isuser=false then response.redirect("login.asp")
l_id=chktopic(request("l_id"))  
if l_id<>"" then
sqll="select l_title from lanmu where l_id="&l_id
set rsl=conn.execute(sqll)
if  rsl.eof then
errormsg="<li>参数错误，无此论坛</li>"
call toptitle(l_title,cpbtitle)
call head(0,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
call error(errormsg)
call bq()
response.end
else
l_name=rsl("l_title")
end if
set rsl=nothing
end if
call toptitle(l_title,cpbtitle)
call head(0,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)%>

<table border=1 borderColor=<%=tdc2%> cellPadding=2 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
  <TR> 
          <td align="center" <%=hColor%> class=tdc1 height=22 colspan="7">事件日志 | <a href=mameven.asp>查看全部事件</a></td> </TR>



 <% conn.execute("delete from [even] where DateDiff('d',e_time,now)>"&eventt&"")

    
 if l_id="" then
 url="mameven.asp?"
 else
 url="mameven.asp?l_id="&l_id&"&"
 end if
 
 page=request.querystring("page")
  if page="" then  page=1
  pages = "20"
set rs = server.createobject("adodb.recordset") 
sql = "select * from even"
if l_id<>"" then sql=sql&" where e_lanmu="&l_id
sql=sql&" order by e_time desc" 
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
 %>
 
        
           <tr  align="center"> 
            <td width="15%" <%=tColor%> class=tdc1>操作对象</td>
            <td width="50%" <%=tColor%> class=tdc1>操作内容</td>
            <td width="20%" <%=tColor%> class=tdc1>操作时间</td>
            <td width="15%" <%=tColor%> class=tdc1>操作人</td>
            
          </tr>
 
<% do while not rs.eof and rcount <rs.pagesize%> 

       <tr  align="center"> 
            <td width="15%" bgcolor=<%=tColor2%> class=tdc>
            <a href="viewuser.asp?username=<%=rs("e_username")%>" target=_blank><%=rs("e_username")%></a>　</td><td width="5%" bgcolor=<%=tColor2%> class=tdc><%=rs("e_content")%>　</td>
            <td width="20%" bgcolor=<%=tColor2%> class=tdc><%=rs("e_time")%>　</td>
            <td width="20%" bgcolor=<%=tColor2%> class=tdc><a href="viewuser.asp?username=<%=rs("e_admin")%>" target=_blank><%=rs("e_admin")%></a>　</td>
           
          </tr>

  <% 
rs.MoveNext 
rcount=rcount+1
loop 


          
%> 
<tr  align="left"> 
            <td colspan="7" bgcolor=<%=tColor2%> class=tdc > 
          
            <%  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="&url&"page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href="&url&"page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href="&url&"page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页   每页:"&pages&" 事件数:"&r&"  ")%>
            
          　</tr>
            <%else%>
            <tr  align="left"> 
            <td colspan="7" bgcolor=<%=tColor2%> class=tdc align=center >无记录</td></tr>
            <%end if%></table>

<!--#include file="bq.asp" -->