<html> <body> <% dim fs,d set fs=Server.CreateObject("Scripting.FileSystemObject") set d=fs.GetDrive("c:") Response.Write("序列号：" & d.SerialNumber) set d=nothing set fs=nothing %> </body> </html>
<% dim fs,d set fs=Server.CreateObject("Scripting.FileSystemObject") set d=fs.GetDrive("c:") Response.Write("序列号：" & d.SerialNumber) set d=nothing set fs=nothing %>