ASP教程之FSO系列之六**示例代码之筹办任务

显示全部楼层 · 发表于 2015-2-3 23:39:23

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

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

x

asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！fso|示例在以下的示例代码，供应真实的例子来示范在 FileSystemObject 对象形式中可用的很多功效。该代码显示了若何一同利用对象形式的一切功效，和若何在您本人的代码中无效地利用这些功效。

请注重，因为该代码是极普通的，所以要使该代码可以真正在您的机械上运转，能够需求一些其他代码和小小的变动。这些改动之所以需要，是由于在 Active Server Pages 和 Windows Scripting Host 之间，为输出和输入给用户采取了分歧的办法。

要在 Active Server Pages 上运转该代码，则接纳以下步调：

创立一个尺度的 Web 页，后缀名为 .asp。
把上面的示例代码复制到 <BODY>...</BODY> 标志之间的文件中。
把一切代码封装到 <%...%> 标志内。
把 Option Explicit 语句从以后地位挪动到 HTML 页的最顶部，乃至在 <HTML> 入手下手标志前。
把 <%...%> 标志放置在 Option Explicit 语句四周，以包管它在办事器端运转。

把上面的代码添加到示例代码末尾：
Sub Print(x)
  Response.Write "<PRE><FONT face="宋体"" SIZE=""1"">"
  Response.Write x
  Response.Write "</FONT></PRE>"
End Sub
Main

后面的代码增添一个将在办事器端运转，但在客户端显示了局的打印进程。要在 Windows Scripting Host 上运转该代码，则把上面的代码添加到示例代码的末尾：
Sub Print(x)
WScript.Echo x
End Sub
Main

上面就是示例代码：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' FileSystemObject 示例代码
'
'Copyright 1998
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 关于代码质量：
'
' 1) 上面的代码有很多字符串操作，用"&"运算符来把短字符串联接在一同。因为
'字符串联接是费时的，所以这是一种低效力的写代码办法。不管若何，它是
' 一种十分好保护的写代码办法，而且在这儿利用了这类办法，由于该法式履行
' 大批的磁盘操作，而磁盘操作比毗连字符串所需的内存操作要慢很多。
' 记住这是示范代码，而不是产物代码。
'
' 2) 利用了 "Option Explicit"，由于会见声明过的变量，比会见未声明的变量要
' 略微快一些。它还能禁止在代码中产生毛病，例如，把 DriveTypeCDROM 误拼
' 成了 DriveTypeCDORM 。
'咱们这里以为你利用InterDev作为开辟东西
’
' 3) 为了使代码更可读，该代码中没有毛病处置。固然接纳了提防办法，来包管代码
' 在通俗情形下没有毛病，但文件体系是不成预知的。在产物代码中，利用
' On Error Resume Next 和 Err 对象来捕捉能够产生的毛病。
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 一些轻易获得的全局变量
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim TabStop
Dim NewLine

Const TestDrive = "C"
Const TestFilePath = "C:\Test"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 由 Drive.DriveType 前往的常数
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Const DriveTypeRemovable = 1
Const DriveTypeFixed = 2
Const DriveTypeNetwork = 3
Const DriveTypeCDROM = 4
Const DriveTypeRAMDisk = 5

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 由 File.Attributes 前往的常数
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Const FileAttrNormal  = 0
Const FileAttrReadOnly = 1
Const FileAttrHidden = 2
Const FileAttrSystem = 4
Const FileAttrVolume = 8
Const FileAttrDirectory = 16
Const FileAttrArchive = 32
Const FileAttrAlias = 64
Const FileAttrCompressed = 128

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 用来翻开文件的常数
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8

好了，咱们做了这些，上面可以看一下详细的例子了。</p>  当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题

		自动登录	找回密码
密码			立即注册

[学习教程] ASP教程之FSO系列之六**示例代码之筹办任务

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

相关帖子