IDC资讯中心
<title> new document </title>
<meta name="generator" content="editplus">
<meta name="author" content="">
<meta name="keywords" content="">
<meta name="description" content="">
<style>
body{text-align:left;font:12px #000080 ;}
#main{float:left;width:680px;border:#0000ff 1px solid;margin:5px 20px;padding:10px 100px;}
#main p{}
</style>
</head>
<body>
<div id="main">
<%
option explicit
select case request("actionname")
case "查找"
call find(request("dirname"))
case "进入"
call enterdir(request("dirname"))
case otherwise
call showmain()
end select
actionarray=storearrayvalue("查找,搜索,走吧,进入",",")
drvname=split(showdrivelist,",")
response.write "<form name=drv action=find.asp>"
response.write writeselect(actionarray,actionname)
response.write writeselect(drvname,dirname)
response.write "<input type=submit name=action value=开始></form>"
此函数用来给数组赋值，arrayvalue为要赋的字符串值,splitmethod为分割此字符串的依据
function storearrayvalue(arrayvalue,splitmethod)
storearrayvalue=split(arrayvalue,splitmethod)
end function
此函数返回下拉列表字符串，arrayname为传入的数组名称，sltname为此下拉列表的名称
function writeselect(arrayname,sltname)
dim slt,i
slt="<select name=" & sltname & ">"
for i=0 to ubound(arrayname)
slt=slt & "<option value=" & arrayname(i) &">" & arrayname(i) & "</option>"
next
slt=slt & "</select>"
writeselect=slt
end function
此函数返回所有驱动器
function showdrivelist
dim fso, d, dc,i,s
set fso = createobject("scripting.filesystemobject")
set dc = fso.drives
i=0
for each d in dc
s=s&d.driveletter&","
i=i+1
next
s=mid(s,1,len(s)-1)
showdrivelist=s
end function
此过程输出所选驱动器的容量状况.
showdriveinfo("e:\")
sub showdriveinfo(drvpath)
dim fso, drv, s
set fso = createobject("scripting.filesystemobject")
set drv = fso.getdrive(fso.getdrivename(drvpath))
s = "drive " & ucase(drvpath) & " – "
s = s & drv.volumename & "<br/>"
s = s & "total space: " & formatnumber(drv.totalsize / (1024*1024*1024), -1)
s = s & " gb" & "<br/>"
s = s & "free space: " & formatnumber(drv.freespace / (1024*1024*1024), -1)
s = s & " gb" & "<br/>"
response.write s
end sub
%>
</div>
</body>
</html>
