仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 411|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网站制作之深切进修ASP静态网页手艺之FSO组件之驱...

[复制链接]
柔情似水 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:18:38 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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的捆绑而显现出来;
谁可相欹 该用户已被删除
沙发
发表于 2015-1-19 07:55:18 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
莫相离 该用户已被删除
板凳
发表于 2015-1-27 13:50:22 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
地板
发表于 2015-2-11 11:15:47 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
乐观 该用户已被删除
5#
发表于 2015-3-2 11:43:55 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
老尸 该用户已被删除
6#
发表于 2015-3-11 04:06:29 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
山那边是海 该用户已被删除
7#
发表于 2015-3-17 20:46:17 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
蒙在股里 该用户已被删除
8#
发表于 2015-3-25 01:45:06 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 08:01

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表