qqcf_admin_manage.asp

物流管理系统

<%End If%>

  <%If Request("Action")="lylist" Then%>
          <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
            <form name="form6" method="post" action="?Action=lydel">
              <tr> 
                <td colspan="7" bgcolor="#FFFFFF">选择查询的日期 
                  <Select  name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
                    <%Sql="Select AddDate From WWW_QQCF_COM_CfCount_Ly Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof 
 Response.Write "<option value='"&filename&"?Action=lylist&AddDate="&Rs("AddDate")&"'"
 If Request("AddDate")=Cstr(Rs("AddDate")) Then Response.Write " selected"
 Response.Write ">"&Rs("AddDate")&"</option>"  
Rs.MoveNext
Wend  
%>
                  </select></td>
              </tr>
              <%
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")

Action=Request("Action")
Px=Request("Px")
AddDate=Request("AddDate")

If Px="" Then  Px="Counter"
If AddDate="" Then AddDate=Cstr(Date)

Call PxFilter(Px,"id,ip,lyhead,addtime,counter,lasttime")

If AddDate<>"" Then
 If IsDate(Cdate(AddDate))=False Then Call AlertBack("输入了错误的时间",1)
End if

Sql="Select Sum(Counter) From WWW_QQCF_COM_CfCount_Ly where Datediff('d',AddDate,'"&AddDate&"')=0"
Set Rs=Conn.execute(Sql)
ThisDayTotal=Rs(0)
If ThisDayTotal=0 Then ThisDayTotal=1

Sql="Select * From WWW_QQCF_COM_CfCount_Ly where Datediff('d',AddDate,'"&AddDate&"')=0"

Sql=Sql&" Order By "&Px&" Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not rs.eof then
 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
  page=1
 Else
  Page=Int(Abs(Request("page")))
 End if
 rs.pagesize=15
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
              <tr> 
                <td colspan="7"><div align="center"><strong><%=AddDate%> 来源统计[可点击标题排序]</strong></div></td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=ID"><strong>序号</strong></a></div></td>
                <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=LyHead"><strong>来源网站</strong></a></div></td>
                <td bgcolor="#FFFFFF"><div align="center"><strong><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Counter">来源数量</a></strong></div></td>
                <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Counter"><strong>所占此天的比例</strong></a></div></td>
                <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=AddTime"><strong>上站时间</strong></a></div></td>
                <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Ip"><strong>最后IP地址</strong></a></div></td>
                <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=LastTime"><strong>最后访问时间</strong></a></div></td>
              </tr>
              <%
While Not Rs.Eof And MyPageSize>0
%>
              <tr
<%If MyPageSize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
                <td class="td_1"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
                <td class="td_1"><div align="center"> 
                    <%If Rs("LyHead")="-" Then
  Response.Write "直接从浏览器输入"
 Else
  Response.Write "<a href=http://"&Rs("LyHead")&" target='_blank'>"&Rs("LyHead")&"</a>&nbsp;[<a href="&Rs("Ly")&" target='_blank'>详细</a>]"
 End If%>
                  </div></td>
                <td class="td_1"><div align="center"><%=Rs("Counter")%></div></td>
                <td class="td_1"><img src=qqcf_pic/qqcf_redbar.gif width=<%=Rs("Counter")/ThisDayTotal*150%> height=10><%=MyRate(Rs("Counter"),ThisDayTotal)%>%</td>
                <td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("AddTime")))&":"&GetTurnTime(Minute(Rs("AddTime")))&":"&GetTurnTime(Second(Rs("AddTime")))%></div></td>
                <td class="td_1"><div align="center"> 
                    <%If Ip=Rs("Ip") Then Response.Write "<font color=ff0000>"%>
                    <%=Rs("Ip")%> 
                    <%If Ip=Rs("Ip") Then Response.Write "</font>"%>
                  </div></td>
                <td class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></div></td>
              </tr>
              <%rs.movenext
mypagesize=mypagesize-1
wend%>
            </form>
          </table>
  <table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td valign="top"><div align="right"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a>
            <%
if page>1 then%>
            <a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
            <%
end if
%>
            <%
if page<rs.pagecount   then%>
            <a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
            <%
end if
%>
            <a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td>
        <Select  name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
          <%for i=1 to totalpage    
   response.write "<option value="&filename&"?Action="&Action&"&AddDate="&AddDate&"&Px="&Px&"&Page="&i
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"&i&"页</option>"    
next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
<%End If%>

  <%If Request("Action")="sysset" Then%>
  
    <SCRIPT>
function show_1(){
t_2_1.style.display = "none";
t_2_2.style.display = "none";
t_2_3.style.display = "none";
}
function show_2(){
t_2_1.style.display = "";
t_2_2.style.display = "";
t_2_3.style.display = "";
}
</SCRIPT>


  <%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_Admin"
Rs.Open Sql,Conn,1,1%>


  <br>
          
          <table width="730" border="0" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
            <form name="form2" method="post" action="?action=syssetmodifysave">
              <tr bgcolor="D6DFF5"> 
                <td colspan="2"><div align="center"><strong>系统设置</strong></div></td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">计数器系统名称：</div></td>
                <td><input name="Title" type="text" id="mc" value="<%=Rs("Title")%>" size="30"></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td><div align="right">计数器简称：</div></td>
                <td><input name="TjTextName" type="text" id="mc" value="<%=Rs("TjTextName")%>" size="30">(8个字以内)</td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">网友是否能申请计数器：</div></td>
                <td> <input type="radio" name="RegeditState" value="-1" <%If Rs("RegeditState")=-1 Then%>checked<%End If%>>
                  是 　　 
                  <input name="RegeditState" type="radio" value="0" <%If Rs("RegeditState")=0 Then%>checked<%End If%>>
                  否<br> &nbsp;<strong>注：</strong>如果计数器只想自己用，请注册用户后把申请功能关闭。<br> 
                  <%If Rs("RegeditState")=0 Then%> <font color="#FF0000"><strong>提示：</strong></font>目前已经禁止申请计数器！ 
                  <%End If%> </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">是否记录来源页面,IP信息：</div></td>
                <td><input type="radio" name="LyKeep" value="-1" <%If Rs("LyKeep")=-1 Then%>checked<%End If%>>
                  是 　　 
                  <input name="LyKeep" type="radio" value="0" <%If Rs("LyKeep")=0 Then%>checked<%End If%>>
                  否<br> <%if rs("LyKeep")=0 then%> <font color="#FF0000"><strong>提示：</strong></font>目前已经禁止记录IP，来源信息！ 
                  <%end if%> </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">是否记录在线人数：</div></td>
                <td><input type="radio" name="OnlineKeep" value="-1" <%if rs("OnlineKeep")=-1 then%>checked<%end if%>>
                  是 　　 
                  <input name="OnlineKeep" type="radio" value="0" <%if rs("OnlineKeep")=0 then%>checked<%end if%>>
                  否<br> <%if rs("OnlineKeep")=0 then%> <font color="#FF0000"><strong>提示：</strong></font>目前已经禁止记录在线人数信息！ 
                  <%end if%> </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">是否记录网站页面浏览次数：</div></td>
                <td><input type="radio" name="WebKeep" value="-1" <%if rs("WebKeep")=-1 then%>checked<%end if%>>
                  是 　　 
                  <input name="WebKeep" type="radio" value="0" <%if rs("WebKeep")=0 then%>checked<%end if%>>
                  否<br> <%if rs("WebKeep")=0 then%> <font color="#FF0000"><strong>提示：</strong></font>目前已经禁止记录网站页面浏览次数！ 
                  <%end if%> </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">计数图片样式数量：</div></td>
                <td> <input name="StyleTotal" type="text" id="stylenum" value="<%=rs("StyleTotal")%>" size="5">
                  个</td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">计数器Logo图片地址：</div></td>
                <td><input name="LogoUrl" type="text" id="LogoUrl" value="<%=rs("LogoUrl")%>">
                  大小480*60</td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">显示IP地址的IP地域：</div></td>
                <td class="td_1"><input type="radio" name="IpArea" value="-1"<%if rs("IpArea")=-1 then Response.write " checked"%>>
                  是 
                  <input type="radio" name="IpArea" value="0"<%if rs("IpArea")=0 then Response.write " checked"%>>
                  否<br>
                  注：由于IP数据库较大,默认为空,需要显示具体IP地区位置的话请上www.qqcf.com上下载IP数据库后,再选择此选项为&quot;是&quot;</td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td><div align="right">发送邮件组件：</div></td>
                <td><input type="radio" name="eamilsendtype" value="1"<%if rs("eamilsendtype")=1 then%> checked<%end if%> onclick="show_1()">
                  CDONTS组件
                  <%
on error resume next
set TestObj=server.CreateObject ("CDONTS.NewMail")
If -2147221005 <> Err then
 Response.write "(支持)"
Else
  Response.write "(不支持)"
End If
%> <input type="radio" name="eamilsendtype" value="2"<%if rs("eamilsendtype")=2 then%> checked<%end if%> onclick="show_2()">
                  JMAIL组件
                  <%
on error resume next
set TestObj=server.CreateObject ("JMail.SmtpMail")
If -2147221005 <> Err then
 Response.write "(支持)"
Else
  Response.write "(不支持)"
End If
%></td>
              </tr>
              <tr bgcolor="#FFFFFF" id="t_2_1"> 
                <td><div align="right">JMail服务器地址：</div></td>
                <td><input name="JmailAddress" type="text" value="<%=rs("JmailAddress")%>"></td>
              </tr>
              <tr bgcolor="#FFFFFF" id="t_2_2"> 
                <td><div align="right">发送邮件帐号名称：</div></td>
                <td><input name="JmailUser" type="text" value="<%=rs("JmailUser")%>"></td>