内容摘要：%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是使用正则提取内容里所有图片路径SRC的实现代码
• ·多关键词搜索的简单实现方法
• ·根据IP地址自动判断转向分站的代码
• ·asp目录读写权限检测脚本
• ·asp 隐藏并修改文件的最后修改时间
• ·asp 随机字符串函数
• ·ASP 处理JSON数据的实现代码
• ·取得指定驱动器的文件系统信息
• ·取得指定驱动器的剩余空间容量
• ·取得指定驱动器的可用空间数