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

📄 qqcf_admin_manage.asp

📁 1.40种记数器图片样式自由选择
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
      <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")="mdbdo" Then%>

  <table width="730" border=0 align=center cellPadding=3 cellSpacing=1 bordercolor="D6DFF5" bgcolor="D6DFF5" style="border-collapse: collapse">
          <tr align="center" bgcolor="D6DFF5">
        <td height=21 colspan="2"><strong>查看数据库文件大小</strong></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF"> 
        <td height=22 colspan="2">
<%
foldername=Request("foldername")
If foldername="" Then foldername=server.mappath("qqcf_data")
path=foldername
If Instr(path,"\qqcf_data")=0 Then Call AlertBack("不能浏览这个目录！",1)
ShowFolderList(path) 



Function ShowFolderList(folderspec) 
temp=request.ServerVariables("HTTP_REFERER") 
temp=left(temp,Instrrev(temp,"/")) 
temp1=len(folderspec)-len(server.MapPath("./"))-1 
if temp1>0 then 
temp1=right(folderspec,cint(temp1)) 
elseif temp1=-1 then 
temp1="" 
end if 
tempurl=temp+replace(temp1,"\","/")+"/" 
Set fso = CreateObject("Scripting.FileSystemObject") 
upfolderspec=fso.GetParentfoldername(folderspec&"\") 
%>
<div align="center">| <a href="?Action=mdbdo&foldername=<%=upfolderspec%>">向上</a> 
  | <a href="?Action=mdbdo&">返回</a> | </div>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#6595D6">
    <tr bgcolor="#E4E8EF"> 
      <td width="455"><div align="center">名称</div></td>
      <td width="61"><div align="right">大小</div></td>
      <td width="54"><div align="center">类型</div></td>
      <td width="117"><div align="left">修改时间</div></td>
    </tr>
    <% 
'列出目录 
Set f = fso.GetFolder(folderspec) 
Set fc = f.SubFolders 
For Each f1 in fc 
%>
    <tr bgcolor="#E4E8EF" onMouseOut=this.bgColor='#E4E8EF'; onMouseOver=this.bgColor='#FFFFFF';> 
      <td><a href="<%= url%>?Action=mdbdo&foldername=<%= folderspec%>\<%= f1.name%>"><%= f1.name%></a></td>
      <td><div align="right">	  <%MySize=f1.size/1024
	  If MySize<1024 Then Response.write MySize&"K"
	  If MySize>=1024 Then Response.write MySize/1024&"M"%></div></td>
      <td><div align="center">文件夹</div></td>
      <td><div align="left"><%= f1.datelastmodified%></div></td>
    </tr>
    <% 
Next 
foldername=StrReverse(left(StrReverse(folderspec),instr(StrReverse(folderspec),"\")-1))&"/"
'列出文件 
Set fc = f.Files 
For Each f1 in fc 
%>
    <tr bgcolor="#E4E8EF"> 
      <td><%= f1.name%></td>
      <td><div align="right">
	  <%MySize=f1.size/1024
	  If MySize<1024 Then Response.write MySize&"K"
	  If MySize>=1024 Then Response.write MySize/1024&"M"%></div></td>
      <td><div align="left"></div></td>
      <td><div align="left"><%= f1.datelastmodified%></div></td>
    </tr>
    <% 
Next 
set fso=nothing 
%>
  </table> 
<%End Function %>
</td>
      </tr>
      <tr align="center"> 
        <td colspan="2" height=22> <strong>备份数据库</strong></td>
      </tr>
	  <form name="form1" method="POST" action="?Action=back">
      <tr align="center" bgcolor="#FFFFFF"> 
        <td height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动备份</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" height="26" align="right">数据库路径：</td>
        <td width="63%"> <input type="text" name="currf" size="50" value="qqcf_data/qqcf_count #.mdb"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >备份数据目录：</td>
        <td > <input type="text" name="backf" size="50" value="qqcf_data/back"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >数据库名称：</td>
        <td class=tdc> <input type="text" name="backfy" size="50" value="qqcf_count_back #.mdb"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >　</td>
        <td > <input type="submit" name="Submit" value="提交" class=bdtj> <input type="reset" name="Submit2" value="重置" class=bdtj> 
        </td>
      </tr>
    </form>
    <form name="form1" method="POST" action="?Action=ys">
      <tr align="center" bgcolor="D6DFF5"> 
        <td height=22 colspan="2" class=tdc1 <%=hColor2%>> 
          <strong>压缩及修复数据库</strong></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF"> 
        <td  height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动压缩</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >数据库路径：</td>
        <td > <input type="text" name="currf" size="50" value="qqcf_data/back/qqcf_count_back #.mdb"> 
          <input name="assort" type="hidden" id="assort" value="2"> </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td  colspan="2" align="right"> <p align="left">（为了安全，请注意用备份的数据库文件来压缩，不要用当前正在运行的数据库文件）</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >　</td>
        <td > <input type="submit" name="Submit" value="提交" class=bdtj> <input type="reset" name="Submit2" value="重置" class=bdtj> 
        </td>
      </tr>
    </form>
    <form name="form1" method="POST" action="?Action=reload">
      <tr align="center" bgcolor="D6DFF5"> 
                <td height=22 colspan="2" class=tdc1 <%=hColor2%>> 
                  <strong>恢复数据库[注意：恢复不是刚备份的数据库会导致部分数据丢失]</strong></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF"> 
                <td  height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动恢复</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >当前数据库路径：</td>
        <td > <input type="text" name="currf" size="50" value="qqcf_data/qqcf_count #.mdb"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >备份数据路径：</td>
        <td > <input type="text" name="backf" size="50" value="qqcf_data/back/qqcf_count_back #.mdb"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >　</td>
        <td > <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置"> 
        </td>
      </tr>
    </form>
  </table>

  <%end if%> 
  
  <%If Request("Action")="usesys" Then%>

          <table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
            <tr> 
              <td bgcolor="D6DFF5"> <div align="center"><strong>系统使用说明</strong></div></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF"><strong>关于本程序:</strong></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF" class="td_1">版 本:乘风多用户计数器V3.3<br>
                环 境:Asp+Access<br>
                作 者:乘 风<br>
                网 址:<a href="http://www.qqcf.com" target="_blank">http://www.QQCF.com</a><br>
                技术支持QQ，Email，最新版本及升级服务请浏览作者网站!<br>
                此计数器免费使用，无需付费!<br>
                如果付费使用，作者提供给你以后的技术支持，升级服务!<br>
                这里的信息请不要删除,因为对你系统升级和寻求技术支持一定有用的!</td>
            </tr>
            <tr>
              <td bgcolor="#FFFFFF"><div align="left"><strong>关于乘风多用户计数器的MsSql版本</strong></div></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF" class="td_1">因为ACCESS数据库承受力的限制，只支持流量不是很大的网站使用，要提供专业稳定的记数器服务，最好还是选用MsSql版本，支持企业级的SqlServer数据库，核心采用速度快稳定性高的DLL组件、存储过程、事务编写，支持百万级以上的需求,而且也是免费的哦，还不快来打造你的专业服务！MsSql版本下载网站<a href="http://www.qqcf.com" target="_blank"><font color="#FF0000">http://www.qqcf.com</font></a> 
              </td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF"><strong>系统功能：</strong></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF" class="td_1"> 1.40种记数器图片样式自由选择，并且可以方便地增加记数器图片样式。<br>
                2.可以设置计数器显示数字，显示位数，计数器是否隐藏，统计信息是否公开等。<br>
                3.页面显示记数和唯一IP记数两种记数模式，支持Script方式和Img方式调用计数器代码。<br>
                4.可以记录来访客的来源IP地址和来源页面信息，在线人数。<br>
                5.每月、每天和每小时的访问数据统计，回头率统计。<br>
                6.搜索引擎统计，还可以自己定义搜索引擎，搜索关键字统计。<br>
                7.注册用户找回密码功能，用户可以重置统计，删除注册账号。<br>
                8.多用户计数器，具有管理注册用户功能。<br>
                9.系统会自动删除过多的以前的无用的来源和在线记录，保证系统快速稳定运行,还可以在线压缩数据库。<br>
                10.增加计数器图片样式的方法：把新的计数器图片复制到qqcf_counterpic目录，然后设置样式数量即可。<br>
                11.安全性：密码MD5加密，注册、登陆使用验证码，完全防Sql注入</td>
            </tr>
          </table>
<%end if%>
		
		</div></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=41><IMG height=14 src="QQCF_Pic/ok3-3_r15_c12.gif" 
      width=41></TD>
    <TD vAlign=top width=373>
      <P align=center></P></TD>
    <TD vAlign=top width=133>
      <P align=center> </P></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=5><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#ce3300 height=5>
      <P align=center> <A href="http://www.qqcf.com" target=_blank><FONT 
      color=#ffffff>乘风原创程序开发 [&nbsp;<%=RsSet("Title")%>&nbsp;]提供计数服务</FONT></A></FONT></A></P>
	  
	  </TD></TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR></TBODY></TABLE>

</BODY></HTML>
1234

⌨️ 快捷键说明

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