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

📄 cf_manage_3.asp

📁 1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建
💻 ASP
📖 第 1 页 / 共 3 页
字号:
                  </tr>
                </table></td>
            </tr>
            <tr align="center"> 
              <td align="left" bgcolor="#FFFFFF"><div align="right">文字型+详细描述:</div></td>
              <td align="left" bgcolor="#FFFFFF"><input type="radio" name="quickstyle" value="6" onclick="ashow_6()"></td>
              <td align="left" bgcolor="#FFFFFF" class="td_1"><table border='0' cellpadding='0' cellspacing='0'>
                  <tr> 
                    <td><div align='center'><a href=<%=HttpPath(2)%> target=_blank title=统计服务由[<%=RsSet("Title")%>]免费提供><%=RsSet("TjTextName")%></a></div></td>
                    <td><div align='center'><a href=<%=HttpPath(2)%> target=_blank title='统计服务由[<%=RsSet("Title")%>]免费提供'><span style='font-size:12px;text-decoration:none;font-weight:normal;color:#000000;line-height:20px;'>同时在线[<font color='#FF0000'>1</font>]人</span>&nbsp;<span style='font-size:12px;text-decoration:none;font-weight:normal;color:#000000;line-height:20px;'>今天浏览[<font color='#FF0000'>47</font>]</span>&nbsp;<span style='font-size:12px;text-decoration:none;font-weight:normal;color:#000000;line-height:20px;'>今天IP[<font color='#FF0000'>15</font>]</span>&nbsp;<span style='font-size:12px;text-decoration:none;font-weight:normal;color:#000000;line-height:20px;'>你的IP[<font color='#FF0000'>127.0.0.1</font>]</span>&nbsp;<span style='font-size:12px;text-decoration:none;font-weight:normal;color:#000000;line-height:20px;'>欢迎你第[<font color='#FF0000'>4</font>]次访问本站</span></a></div></td>
                  </tr>
                </table></td>
            </tr>
            <tr align="center" id="a_1">
              <td colspan="2" align="left" bgcolor="#FFFFFF"><div align="right">是否公开统计:</div></td>
              <td align="left" bgcolor="#FFFFFF" class="td_1"><select name="tjopen">
                  <option value="" selected>请选择</option>
                  <option value="-1">公开</option>
                  <option value="0">不公开</option>
                </select></td>
            </tr>
            <tr align="center"> 
              <td colspan="2" align="left" bgcolor="#FFFFFF">&nbsp;</td>
              <td align="left" bgcolor="#FFFFFF" class="td_1"> 
                <input type="submit" name="Submit2" value="设 置">
                <br>
                (注:这里只提供四种基本样式选择,更多的设置请进入"<a href="?Action=jsqset">参数设置</a>&quot;和&quot;<a href="?Action=stylelist">图片样式选择</a>&quot;,你的设置计数器实际效果在&quot;<a href="?Action=getcode">预览及获得代码</a>&quot;里可以看到)</td>
            </tr>
          </form>
        </table>
<%End If%>      

<%if Action="imglist" then%>
<SCRIPT>
function ashow_1(){
a_1.style.display = "";
a_2.style.display = "none";
a_3.style.display = "none";
}
function ashow_2(){
a_1.style.display = "none";
a_2.style.display = "";
a_3.style.display = "";
}
function ashow_3(){
a_1.style.display = "none";
a_2.style.display = "none";
a_3.style.display = "";
}

</script>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
  <form name="form5" method="post" action="?Action=imgmodifysave">
    <tr> 
      <td colspan="2" valign="top" bgcolor="#FFFFFF"><strong>IMG非脚本方式图片定义</strong></td>
    </tr>
    <tr> 
      <td colspan="2" valign="top" bgcolor="#FFFFFF"><input name="assort" type="radio" value="1" onclick="ashow_1()"<%If Assort=1 Then Response.write " checked"%>>
        自定义 <input name="assort" type="radio" value="2" onclick="ashow_2()"<%If Assort=2 Then Response.write " checked"%>>
        系统自带 <input type="radio" name="assort" value="3" onclick="ashow_3()"<%If Assort=3 Then Response.write " checked"%>>
        系统默认</td>
    </tr>
    <tr id="a_1"> 
      <td colspan="2" bgcolor="#FFFFFF"><iframe style="top:2px" ID="UploadFiles" src="CF_UpFile.asp?CFCountUserType=user" frameborder=0 scrolling=no width="450" height="25"> 
        </iframe></td>
    </tr>
    <tr id="a_2"> 
      <td colspan="2" bgcolor="#FFFFFF" > <table width="100%">
          <%

Sql="Select * From CFCount_Upfile Order By AddTime Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
%>
          <tr> 
            <td width="20" valign="top" bgcolor="#FFFFFF"> <input type="radio" name="filename_2" value="<%=Rs("FileName")%>"> 
            </td>
            <td valign="top" bgcolor="#FFFFFF">图  片:<br> <img src="Upload/<%=Rs("FileName")%>"><br>
              上传时间:<%=Rs("AddTime")%></td>
          </tr>
          <%
rs.movenext
wend
%>
        </table></td>
    </tr>
    <tr id="a_3"> 
      <td colspan="2" bgcolor="#FFFFFF"> <input type="submit" name="Submit" value="确定"> 
      </td>
    </tr>
    <tr> 
      <td colspan="2" bgcolor="#FFFFFF">效果:</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#FFFFFF"><a href="<%=Tmp%>Index.asp" target="_blank"><img src="<%=Tmp%>cf.asp?UserName=<%=UserName%>&assort=1" border="0" title="<%=RsSet("Title")%>"></a> </td>
    </tr>
  </form>
</table>
<%end if%>
		
		<%If Action="jsqreset" Then%>
<table width="98%" align="center" class="tba">

          <form name="form3" method="post" action="?Action=jsqresetsave">
<tr class="tba_tr_1">
              <td height="19" colspan="2"> <div align="center"><strong>将根据以下你的设置重置你的计数器,请慎重操作!</strong></div></td>
            </tr>
            <tr align="center"> 
              <td width="156" align="left"><div align="right">所有来源统计:</div></td>
              <td width="563" align="left"><input name="ly" type="checkbox" id="ly" value="-1">
                全部删除</td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">所有日访问统计:</div></td>
              <td align="left"><input name="daytj" type="checkbox" id="daytj" value="-1">
                全部删除</td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">所有小时统计:</div></td>
              <td align="left"><input name="hourtj" type="checkbox" id="hourtj" value="-1">
                全部删除</td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">回头率统计:</div></td>
              <td align="left"><input name="backtj" type="checkbox" id="backtj" value="-1">
                全部删除</td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">Alexa统计:</div></td>
              <td align="left"><input name="alexatj" type="checkbox" id="alexatj" value="-1">
                全部删除</td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">搜索引擎数量统计:</div></td>
              <td align="left"> 
                <input name="searchtj" type="checkbox" id="searchtj" value="-1">
                全部删除</td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">搜索引擎关键字统计:</div></td>
              <td align="left">  
                <input name="keywordtj" type="checkbox" id="keywordtj" value="-1">
                全部删除</td>
            </tr>
			<tr align="center"> 
              <td align="left"><div align="right">页面统计:</div></td>
              <td align="left"><input name="webtj" type="checkbox" id="webtj" value="-1">
                全部删除</td>
            </tr>
            <tr align="center"> 
              <td height="19" align="left"><div align="right">实际显示数:</div></td>
              <td align="left"> <input name="RealShowTotal" type="checkbox" id="hidden" value="-1">
                设置为0</td>
            </tr>
            <tr align="center"> 
              <td align="left"><div align="right">实际IP数值:</div></td>
              <td align="left"><input name="RealIpTotal" type="checkbox" id="RealIpTotal" value="-1">
                设置为0</td>
            </tr>
            <tr align="center">
              <td align="left"><div align="right">输入你的密码确认:</div></td>
              <td align="left"><input name="Pwd" type="password" id="Pwd"></td>
            </tr>
            <tr align="center"> 
              <td align="left">&nbsp;</td>
              <td align="left"> 
                <input type="submit" name="Submit2" value="重 置" onClick="{if(confirm('确定要重置计数么,这样会删除你的一些选择的数据!')){return true;}return false;};">
                  
                <input type="reset" name="Submit22" value="取 消" >
                </td>
            </tr>
          </form>
        </table>
<%End If%>

<%If Action="userdel" Then%>
<table width="98%" align="center" class="tba">
<form name="form3" method="post" action="?Action=userdelsave">
<tr class="tba_tr_1">
              <td height="19" colspan="2"> <div align="center"><strong>账号删除,你确定是否真的要删除!</strong></div></td>
            </tr>
            <tr align="center"> 
              <td width="156" align="left"><div align="right">输入你的密码确认:</div></td>
              <td width="563" align="left"><input name="Pwd" type="password" id="Pwd"></td>
            </tr>
            <tr align="center"> 
              <td align="left">&nbsp;</td>
              <td align="left"> 
                <input type="submit" name="Submit2" value="删 除" onClick="{if(confirm('确定要删除自己的账号么,你的账号在计数器中不复存在!')){return true;}return false;};">
                  
                <input type="reset" name="Submit22" value="取 消" >
                </td>
            </tr>
          </form>
        </table>
<%End If%>


        <%If Action="pwdmodify" Then%>
<%Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>


<table width="98%" align="center" class="tba">
  <form name="form3" method="post" action="?Action=pwdmodifysave">
    <tr class="tba_tr_1"> 
      <td height="21" colspan="2"> <div align="center"><strong>修改密码(带*为必填项)</strong></div></td>
    </tr>
    <tr align="center"> 
      <td align="left"><div align="right">请输入新管理密码:</div></td>
      <td align="left"> <input name="Pwd" type="password" id="Pwd_Old" size="15">
        (不想管理修改请留空)</td>
    </tr>
    <tr align="center"> 
      <td align="left"><div align="right">确认新管理密码:</div></td>
      <td align="left"> <input name="Pwd2" type="password" id="Pwd" size="15">
      </td>
    </tr>
    <tr align="center"> 
      <td align="left"><div align="right">请输入新查看密码:</div></td>
      <td align="left"> <input name="Pwd_View" type="password" id="Pwd_Old" size="15">
        (不想查看修改请留空) </td>
    </tr>
    <tr align="center"> 
      <td align="left"><div align="right">确认新查看密码:</div></td>
      <td align="left"> <input name="Pwd_View2" type="password" id="Pwd_Old" size="15">
      </td>
    </tr>
    <tr align="center"> 
      <td align="left"><div align="right">请输入旧管理密码确认:</div></td>
      <td align="left"><font size="2"> 
        <input name="Pwd_Old" type="password" id="Pwd2" size="15">
        <font color="#0000FF">*</font></font></td>
    </tr>
    <tr align="center"> 
      <td align="left">&nbsp;</td>
      <td align="left"><font size="2"> 
        <input type="submit" name="Submit2" value="修 改" >
          
        <input type="reset" name="Submit22" value="取 消" >
        </font></td>
    </tr>
    <tr align="center"> 
      <td colspan="2" align="left">注意:初始查看密码和刚注册时的管理密码一样,可设置成和管理密码不一样</td>
    </tr>
  </form>
</table>
<%End if%>

<%If Action="datamodify" Then%>
          <script language="JavaScript">
function modifyuser()
{
if ((document.form2.email.value)=="")
{
window.alert ('email必须填写');
document.form2.email.focus();
return false;
}
else if (!isValidEmail(document.form2.email.value)){
 window.alert ('email的格式不正确!');
 document.form2.email.focus();
 return false;
}
else if ((document.form2.pagename.value)=="")
{
window.alert ('主页名称必须填写');
document.form2.pagename.focus();
return false;
}
else if ((document.form2.pageurl.value)=="")
{
window.alert ('主页网址必须填写');
document.form2.pageurl.focus();
return false;
}
else
return true;
}

function isValidEmail(s)
{
 var reg1 = new RegExp('^[a-zA-Z0-9][a-zA-Z0-9@._-]{3,}[a-zA-Z]$');
 var reg2 = new RegExp('[@.]{2}');
 if (s.search(reg1) == -1
  || s.indexOf('@') == -1
  || s.lastIndexOf('.') < s.lastIndexOf('@')
  || s.lastIndexOf('@') != s.indexOf('@')
  || s.search(reg2) != -1)
  return false;		

⌨️ 快捷键说明

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