|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。fso|静态|驱动器|网页 FSO,正如UFO般使人冲动、使人向往,固然更多的亦是让人欢乐让人忧。君不见某空间服务商告白:100MB空间只需60RMB/年,撑持数据库,撑持甚么甚么……一问不撑持FSO,立马气馁。那FSO事实是甚么器材,它的力气又是怎样伟大,其操纵的道理又是怎的怎的呢?此次来个完全的了解。
起首,FSO是FileSystemObject的简称。固然也就是我们的俗称FSO组件了,该组件能够用来处置驱动器、文件夹和文件。
它能够检测并显现出体系驱动器的信息分派情形;还可以创立、改动、挪动和删除文件夹,并能探测一些给定的文件夹是不是存在,若存在,还能提掏出该文件夹的信息,如称号、被创立或最初一次修正的日期,等等。FSO还使得对文件的处置变得很简单。
1、fso.GetDrive
正如别的组件的创建一样,FSO的援用也必需创建毗连。
Setfso=Server.CreateObject("Scripting.FileSystemObject")
注重CreateObject的外部不再是MSWC了,而是Scripting。
那上面就能够经由过程fso来处置驱动器了。好比fso.GetDriveName提取驱动器名,fso.GetDrive一样提取尺度驱动器名。好比:
1,fso.asp
<%Setfso=Server.CreateObject("Scripting.FileSystemObject")%>
<%=fso.GetDriveName("d:")%><br>
<%=fso.GetDrive("d:")%> 你会发明GetDriveName("d:")就是“d:”,而GetDrive("d:")则为尺度的“D:”,以是我们一样平常如许写fso.GetDrive(fso.GetDriveName(drvPath))来提取某个详细的驱动盘。
2、drv.GetInfo
下面已把某个特定的驱动器提取了,那接着是否是提取该驱动盘的详细信息。
2,drv.asp
<%
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Setdrv=fso.GetDrive(fso.GetDriveName("d:"))
%>
该盘的空间巨细:<%=drv.TotalSize%><br>
该盘的残剩空间巨细:<%=drv.FreeSpace%>
以上只是提取的D盘驱动器的信息,来个通用的函数,持续分离测试本人的驱动吧。
3,drvinfo.asp
<%
FunctionShowDriveInfo(drvPath)
Dimfso,drv,s
Setfso=CreateObject("Scripting.FileSystemObject")
Setdrv=fso.GetDrive(fso.GetDriveName(drvPath))
s="驱动盘"&drv&"的卷标是:"
s=s&drv.VolumeName&"<br>"
s=s&"总计空间:"&drv.TotalSize&"<br>"
s=s&"残剩空间:"&drv.FreeSpace&"<br>"
s=s&"文件范例:"&drv.DriveType&"<br>"
s=s&"文件体系:"&drv.FileSystem
Response.Writes
EndFunction
%>
<%
onerrorresumenext
whatpath=request.form("path")
ifwhatpath""then
ShowDriveInfo(whatpath)
endif%>
<formaction="drvinfo.asp"method="post">
<inputname="path">
<inputtype="submit">
</form> 个中的drv.TotalSize和drv.FreeSpace前往的是字节数,我们能够用FormatNumber()函数处置下。好比FormatNumber(Drive.TotalSize/1024,0)失掉一眼就知磁盘几G的值。
另有一个文件范例:drv.DriveType最多的时分是显现数值“2”,实在“2”就暗示的“硬盘驱动器”,“1”暗示“软盘驱动器”,“4”暗示“光盘驱动器”……
上面就用一个程序遍历显现本人呆板上一切驱动器的信息
4,showall.asp
<%
Functiontran(Driver)
SelectCaseDriver
Case0:tran="设备没法辨认"
Case1:tran="软盘驱动器"
Case2:tran="硬盘驱动器"
Case3:tran="收集硬盘驱动器"
Case4:tran="光盘驱动器"
Case5:tran="RAM假造磁盘"
EndSelect
EndFunction
setfso=Server.CreateObject("Scripting.FileSystemObject")
%>
<tableborder=1width="100%">
<tr>
<td>盘符</td>
<td>范例</td>
<td>卷标</td>
<td>总计巨细</td>
<td>可用空间</td>
<td>文件体系</td>
<td>序列号</td>
<td>是不是可用</td>
<td>路径</td>
</tr>
<%
onerrorresumenext
Foreachdrvinfso.Drives
Response.Write"<tr>"
Response.Write"<td>"&drv.DriveLetter&"</td>"
Response.write"<td>"&tran(drv.DriveType)&"</td>"
Response.write"<td>"&drv.VolumeName&"</td>"
Response.write"<td>"&FormatNumber(drv.TotalSize/1024,0)&"</td>"
Response.write"<td>"&FormatNumber(drv.Availablespace/1024,0)&"</td>"
Response.write"<td>"&drv.FileSystem&"</td>"
Response.write"<td>"&drv.SerialNumber&"</td>"
Response.write"<td>"&drv.IsReady&"</td>"
Response.write"<td>"&drv.Path&"</td>"
Response.Write"</tr>"
Next
setfs=nothing
%>
</table> 恩,是否是很神情?那你能够对本人的呆板调试,然后上传到本人的空间往调试,你会发明服务商会你举行了些设置:)
固然更神的还在前面面,好比对文件夹,对文件的操纵(包含增加、修正和删除)。ps:你对驱动器是不克不及容易增加删除的:)
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|