内容摘要：%Dim fs,d,nSet fs=Server.CreateObject('Scripting.FileSystemObject')Set d=fs.GetDrive('c:')n = '驱动器：'dn = n'br /以字节计的总容量：'d.TotalSizeResponse.Write(n)set d=nothingset fs=nothing%......

Dim fs,d,n

Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set d=fs.GetDrive("c:")

n = "驱动器：" & d

n = n & "<br />以字节计的总容量：" & d.TotalSize

Response.Write(n)

set d=nothing

set fs=nothing

%>

• ·ASP 百度主动推送代码范例
• ·asp获得完整的url
• ·ASP中格式化时间短日期补0变两位长日期的方法
• ·asp中Request.ServerVariables的参数集合
• ·asp在线执行sql语句的函数
• ·ASP是使用正则提取内容里所有图片路径SRC的实现代码
• ·多关键词搜索的简单实现方法
• ·根据IP地址自动判断转向分站的代码
• ·asp目录读写权限检测脚本
• ·asp 隐藏并修改文件的最后修改时间