<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> 
|