<%
'乘风多用户计数器
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，没有放在程序里，请自己上网站上查看
%>
<%If SysCode="" Then Response.End%>

<%
If Action<>"dbdo" Then Response.End
%> 
<table class="tb_1">
<tr class="tr_1"> 
<td>执行Sql语句</td>
</tr>
<form name="form_exesql" id="form_exesql" method="post" action="?action=sqlexesave">
<tr> 
<td><textarea name="sql" cols="80" rows="5" id="sqlcmd"></textarea> 
</td>
</tr>
<tr>
<td>请输入管理员密码确认执行：
<input type="password" name="Pwd"></td>
</tr>
<tr>
<td><input type="button" name="Submit" value="确定执行以上Sql语句" onclick="$(function () { confirm('确定执行以上Sql语句吗?', '', function (isConfirm) {if (isConfirm) {$('#form_exesql').submit();}}, {confirmButtonText: '确定', cancelButtonText: '取消', width: 400});});">
注：多行语句执行以回车换行，每一行要求为一完整语句</td>
</tr>
</form>
<tr class="tr_1">  
<td>数据库日志压缩</td>
</tr>
<tr> 
<td><input type="button" name="Submit2" value="点击压缩数据库" onclick="$(function () { confirm('确定要压缩数据库吗?', '', function (isConfirm) {if (isConfirm) {gotoUrl('?Action=dbys')}}, {confirmButtonText: '确定', cancelButtonText: '取消', width: 400});});">
注：任何时候可以操作，但每次操作不要间隔太短，如一分钟内操作好几次</td>
</tr>
<tr class="tr_1"> 
<td> 数据库备份</td>
</tr>
<tr> 
<td><input type="button" name="Submit2" value="点击备份数据库" onclick="$(function () { confirm('确定要备份数据库么?此操作可能需要花费比较长的时间', '', function (isConfirm) {if (isConfirm) {gotoUrl('?Action=dbbackup')}}, {confirmButtonText: '确定', cancelButtonText: '取消', width: 400});});">
注：条件是程序和数据库放在一台服务器上，并且不是在虚拟主机上，放在虚拟主机上请手工自己备份,每次操作不要间隔太短，如一分钟内操作好几次，备份数据库放在程序的data目录里，以backup开头后面是备份的时间的文件格式命名，数据库大的话可此操作需要花费比较长的时间</td>
</tr>
<tr> 
<td class="td_1"><%
foldername=server.mappath("data")
path=foldername
If Instr(path,"\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&"\") 
%>
<table style="width:100%">
<tr> 
<td>名称</td>
<td>大小</td>
<td>类型</td>
<td>修改时间</td>
</tr>
<% 
'列出目录 
Set f = fso.GetFolder(folderspec) 
Set fc = f.SubFolders 
For Each f1 in fc 
%>
<tr> 
<td><%= f1.name%></td>
<td>
<%MySize=f1.size/1024
If MySize<1024 Then Response.write MySize&"K"
If MySize>=1024 Then Response.write MySize/1024&"M"%>
</td>
<td>文件夹</td>
<td><%= f1.datelastmodified%></td>
</tr>
<% 
Next 
foldername=StrReverse(left(StrReverse(folderspec),instr(StrReverse(folderspec),"\")-1))&"/"
'列出文件 
Set fc = f.Files 
For Each f1 in fc 
%>
<tr> 
<td><%= f1.name%></td>
<td><%MySize=f1.size/1024
If MySize<1024 Then Response.write MySize&"K"
If MySize>=1024 Then Response.write MySize/1024&"M"%>
</td>
<td><div >&nbsp;</td>
<td><%= f1.datelastmodified%></td>
</tr>
<% 
Next 
set fso=nothing 
%>
</table>
<%End Function %></td>
</tr>
</table>
</td>
</tr>
</table>