磁盘空间使用情况

ASP新手入门
最重要的之一是后台管理员需要跟踪他们的磁盘空间使用情况。你的网站需要的服务器空间经常是在很多网站托管包的价格才有真正的区别。如果你的网站超过了你的网站托管包计划的空间分配,通常是不相称的价格,而不是每兆字节的价格支付的托管方案支付的额外的磁盘空间。所有的托管公司应该提供一个在利用SoftComca.com的时候获取多少空间的简单的方法(www.ttasp.net这个主页)跟其他的不一样。这个脚本能被放到虚拟的任何的asp目录下面,会读取所有子目录的大小。如果放在了顶部虚拟层,你可能需要做些关于the server.mappath语句的修改。

<% '抓住页面名称和目录结构 script_name=request.servervariables("script_name") '拆分目录树到一个数组通过/ split_name=split(script_name,"/") '设置下面目录层的数量 num_directory=ubound(split_name)-1 %> <html> <title>Www.ttasp.net(Directory Size)</title> <body bgcolor="#FFFFFF"> <table align="center"> <tr> <td width=150> <b>Directory</b> </td> <td width=150> <b>Megabytes</b> </td> <td width=150> <b>Kilobytes</b> </td> <td width=150> <b>Bytes</b> </td> </tr> <% ‘创建一个文件系统对象 ‘读取在split_name(num_directory)当前目录之下的所有目录 ‘你可以强制跳转这个目录如果你喜欢的话 set directory=server.createobject("scripting.filesystemobject") set allfiles=directory.getfolder(server.mappath("../"& split_name(num_directory)& "/")) '列出所有在目录中的文件 在inallFiles.subfolders 每个目录里面能找到的目录的文件 '移动某一个MSFrontPage目录 if right(directory.Name,3) <> "cnf" then '添加文件夹的总大小 total_size=total_size + directory.size %> <tr> <td width=150> <%= directory.name %> </td> <td width=150><%= formatnumber((directory.size/1024/1024),2) %></td> <td width=150><%= formatnumber((directory.size/1024),0) %></td> <td width=150><%= formatnumber(directory.size,0) %></td> </tr> <% end if 'end check for FrontPage directories next 'end of the for next loop %> <tr> <td width=150><b>Total</b></td> <td width=150><%= formatnumber((total_size/1024/1024),2) %></td> <td width=150><%= formatnumber((total_size/1024),0) %></td> <td width=150><%= formatnumber(total_size,0) %></td> </tr> </table> </body> </html>

相关内容推荐

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

返回
顶部