admin_fso.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<%
if adminpassword<>session("pass") then
response.redirect "admin.asp?menu=login"
end if
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=images/skins/<%=Request.Cookies("skins")%>/bbs.css rel=stylesheet>
<br><center>
<p></p>

<%
select case Request("menu")

case "files"
files

case "delfiles"
set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject")
for each ho in request.form("files")
MyFileObject.DeleteFile""&Server.MapPath("./images/upfile/"&ho&"")&""
next
error2("已经成功删除所选的文件！")



case "bak"
bak

case "compress"
compress

case "bakbf"
set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject")
MyFileObject.CopyFile ""&Server.MapPath(Request("yl"))&"",""&Server.MapPath(Request("bf"))&""
error2("备份成功！")

case "bakhf"
set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject")
MyFileObject.CopyFile ""&Server.MapPath(Request("bf"))&"",""&Server.MapPath(Request("yl"))&""
error2("恢复成功！")

case "css"
css


case "cssok"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("images/skins/bbs.css")
Set txtf=fs.OpenTextFile(File,2,true)
txtf.Write Request("css")
error2("更新成功！")

case "statroom"
statroom

end select

sub bak
%>

<fieldset style="WIDTH: 550">
<legend>备份数据库</legend>
<form method="post" action="?menu=bakbf">
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%">
<tr>
<td width="30%">数据库路径： </td>
<td width="70%">
<input size="30" value="<%=datafile%>" name="yl"></td>
</tr>
<tr>
<td width="30%">备份的数据库路径：</td>
<td width="70%"><input size="30" value="<%=replace(datafile,".mdb","bak.mdb")%>" name="bf"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">
<input type="submit" value=" 备 份 " name="Submit1"><br><br></td>
</tr>
</table>
</fieldset>
</form>

<fieldset style="WIDTH:550">
<legend>恢复数据库</legend>
<form method="post" action="?menu=bakhf">
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%">
<tr>
<td width="30%">备份的数据库路径： </td>
<td width="70%">
<input size="30" value="<%=replace(datafile,".mdb","bak.mdb")%>" name="bf"></td>
</tr>
<tr>
<td width="30%">数据库路径：</td>
<td width="70%"><input size="30" value="<%=datafile%>" name="yl"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">
<input type="submit" value=" 恢 复 " name="Submit1"><br><br></td>
</tr>
</table></fieldset>
</form>

<%
end sub

sub compress
%>
<fieldset style="WIDTH: 400">
<legend>压缩数据库</legend>
<form action=compact.asp>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%">
<tr>

<td width="70%">
数据库路径： <input size="30" value="<%=datafile%>" name="dbpath">
<br>数据库格式： <input type="radio" value="True" name="boolIs97">Access 97　<input type="radio" value="" name="boolIs97" checked>Access 2000、2002</td>
</tr>

<td width="100%" align="center" colspan="2">
<input type="submit" value=" 压 缩 " name="Submit"><br><br></td>
</tr>
</table>
</fieldset>
</form>

<%
end sub

sub css
%>
编辑默认CSS模板
<br>
<form method="post" action="?menu=cssok">
您可以在这里编辑模板文件，如果您不懂CSS，请不要改动。<br>
<textarea name="css" rows="8" cols="50">
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("images/skins/bbs.css")
Set txtf=fs.OpenTextFile(File)
Response.Write txtf.ReadAll
%></textarea><br>
<input type="submit" value="　　　更　　　新　　　"> </p>
</form>

<%
end sub


sub statroom
set fso=server.createobject("scripting.filesystemobject")
upfacedir=server.mappath("./images/upface")
set d=fso.getfolder(upfacedir)
upfacesize=d.size

upphotodir=server.mappath("./images/upphoto")
set d=fso.getfolder(upphotodir)
upphotosize=d.size

upphotodir=server.mappath("./images/upfile")
set d=fso.getfolder(upphotodir)
upfilesize=d.size

datadir=server.mappath(""&datapath&"")
set d=fso.getfolder(datadir)
datasize=d.size

toldir=server.mappath(".")
set d=fso.getfolder(toldir)
tolsize=d.size

%>
统计占用空间</b></font></td>
</tr></table><br>
<table width=90%><tr><td>
上传头像占用空间<br>
上传照片占用空间<br>
上传附件占用空间<br>
数据库目录占用空间<br>
BBSXP目录占用空间
</td>
<td width=60%>
<IMG height=10 src="images/red.gif" width=<%=Int(upfacesize/1024/1024/5)%>> <%=Int(upfacesize/1024/1024)%> MB<br>
<IMG height=10 src="images/red.gif" width=<%=Int(upphotosize/1024/1024/5)%>> <%=Int(upphotosize/1024/1024)%> MB<br>
<IMG height=10 src="images/red.gif" width=<%=Int(upfilesize/1024/1024/5)%>> <%=Int(upfilesize/1024/1024)%> MB<br>
<IMG height=10 src="images/red.gif" width=<%=Int(datasize/1024/1024/5)%>> <%=Int(datasize/1024/1024)%> MB<br>
<IMG height=10 src="images/red.gif" width=<%=Int(tolsize/1024/1024/5)%>> <%=Int(tolsize/1024/1024)%> MB<br>
</td></tr></table>
<%
end sub


sub files

thisdir=server.mappath("./images/upfile")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fdir=fs.GetFolder(thisdir)




pagesetup=10 '设定每页的显示数量
count=fdir.Files.count

If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0


if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage



%>
<script>
function CheckAll(form){for (var i=0;i<form.elements.length;i++){var e = form.elements[i];if (e.name != 'chkall')e.checked = form.chkall.checked;}}
</script>

共有 <font color="#FF0000"><b><%=fdir.Files.count%></b></font> 个文件
<form method=post name=form action="?menu=delfiles">
<table width=600 cellpadding=2 cellspacing=2>
<tr class=a1 ><td width=50 align="center"><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td><td width=200>名称</td>
  <td width=50 align=center>
大小</td><td width=100 align="center">类型</td><td width=200 align="center">
修改时间</td></tr></table>
<%
pagesize=20
page=request.querystring("page")
if page="" or not isnumeric(page) then
	page=1
else
	page=int(page)
end if
filenum=fdir.Files.count
pagenum=int(filenum/pagesize)
if filenum mod pagesize>0 then
	pagenum=pagenum+1
end if
if page> pagenum then
	page=1
end if
i=0



For each thing in fdir.Files

	i=i+1
	if i>(page-1)*pagesize and i<=page*pagesize then

response.write "<table width=600 cellpadding=2 cellspacing=2><tr><td width=50 align=center><input type='CheckBox' value='"&thing.name&"' name=files></td><td width=200><a target=_blank href="&cluburl&"/images/upfile/"&thing.Name&">"&thing.Name&"</a></td><td width=50 align=center>" & cstr(thing.size) & "</td><td width=100>" & thing.type & "</td><td width=200 align=center>" & cstr(thing.datelastmodified) & "</td></tr></table>"


	elseif i>page*pagesize then
		exit for
	end if


Next

%>


<table width=600 cellpadding=2 cellspacing=2>
<tr><td align="center">
<INPUT type=submit value=" 删 除 " name=Submit>

</td><td align="center">




<%

if page>1 then
	response.write "<a href=?menu=files&page=1>首页</a>&nbsp;&nbsp;<a href=?menu=files&page="& page-1 &">上一页</a>&nbsp;&nbsp;"
else
	response.write "首页&nbsp;&nbsp;上一页&nbsp;&nbsp;"
end if
if page<i/pagesize then
	response.write "<a href=?menu=files&page="& page+1 &">下一页</a>&nbsp;&nbsp;<a href=?menu=files&page="& pagenum &">尾页</a>"
else
	response.write "下一页&nbsp;&nbsp;尾页"
end if




%>

</td>

</tr></table>
</form>

<%
end sub



htmlend
%>