三个函数-数组赋值-下拉列表输出-取驱动器

最新推荐文章于 2022-08-19 22:39:31 发布

gu1dai

最新推荐文章于 2022-08-19 22:39:31 发布

阅读量1.1k

点赞数

分类专栏：研究心得文章标签： function generator action float input each

本文链接：https://blog.csdn.net/gu1dai/article/details/248107

版权

研究心得专栏收录该内容

20 篇文章 0 订阅

订阅专栏

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

gu1dai

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
三个函数-数组赋值-下拉列表输出-取驱动器

New Document body{text-align:left;font:12px #000080 ;}#main{float:left;width:680px;border:#0000ff 1px solid;margin:5px 20px;padding:10px 100px;}#main p{} Option Explicitselect case request("acti
复制链接

扫一扫