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

📄 qqcf_admin_manage.asp

📁 1.40种记数器图片样式自由选择
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
  
  <%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" Or Rs("SiteFlag")="google" Or Rs("SiteFlag")="yahoo" Or Rs("SiteFlag")="3721" Or Rs("SiteFlag")="sogou" Or Rs("SiteFlag")="zhongsou"  Or Rs("SiteFlag")="qq" Or Rs("SiteFlag")="sina"  Or Rs("SiteFlag")="qqcf" 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>
            <form name="form5" method="post" action="?Action=modifysearch1save&ID=<%=ID%>">
              <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"> 
                    <%=Rs("SiteDesc")%>
                  </div></td>
                <td bgcolor="#FFFFFF"><div align="center"> 
                    <%=Rs("SiteFlag")%>
                  </div></td>
                <td bgcolor="#FFFFFF"><div align="center"> 
                    <input name="KeywordFlag" type="text" id="KeywordFlag" value="<%=Rs("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")="modifysearch2" 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>
            <form name="form5" method="post" action="?Action=modifysearch2save&ID=<%=ID%>">
              <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" value="<%=Rs("SiteDesc")%>"> 
                    
                  </div></td>
                <td bgcolor="#FFFFFF"><div align="center"><input name="SiteFlag" type="text" id="SiteFlag" value="<%=Rs("SiteFlag")%>"> 
                    
                  </div></td>
                <td bgcolor="#FFFFFF"><div align="center"> 
                    <input name="KeywordFlag" type="text" id="KeywordFlag" value="<%=Rs("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")="modifypwd" Then%>
  <%
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="3" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
    <form name="form2" method="post" action="?action=modifypwdsave">
      <tr bgcolor="D6DFF5"> 
        <td colspan="2"><div align="center"><strong>修改管理密码</strong></div></td>
      </tr>
	  
	        <tr bgcolor="#FFFFFF"> 
        <td width="33%"><div align="right">管理员名称:</div></td>
        <td width="67%"><input name="Admin" type="text" id="admin" value="<%=Rs("Admin")%>"></td>
      </tr>
	  
      <tr bgcolor="#FFFFFF"> 
        <td width="33%"><div align="right">新密码:</div></td>
        <td width="67%"><input name="Password" type="password" id="admin"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right">请重复一次新密码:</div></td>
        <td><input name="Password2" type="password" id="mc"></td>
      </tr>
1234

⌨️ 快捷键说明

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