⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 log.asp

📁 5237 论坛.rar
💻 ASP
字号:
🔍 
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/Set.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<%
State="查看"&Forum_TypeName&"之"&Forum_Name&"版面事件记录"
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" onLoad="MM_preloadImages('<%=Forum_Pic_Write2%>','<%=Forum_Pic_Vote2%>')">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_BorderColor%>">
  <tr> 
    <td height="20" bgcolor="<%=Forum_BgColor%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
        <tr> 
          <td>&nbsp;您所在的位置： <a href="../" onfocus="this.blur()">首页</a> &gt;&gt; 
            <a href="List.asp" onFocus="this.blur()">讨论组</a> &gt;&gt; <a href="List.asp?T=<%=Forum_TypeID%>"  onfocus="this.blur()"><%=Forum_TypeName%></a> 
            &gt;&gt; <a href="Board.asp?S=<%=Forum_ID%>" onFocus="this.blur()"><%=Forum_Name%></a> 
            &gt;&gt; <font color="<%=Forum_NavFontColor%>">事件记录</font></td>
          <td width="150"></td>
          <td width="18"> 
            <div align="center"><img src="<%=Forum_Pic_Open%>" width="15" height="14" border="0" alt="显示个人工具箱" onClick="ShowInfo()" style="CURSOR: hand" id=infoimage align="texttop"></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" id=info style="DISPLAY: none" bgcolor="<%=Forum_BorderColor%>">
  <tr> 
    <td valign="top" bgcolor="<%=Forum_BgColor%>"> 
      <!--#include file="Inc/Tools.asp" -->
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder style="DISPLAY: none">
  <tr> 
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_BorderColor%>" class="font">
  <tr bgcolor="<%=Forum_BroadColor%>"> 
    <td height="16" colspan="6"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td width="30"><img src="<%=Forum_Pic_Announce%>" width="20" height="16"></td>
          <td> 
            <!--#include file="Inc/Broadcast.asp" -->
          </td>
          <td width="170"> 
            <div align="right"><a href="Write.asp?S=<%=Forum_ID%>" onFocus="this.blur()" onClick="MM_nbGroup('down','group1','WriteArticle','<%=Forum_Pic_Write2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','WriteArticle','<%=Forum_Pic_Write2%>','<%=Forum_Pic_Write2%>',1)"><img src="<%=Forum_Pic_Write1%>" width="80" height="20" border="0" align="absmiddle" name="WriteArticle"></a> 
              <a href="Vote.asp?S=<%=Forum_ID%>" onFocus="this.blur()" onClick="MM_nbGroup('down','group1','Vote','<%=Forum_Pic_Vote2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Vote','<%=Forum_Pic_Vote2%>','<%=Forum_Pic_Vote2%>',1)"><img src="<%=Forum_Pic_Vote1%>" width="80" height="20" border="0" align="absmiddle" name="Vote"></a></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_BgColor%>"> 
    <td colspan="6" height="22"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td>本版版主：<!--#include file="Inc/Host.asp" -->
		  </td>
          <td width="400"> 
            <div align="right">| <a href="javascript:this.location.reload()" onFocus="this.blur()">刷新</a> 
              | <a href="Soul.asp?S=<%=Forum_ID%>" onFocus="this.blur()"><font color="<%=Forum_PFontColor%>">精华区</font></a> 
              | <a href="Broad.asp?S=<%=Forum_ID%>" onFocus="this.blur()">广播</a> 
              | <a href="Log.asp?S=<%=Forum_ID%>" onFocus="this.blur()">事件</a> 
              | <a href="Manage.asp?S=<%=Forum_ID%>" onFocus="this.blur()">管理</a> 
              | <a href="Color.asp?S=<%=Forum_ID%>" onFocus="this.blur()">配色</a> 
              | <a href="Help.asp" onFocus="this.blur()">帮助</a> | 
              <%
				  set rsLog=Server.CreateObject("ADODB.Recordset")
                  Sql="SELECT *  FROM tOperateManage Where rSubject="&Forum_ID&" Order By rTime Desc"
                  rsLog.Open Sql,ConnY,3,3
				  If Not rsLog.Eof Then
                  Dim PageSize
				  Dim RowNum
                  rsLog.PageSize=Forum_PageNum
				  RowNum=rsLog.PageSize
                  PageSize=rsLog.PageSize
                  If Request("Page")<>"" Then
                  CurrentPage=Cint(Request("Page"))
                  Else
                  CurrentPage=1
                  End If
	              TotalNum=rsLog.RecordCount
	              If (TotalNum Mod PageSize)=0 Then
                  TotalPage=TotalNum \ PageSize
                  Else
                  TotalPage=TotalNum \ PageSize+1
                  End If
                  If CurrentPage<1 Then
                  CurrentPage=1
                  End If
	              If CurrentPage>TotalPage Then
                  CurrentPage=TotalPage
                  End If
                  rsLog.Move(CurrentPage-1)*PageSize
                  End If
                  %>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_TitleColor%>"> 
    <td width="3%" height="20"> 
      <div align="center">ID</div>
    </td>
    <td width="14%" height="20"> 
      <div align="center">对象</div>
    </td>
    <td width="50%" height="20"> 
      <div align="center">事件与奖惩情况</div>
    </td>
    <td width="19%" height="20"> 
      <div align="center">执行时间</div>
    </td>
    <td width="14%" height="20"> 
      <div align="center">执行者</div>
    </td>
  </tr>
  <%
  While Not rsLog.Eof And PageSize>0
  %>
  <tr bgcolor="<%
  If RowNum Mod 2 = 0 Then
  Response.Write Forum_AlternateColor1
  Else
  Response.Write Forum_AlternateColor2
  End If
  %>"> 
    <td width="3%" height="22"> 
      <div align="center"><a href="User.asp?I=<%=rsLog("rToWho")%>" onFocus="this.blur()"><%=rsLog("rID")%></a></div>
    </td>
    <td width="14%" height="22"> 
      <div align="center"><a href="User.asp?I=<%=rsLog("rToWho")%>" onFocus="this.blur()"><%=rsLog("rToWho")%></a></div>
    </td>
    <td width="50%" height="22"> <%=rsLog("rDo")%></td>
    <td width="19%" height="22"> 
      <div align="center"><%=rsLog("rTime")%></div>
    </td>
    <td width="14%" height="22"> 
      <div align="center"><a href="User.asp?I=<%=rsLog("rWhoDo")%>" onFocus="this.blur()"><%=rsLog("rWhoDo")%></a></div>
    </td>
  </tr>
  <%
  PageSize=PageSize-1
  RowNum=RowNum-1
  rsLog.MoveNext
  Wend
  %>
  <tr bgcolor="<%=Forum_BgColor%>"> 
    <td colspan="6" height="20"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td>事件笔数：<%=TotalNum%></td>
          <form name="form1" method="post" action="" onsubmit="return vdf('Page','页码','NinRange1:<%=TotalPage%>');">
            <td width="300" valign="bottom"> 
              <div align="right"> 
                <%
			      If CurrentPage<=1 Then
                  Response.Write "<font color='"&Forum_UFontColor&"'>首页 上页</font>"
                  Else 
                  Response.Write "<a href='javascript:ToPage(1)' onFocus='this.blur()'>首页</a> <a href='javascript:ToPage("&(Cint(CurrentPage)-1)&")' onFocus='this.blur()'>上页</a>"
                  End If
				  Response.Write " <font color='"&Forum_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
                  If CurrentPage>=TotalPage Then
				  Response.Write "<font color='"&Forum_UFontColor&"'>下页 末页</font>"
                  Else
				  Response.Write "<a href='javascript:ToPage("&(Cint(CurrentPage)+1)&")' onFocus='this.blur()'>下页</a> <a href='javascript:ToPage("&TotalPage&")' onFocus='this.blur()'>末页</a>"
                  End If
			%>
                跳转至第 
                <input type="text" name="Page" class="Textfiled_Bottom" size="2" maxlength="3">
                页 
                <input type="submit" name="Submit" class="Button_None" value="提交" onFocus="this.blur()">
              </div>
            </td>
          </form>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=onlineborder>
  <tr> 
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" id=online bgcolor="<%=Forum_BorderColor%>">
  <tr> 
    <td valign="top" bgcolor="<%=Forum_OnlineColor%>"> 
      <!--#include file="Inc/Online.asp" -->
    </td>
  </tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -