<!DOCTYPE html>
<html>
<body>
<%
Dim fs,d,n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "驅動器: " & d
n = n & "
總大小 (位元組): " & d.TotalSize
Response.Write(n)
set d=nothing
set fs=nothing
%>
</body>
</html>