|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。FSO,正如UFO般使人冲动、使人向往,固然更多的亦是让人欢乐让人忧。君不见某空间服务商告白:100MB空间只需60RMB/年,撑持数据库,撑持甚么甚么……一问不撑持FSO,立马气馁。那FSO事实是甚么器材,它的力气又是怎样伟大,其操纵的道理又是怎的怎的呢?此次来个完全的了解。<P> 起首,FSO是FileSystemObject的简称。固然也就是我们的俗称FSO组件了,该组件能够用来处置驱动器、文件夹和文件。<P> 它能够检测并显现出体系驱动器的信息分派情形;还可以创立、改动、挪动和删除文件夹,并能探测一些给定的文件夹是不是存在,若存在,还能提掏出该文件夹的信息,如称号、被创立或最初一次修正的日期,等等。FSO还使得对文件的处置变得很简单。<P> 1、fso.GetDrive<P> 正如别的组件的创建一样,FSO的援用也必需创建毗连。<P>- Setfso=Server.CreateObject("Scripting.FileSystemObject")
复制代码 <P> 注重CreateObject的外部不再是MSWC了,而是Scripting。
那上面就能够经由过程fso来处置驱动器了。好比fso.GetDriveName提取驱动器名,fso.GetDrive一样提取尺度驱动器名。好比:<P> 1,fso.asp<P>- <%Setfso=Server.CreateObject("Scripting.FileSystemObject")%>
- <%=fso.GetDriveName("d:")%><br>
- <%=fso.GetDrive("d:")%>
复制代码 <P> 你会发明GetDriveName("d:")就是“d:”,而GetDrive("d:")则为尺度的“D:”,以是我们一样平常如许写fso.GetDrive(fso.GetDriveName(drvPath))来提取某个详细的驱动盘。<P> 2、drv.GetInfo
下面已把某个特定的驱动器提取了,那接着是否是提取该驱动盘的详细信息。<P> 2,drv.asp<P>- <%
- Setfso=Server.CreateObject("Scripting.FileSystemObject")
- Setdrv=fso.GetDrive(fso.GetDriveName("d:"))
- %>
- 该盘的空间巨细:<%=drv.TotalSize%><br>
- 该盘的残剩空间巨细:<%=drv.FreeSpace%>
复制代码 <P> 以上只是提取的D盘驱动器的信息,来个通用的函数,持续分离测试本人的驱动吧。<P> 3,drvinfo.asp<P>- <%
- 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>
复制代码 <P> 个中的drv.TotalSize和drv.FreeSpace前往的是字节数,我们能够用FormatNumber()函数处置下。好比FormatNumber(Drive.TotalSize/1024,0)失掉一眼就知磁盘几G的值。<P> 另有一个文件范例:drv.DriveType最多的时分是显现数值“2”,实在“2”就暗示的“硬盘驱动器”,“1”暗示“软盘驱动器”,“4”暗示“光盘驱动器”……<P> 上面就用一个程序遍历显现本人呆板上一切驱动器的信息。<P> 4,showall.asp<P>- <%
- 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>
复制代码 <P> 演示<P> 恩,是否是很神情?那你能够对本人的呆板调试,然后上传到本人的空间往调试,你会发明服务商会你举行了些设置:)
固然更神的还在前面面,好比对文件夹,对文件的操纵(包含增加、修正和删除)。 ps:你对驱动器是不克不及容易增加删除的:)
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|