仓酷云

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

[学习教程] ASP网页编程之ASP进修之FSO组件操作实例技能(3)

[复制链接]
小妖女 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:30:53 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式

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

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

x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。fso|技能        操作完驱动器,接着就是来操作文件夹了。个中包含:提取文件夹信息、创立文件夹、删除文件夹、复制文件夹、挪动文件夹等。上面就详细来看。
    1、fso.GetFolder
    一看就分明,是提取文件夹了。那详细是提取哪一个文件夹呢?前面一定要跟一个文件夹的途径。提掏出来了再来显示该文件夹相干信息呢?是否是有要详细提取下去。所以,看法式:
    1,getfldr.ASP
  <%Set fso = CreateObject("Scripting.FileSystemObject")
  Set fldr = fso.GetFolder("c:\Program Files")
  Response.Write "父文件夹名字是:" & fldr & "<br>"
  If fldr.IsRootFolder = True Then
  Response.Write "该文件夹是一根文件夹" & "<br>"
  Else
  Response.Write "该文件夹不是根文件夹" & "<br>"
  End If
  Response.Write "驱动器名字是:" & fldr.Drive & "<br>"%>
    起首创立FSO组件的毗连是必不成少的啦,然后Set fldr = fso.GetFolder("c:\Program Files")设定fldr对象被赋值,以作上面法式的援用。
    fldr.IsRootFolder即为判别该文件夹是不是为一根文件夹,值为布尔值(true or false);fldr.Drive则显示该文件夹地点的驱动器号了。
    2、fso.CreateFolder
    上面对照让人冲动的是经由过程ASP创立文件夹了,你可以在你的权利局限内恣意地位创立恣意文件夹。
    2,creatfldr.asp
  <%Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CreateFolder ("c:\cnbruce")
  Response.Write "文件夹名为" & fso.GetBaseName("c:\cnbruce")%>
    履行法式,应当发明C盘多出了cnbruce文件夹,fso.GetBaseName则是提取文件夹名。
    3、fso.DeleteFolder
    经由过程ASP可以创立了文件夹,则一样可以删除文件夹。
    3,delfldr.asp
  <%Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFolder("c:\cnbruce")
  Response.Write "文件夹已删除"%>
    发明刚创立的cnbruce文件夹的确已被删除。
   
    那上面就采取一个通用法式来天真应变下。
    4,mainflr.asp
  <%Sub CreateAFolder(file)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CreateFolder(file)
  response.write "已创立了"&file
  End Sub
  Sub DeleteAFolder(file)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFolder(file)
  response.write "已删除"&file
  End Sub%>
  <%subname=request.form("submit")
  create=request.form("create")
  del=request.form("del")
  if subname<>"" then
   if create<>"" then
   call CreateAFolder(""&create&"")
   end if
   if del<>"" then
   call DeleteAFolder(""&del&"")
   end if
  end if%>
   <form action="mainflr.asp" method="post">
   <input name="create">
   <input type="submit" value="创立" name="submit">
   </form>
   <hr>
   <form action="mainflr.asp" method="post"><input name="del">
   <input type="submit" value="删除" name="submit">
   </form>
    需求注重的是:删除其实不会提醒“确认要放入收受接管站”这项。这点你需求慎重处置,出格是对你的体系文件夹。
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的东西可是什么都要收钱的啊!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-5-12 21:01

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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