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

📄 cf_admin_manage_2.asp

📁 1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
Else
 AvgVisit=Int(Rs1(0)/TotalRs)
 AvgIp=Int(Rs1(1)/TotalRs)
End If
%>
                共有<%=TotalRs%>天记录，共<%=Rs1(0)%>次浏览，<%=Rs1(1)%>个IP，平均每天<%=AvgVisit%>次访问，平均每天IP<%=AvgIp%>个 </td>
            </tr>
          </table>
          <table border="0" align="center" cellpadding="0" cellspacing="1">
            <tr> 
              <td valign="top"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a> 
                  <%
if page>1 then%>
                  <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a> 
                  <%
end if
%>
                  <%
if page<rs.pagecount   then%>
                  <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a> 
                  <%

end if
%>
                  <a href="?Action=<%=Action%>&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&"&Page="&i
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"&i&"页</option>"    
next    
%>
                  </select> </td>
              </form>
            </tr>
          </table>
          <%End If%>
          <%If Action="lylist" Then%>
<table width="98%" align="center" class="tba">
            <form name="form6" method="post" action="?Action=lydel">
<tr class="tba_tr_1">
                <td colspan="7" bgcolor="#FFFFFF">选择查询的日期 
                  <Select  name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
                    <%Sql="Select AddDate From CFCount_Ly_Day 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")

Px=ChkStr(Request("Px"),1)
AddDate=ChkStr(Request("AddDate"),3)

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

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

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

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

Sql="Select * From CFCount_Ly_Day 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 class="tba_tr_1">
                <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=MyCounter">来源数量</a></strong></div></td>
                <td bgcolor="#FFFFFF"><div align="center"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=MyCounter"><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("MyCounter")%></div></td>
                <td class="td_1"><img src=images/BlueBar.gif width=<%=Rs("MyCounter")/ThisDayTotal*150%> height=10><%=MyRate(Rs("MyCounter"),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 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 CFCount_Admin"
Rs.Open Sql,Conn,1,1%>
          <br>
          
<table width="98%" align="center" class="tba">

  <form name="form2" method="post" action="?action=syssetmodifysave">
<tr class="tba_tr_1">
      <td colspan="2"><div align="center"><strong>系统设置</strong></div></td>
    </tr>
    <tr> 
      <td><div align="right">计数器系统名称：</div></td>
      <td><input name="Title" type="text" id="mc" value="<%=Rs("Title")%>" size="30"></td>
    </tr>
    <tr> 
      <td><div align="right">计数器简称：</div></td>
      <td><input name="TjTextName" type="text" id="mc" value="<%=Rs("TjTextName")%>" size="30">
        (8个字以内)</td>
    </tr>
    <tr> 
      <td><div align="right">网友是否能申请计数器：</div></td>
      <td> <input type="radio" name="RegState" value="-1" <%If Rs("RegState")=-1 Then%>checked<%End If%>>
        是 　　 
        <input name="RegState" type="radio" value="0" <%If Rs("RegState")=0 Then%>checked<%End If%>>
        否<br> &nbsp;<strong>注：</strong>如果计数器只想自己用，请注册用户后把申请功能关闭。<br> <%If Rs("RegState")=0 Then%> <font color="#FF0000"><strong>提示：</strong></font>目前已经禁止申请计数器！ 
        <%End If%> </td>
    </tr>
    <tr> 
      <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> 
      <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> 
      <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> 
      <td><div align="right">计数图片样式数量：</div></td>
      <td> <input name="StyleTotal" type="text" id="stylenum" value="<%=rs("StyleTotal")%>" size="5">
        个</td>
    </tr>
    <tr> 
      <td><div align="right">计数器Logo图片地址：</div></td>
      <td><input name="LogoUrl" type="text" id="LogoUrl" value="<%=rs("LogoUrl")%>">
        大小480*60</td>
    </tr>
    <tr> 
      <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>
      <td><div align="right">系统皮肤：</div></td>
      <td><input type="radio" name="skintype" value="0"<%if rs("skintype")=0 then Response.write " checked"%> onclick="document.form2.skincolor.value='BFE7F1';">
        默认 
        <input type="radio" name="skintype" value="1"<%if rs("skintype")=1 then Response.write " checked"%> onclick="document.form2.skincolor.value='EAF7B0';">
        样式1 
        <input type="radio" name="skintype" value="2" <%if rs("skintype")=2 then Response.write " checked"%> onclick="document.form2.skincolor.value='F7C0B6';">
        样式2 
        <input type="radio" name="skintype" value="3"<%if rs("skintype")=3 then Response.write " checked"%> onclick="document.form2.skincolor.value='F5ECA1';">
        样式3 
        <input type="radio" name="skintype" value="4"<%if rs("skintype")=4 then Response.write " checked"%> onclick="document.form2.skincolor.value='CBCBCB';">
        样式4 </td>
    </tr>
    <tr id="a_1"> 
      <td><div align="right">自定义皮肤颜色：</div></td>
      <td><input name="skincolor" type="text" id="skincolor" value="<%=GetConVertStr(rs("SkinColor"))%>" size="7">
        (输入颜色代码，默认值为：BFE7F1)</td>
    </tr>
    <tr> 
      <td><div align="right">发送邮件组件：</div></td>
      <td><input type="radio" name="emailsendtype" value="1"<%if rs("emailsendtype")=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="emailsendtype" value="2"<%if rs("emailsendtype")=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 id="t_2_1"> 
      <td><div align="right">JMail服务器地址：</div></td>
      <td><input name="JmailAddress" type="text" value="<%=rs("JmailAddress")%>">(如stmp.a.com)</td>
    </tr>
    <tr id="t_2_2"> 
      <td><div align="right">发送邮件帐号名称：</div></td>
      <td><input name="JmailUser" type="text" value="<%=rs("JmailUser")%>">(如a@a.com)</td>
    </tr>
    <tr id="t_2_3"> 
      <td valign="top"><div align="right">发送邮件帐号的密码：</div></td>
      <td><input name="JmailPassword" type="password" value="<%=rs("JmailPassword")%>"><br>如：你有一个邮件b@a.com，密码为c，发信服务器地址设置设置为：<br>smtp.a.com发送邮件帐号名称设置为b@a.com，发送邮件帐号的密<br>码设置为c，其它邮件类似</td>
    </tr>
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit32" value="修改">
          　　 
          <input type="reset" name="Submit5232" value="取消">
        </div></td>
    </tr>
123

⌨️ 快捷键说明

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