qqcf_admin_manage.asp

这是一个用ASP编制而成的网业计数器

                <%=Rs("Online_Ip")%> 
                <%If Ip=Rs("Online_Ip") Then Response.Write "</font>"%>
              </div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=Rs("VisitTotal")%></div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"> 
                <%If Rs("Ly")="-" Then%>
                直接从浏览器输入 
                <%Else%>
                <a href="http://<%=BreakUrl(Rs("Ly"),1)%>" target='_blank'><%=BreakUrl(Rs("Ly"),1)%></a>[<a href="<%=Rs("Ly")%>" target='_blank'>详细</a>] 
                <%End If%>
              </div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("Online_AddTime")))&":"&GetTurnTime(Minute(Rs("Online_AddTime")))&":"&GetTurnTime(Second(Rs("Online_AddTime")))%></div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center">
                <%If Rs("CurrWeb")="-" Then%>
                Img调用无法记录当前页 
                <%Else%>
			<a href="<%=Rs("CurrWeb")%>" target='_blank'><%=Left(BreakUrl(Rs("CurrWeb"),2),30)%></a>
			<%End if%>
			</div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=GetTurnTime(Hour(Rs("Online_LastTime")))&":"&GetTurnTime(Minute(Rs("Online_LastTime")))&":"&GetTurnTime(Second(Rs("Online_LastTime")))%></div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=DateDiff("n",Rs("Online_AddTime"),Rs("Online_LastTime"))%>分钟</div></td>
            <td bgcolor="#FFFFFF" class="td_1"><div align="center"><%=Rs("ReadTotal")%></div></td>
          </tr>
          <%rs.movenext
mypagesize=mypagesize-1
wend%>

        </table>
  
  <table border="0" align="center" cellpadding="0" cellspacing="1">
    <tr> 
      <td height="21" valign="top"><div align="right"><a href="?Action=<%=Action%>&Px=<%=Px%>&Page=1">第一页</a> 
          <%
if page>1 then%>
          <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> 
          <%
end if
%>
          <%
if page<rs.pagecount   then%>
          <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a> 
          <%
end if
%>
          <a href="?Action=<%=Action%>&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="select2" onChange="window.location=form.page.options[form.page.selectedIndex].value">
            <%For I=1 To TotalPage    
   Response.Write "<option value="&Filename&"?Action="&Action&"&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="500" 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 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> 如果只想自己用，请自己注册用户后把申请功能关闭。<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 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">发送邮件组件：</div></td>
                <td><input type="radio" name="eamilsendtype" value="1"<%if rs("eamilsendtype")=1 then%> checked<%end if%> onclick="show_1()">
                  CDONTS组件 
                  <input type="radio" name="eamilsendtype" value="2"<%if rs("eamilsendtype")=2 then%> checked<%end if%> onclick="show_2()">
                  JMAIL组件</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>
              </tr>
              <tr bgcolor="#FFFFFF" id="t_2_3"> 
                <td><div align="right">发送邮件帐号的密码：</div></td>
                <td><input name="JmailPassword" type="text" value="<%=rs("JmailPassword")%>"></td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td colspan="2"> <div align="center"> 
                    <input type="submit" name="Submit32" value="修改">
                    　　 
                    <input type="reset" name="Submit5232" value="取消">
                  </div></td>
              </tr>
            </form>
          </table>

  <%End If%>
  
    <%If Request("Action")="searchset" Then%>
<%
Action=Request("Action")

Sql="Select * From WWW_QQCF_COM_Cfcount_Search Order By ID Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,Conn,1,1
%>

          
          <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
            <tr> 
              <td><div align="center"><strong>序号</strong></div></td>
              <td><div align="center"><strong>搜索引擎中文名</strong></div></td>
              <td><div align="center"><strong>搜索引擎英文标识</strong></div></td>
              <td><div align="center"><strong>搜索关键字的参数</strong></div></td>
              <td><div align="center"><strong>操作</strong></div></td>
            </tr>
            <%While Not Rs.Eof
			I=I+1%>
            <tr> 
              <td bgcolor="#FFFFFF"><div align="center"><%=I%></div></td>
              <td bgcolor="#FFFFFF"><div align="center"><a href="http://www.<%=Rs("SiteFlag")%>" target=_blank><%=Rs("SiteDesc")%></a></div></td>
              <td bgcolor="#FFFFFF"><div align="center"><a href="http://www.<%=Rs("SiteFlag")%>" target=_blank><%=Rs("SiteFlag")%></a></div></td>
              <td bgcolor="#FFFFFF"><div align="center"><%=Rs("KeywordFlag")%></div></td>
              <td bgcolor="#FFFFFF"><div align="center">
              
			  <%If Rs("SiteFlag")="baidu.com" Or Rs("SiteFlag")="google.com" Or Rs("SiteFlag")="yahoo.com.cn" Or Rs("SiteFlag")="3721.com" Or Rs("SiteFlag")="sogou.com" Or Rs("SiteFlag")="zhongsou.com"  Or Rs("SiteFlag")="qq.com" Or Rs("SiteFlag")="sina.com"  Or Rs("SiteFlag")="qqcf.com" Then%>
			   <a href="?Action=modifysearch1&ID=<%=Rs("ID")%>">修改</a>
			  <%Else%>
			   <a href="?Action=modifysearch2&ID=<%=Rs("ID")%>">修改</a>
			   <a href="?Action=delsearch&SiteFlag=<%=Rs("SiteFlag")%>" onClick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>
			  <%End if%>
			  </div></td>
            </tr>
<%
AllSearch=AllSearch&Rs("SiteFlag")&","&Rs("KeywordFlag")&"|"
rs.movenext
wend
If AllSearch="" Then
 AllSearch="-"
Else
 AllSearch=Left(AllSearch,Len(AllSearch)-1)
End if
Sql="Update WWW_QQCF_COM_CfCount_Admin Set AllSearch='"&AllSearch&"'"
Conn.ExeCute Sql
%>
          </table>

          <br>
          <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
            <tr> 
              <td colspan="4"><div align="center"><strong>增加自定义引擎</strong></div></td>
            </tr>
            <form name="form5" method="post" action="?Action=addsearchsave">
              <tr> 
                <td bgcolor="#FFFFFF"><div align="center">搜索引擎中文名</div></td>
                <td width="191" bgcolor="#FFFFFF"><div align="center">搜索引擎英文标识</div></td>
                <td width="191" bgcolor="#FFFFFF"><div align="center">搜索关键字的参数</div></td>
                <td bgcolor="#FFFFFF"><div align="center"></div></td>
              </tr>
              <tr> 
                <td width="168" bgcolor="#FFFFFF"> <div align="center"> 
                    <input name="SiteDesc" type="text" id="SiteDesc">
                  </div></td>
                <td bgcolor="#FFFFFF"><div align="center"> 
                    <input name="SiteFlag" type="text" id="SiteFlag">
                  </div></td>
                <td bgcolor="#FFFFFF"><div align="center"> 
                    <input name="KeywordFlag" type="text" id="KeywordFlag">
                  </div></td>
                <td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="增　加"></td>
              </tr>
              <tr> 
                <td colspan="4" bgcolor="#FFFFFF" class="td_1">如何增加或修改例子，例如你在百度上搜索网页&quot;乘风&quot;,在结果页的地址栏里的网址是http://www.baidu.com/s?wd=%B3%CB%B7%E7&amp;cl=3<br>
                  这样我们就这样填写：搜索引擎中文名填写&quot;百度&quot;,搜索引擎英文标识填写&quot;baidu&quot;,搜索关键字的参数填写&quot;wd&quot;</td>
              </tr>
            </form>
          </table>
          <%End If%>
		  
          
		  
		            <%If Request("Action")="modifysearch1" Then%>
<%
ID=Request("ID")
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_Cfcount_Search Where ID="&ID
Rs.Open Sql,Conn,1,1%>
          <br>
          <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
            <tr> 
              <td colspan="4"><div align="center"><strong>修改搜索引擎</strong></div></td>
            </tr>