|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 |
|