<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canadmemail")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
if Request.QueryString ("op") ="all" then Sql="Select * from FreeHost.FreeHost_Functionlog where whichProduct='邮箱产品' order by id desc"
'if Request.QueryString ("op") ="pause" then Sql="Select * from FreeHost.FreeHost_Product_Host where endtime<'"&now&"' order by endtime desc"
'if Request.QueryString ("op") ="del" then Sql="Select * from FreeHost.FreeHost_Product_Host where endtime<'"&dateadd("d",-30,now)&"' order by endtime desc"
	ds.PageSize = 25
	ds.Open Sql,conn,1,1
if ds.Eof then
	ef=True
	ec="此类日志不存在！"
end if
end if

if not ef then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
	pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If ds.RecordCount <> 0 Then ds.AbsolutePage = CLng(pn)  
    if clng(pn)<=10 then
    begini=1
      if ds.PageCount<=10 then
       endini=ds.PageCount 
       else
       endini=10
      end if
    end if
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="admemail.asp"><font color="#FFFFFF">邮箱管理</font></a><a href="logininfo.asp"></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif" id=rightid>&nbsp;</TD>
      <TD height="300" align="center" vAlign=top bgcolor="#FFFFFF">
	  <%if clng(pn)<=10 then%>最新 <%for i=begini to endini
    if clng(pn)=i then%><font color=red>[<%=i%>]</font><%else%><a href="?<%=ask(0)%>&pn=<%=i%>"><font color="#000000">[<%=i%>]</font></a><%end if%>　<%next%> 
        <%else%>　<a href="?<%=ask(0)%>&pn=1"><font color="#000000">最新[1]--[10]</font></a>　　现在是第<font color=red>[<%=pn%>]</font>页 
        　共<%=ds.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%><a href="?<%=ask(0)%>&pn=<%=pn-1%>"><font color="#000000">上一页</font></a>
        <%End If%>|<%If Clng(pn)<ds.PageCount Then%><a href="?<%=ask(0)%>&pn=<%=pn+1%>"><font color="#000000">下一页</font></a>
        <%End If%>
<table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
  <tr bgcolor="#CCCCCC">
    <td width="6%" align="center">编号</td>    
    <td width="11%" align="center">用户名</td>
	<td width="11%" align="center">操作人</td>
    <td width="14%" align="center">时间与IP</td>
    <td width="16%" align="center">受控端网址</td>
    <td width="12%" align="center">原因</td>
    <td width="12%" align="center">FTP名</td>
	<td width="11%" align="center">动作</td>
	<td width="11%" align="center">返回值</td>
    <td width="11%" align="center">产品</td>
    <td width="7%" align="center">ID</td>
  </tr>
<%
For N=1 To ds.PageSize 
					If ds.RecordCount=0 Then Exit For
%>
  <tr>
    <td width="6%" align="center" bgcolor="#FFCC66"><%=ds("id")%></td>
    <td width="11%" align="center" bgcolor="#FFCC66"><%=ds("username")%></td>
	<td width="11%" align="center" bgcolor="#FFCC66"><%=ds("opusername")%></td>
    <td width="14%" align="center" bgcolor="#FFCC66"><%=ds("attime")%><br>
    <%=ds("ip")%></td>
    <td width="16%" align="center" bgcolor="#FFCC66"><%=ds("URL")%></td>
    <td width="12%" align="center" bgcolor="#FFCC66"><%=ds("forwhat")%></td>
    <td width="3%" align="center" bgcolor="#FFCC66"><%=ds("ftpname")%></td>
    <td width="3%" align="center" bgcolor="#FFCC66"><%=ds("fun")%></td>
    <td width="6%" align="center" bgcolor="#FFCC66"><%=ds("returnstr")%></td>
    <td width="11%" align="center" bgcolor="#FFCC66"><%=ds("whichProduct")%></td>
    <td width="7%" align="center" bgcolor="#FFCC66"><%=ds("pdid")%></td>
  </tr>
<%
If clng(pn)=ds.PageCount Then
I = ds.RecordCount - (ds.PageCount-1) * ds.PageSize
If N=I Then Exit For
End If
ds.movenext
Next

ds.close
set ds=nothing%>
</table>
	  
	  </TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
