bbs_log.asp

obbs完全基于Dreamweaver 和EmEditor 下面完成.采用最好的可视结构,非常用利于修改,结构很明确.代码效少.管理非常简单

<!--#include file="CONN.ASP" -->
<!--#include file="mymem.asp" -->
<%
if not master then 
response.cookies("rewin")("errmess")="<li><b>此页面为管理页面.</b><li>原因:<li>你可能不具备进入此页面的权限."
response.Redirect("error.asp?founderr=mess")
end if
dim rs,sql,MaxPerPage,page,x,z,nn,y,i,CurrentPage
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from bbs_log order by id desc"
rs.open sql,conn,1,1

MaxPerPage=100
if request("page")<>"" then
page=request("page")
else 
page=1
end if
dim text,checkpage
text="0123456789"
 Rs.PageSize=MaxPerPage
for i=1 to len(page)
   checkpage=instr(1,text,mid(page,i,1))
   if checkpage=0 then
      exit for 
   end if
next

If checkpage<>0 then
      If NOT IsEmpty(page) Then
        CurrentPage=Cint(page)
        If CurrentPage < 1 Then CurrentPage = 1
        If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
      Else
        CurrentPage= 1
      End If
      If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
   CurrentPage=1
End if
y=1
call lists()
if not rs.eof then
call showpages("&")
end if
sub lists()
response.write"<table width=770 border=0 cellpadding=3 cellspacing=1 align=center bgcolor=#92b9fb><tr bgcolor=#FFFFFF align=center> " 
response.write("<td background=backimg/bg1.gif height=27>编号</td><td background=backimg/bg1.gif>论坛名称</td>  <td background=backimg/bg1.gif>被操作ID</td> <td background=backimg/bg1.gif>主ID</td> <td background=backimg/bg1.gif>操作名称</td><td background=backimg/bg1.gif>被操作人</td>  <td background=backimg/bg1.gif>操作人</td> <td background=backimg/bg1.gif>操作时间</td><td background=backimg/bg1.gif>操作人IP</td><td background=backimg/bg1.gif>操作原因</td><td background=backimg/bg1.gif>论坛</td></tr>")
if rs.eof or rs.bof then
response.Write("<tr><td bgcolor=#FFFFFF colspan=11>还没任何日志记录</td></tr>")
end if
do while not rs.eof 
response.write"<tr align=center >"
for x=0 to 10
if x=9 then
nn="<a href=# title='"&rs(x)&"'>内容</a>"
else
nn=rs(x)
end if
response.write "<td bgcolor=#FFFFFF>"&nn&"</td>"
next
response.write "</tr>"
rs.movenext
if y >= MaxPerpage then exit do
y=y+1
loop
response.write "</tr></table>"
end sub
%>
      </td>
    </tr>
  </table>
<%
'标准分页子程序URLparameter为URL所带数
sub showpages(URLparameter)
dim pages,soonhost,pagename,nx,x,ISselect,tenpages
pages=cint(request.QueryString("page"))
if pages=0 then
pages=1
end if
if pages>rs.pagecount then
pages=rs.pagecount
end if
pagename=request.ServerVariables("SCRIPT_NAME")

response.Write("<table width=770 border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#92b9fb>")
response.Write(" <tr bgcolor=#FFFFFF>")
response.Write("<td width=734 class=main1>")

tenpages=cint(pages/10-0.5001)
nx=tenpages*10
response.Write("页次:<b>"&pages&"/"&rs.pagecount&"</b>&nbsp;每页<b>"&MaxPerPage&"</b>&nbsp;主题数<b>"&rs.recordcount&"</b>&nbsp;")
if request("page")>1 then
response.write "&nbsp;<a href='"&pagename&"?page=1"&URLparameter&"' title=首页><font face=webdings>9</font></a>"
else
response.write "&nbsp;<font face=webdings>9</font>"
end if

if nx>=10 then
response.write "&nbsp;<a href='"&pagename&"?page="&(nx-10)&URLparameter&"' title=上十页><font face=webdings>7</font></a>"
else
response.write "&nbsp;<font face=webdings>7</font>"
end if

for x=1 to 10
nx=nx+1
if pages=nx then
response.write ("<b>&nbsp;<font color=red>"&nx&"</font></b>")
else
Response.write "<b>&nbsp;<a href='"&pagename&"?page="&nx&URLparameter&"'>"&nx&"</a></b>"
end if
if nx>=rs.pagecount then exit for
next

if rs.pagecount>=10 and nx<rs.pagecount then
response.write "&nbsp;<a href='"&pagename&"?page="&(nx+1)&URLparameter&"' title=下十页><font face=webdings>8</font></a>"
else
response.write "&nbsp;<font face=webdings>8</font>"
end if
if pages<rs.pagecount then
response.write "&nbsp;<a href='"&pagename&"?page="&rs.pagecount&URLparameter&"' title=尾页><font face=webdings>:</font></a>"
else
response.write "&nbsp;<font face=webdings>:</font>"
end if

response.Write("</td><td width=""25"" class=main1 >")

response.Write("<select name=pagd onChange=setTimeout(location.href=this.value,3000)>")
soonhost=1
do while not soonhost = (rs.PageCount+1) 
if (soonhost)=pages then
ISselect=" selected"
else
ISselect=""
end if
response.Write("<option value="&pagename&"?Page="&soonhost&URLparameter&ISselect&">"&soonhost&"</option>")
soonhost=soonhost+1
loop

response.Write("</select> </td></tr></table>")
end sub
%>
 <%
response.Write(loadcopyc("copyc"))
response.write "Powered By ：obbs Version 1.0.1<br>Copyright &copy;2002 - 2003 <a href=http://www.mtvok.com target=""_blank""><b>mtvok.com</b></a>，页面执行时间： "& cint((timer()-startime)*1000)&" 毫秒</div>"
%>
</body>
</html>