扩大一倍，VFPBS使用ASP的资源和组件的秘招

虽然ASP也已经不更新了，但是中国早期开发的网站都是用ASP开发的，所以相对VFP来说，ASP的资源和教程是很多的，这些资源大部分是可以被VFP所用的。

我们先从ASP的FileSystemObject对象来讲，其实FileSystemObject对象是个com，也就是几乎所有的语言都是可以调用的。

ASP FileSystemObject 对象

FileSystemObject 对象用于访问服务器上的文件系统。此对象可对文件、文件夹以及目录路径进行操作。也可通过此对象获取文件系统的信息。

新建一个a.asp，下面的代码会创建一个文本文件 (c:\test.txt)，然后向这个文件写一些文本：

<%
dim fs,fname
      set fs=Server.CreateObject("Scripting.FileSystemObject")
      set fname=fs.CreateTextFile("c:\test.txt",true)
      fname.WriteLine("Hello World!")
      fname.Close
　　　set fname=nothing
　　　set fs=nothing
%>

那么在VFPBS中怎么使用呢？非常简单！

新建模板HTML，输入如下代码

<%
      fs=CreateObject("Scripting.FileSystemObject")
			fname=fs.CreateTextFile("c:\test.txt",.T.)
      fname.WriteLine("Hello World!")
      fname.Close()
%>

也可以写在后端的controller类中

Define Class ctl_asp As Session
	Procedure test
		fs=Createobject("Scripting.FileSystemObject")
		fname=fs.CreateTextFile("c:\test.txt",.T.)
		fname.WriteLine("Hello World!")
		fname.Close()
	Endproc

Enddefine

是不是非常简单，像图片加水印，广告组件什么的，都可以使用ASP的相应组件。

FileSystemObject 对象的属性和方法描述如下：

属性	描述
Drives	返回本地计算机上所有驱动器对象的集合。

方法

方法	描述
BuildPath	将一个名称追加到已有的路径后
CopyFile	从一个位置向另一个位置拷贝一个或多个文件。
CopyFolder	从一个位置向另一个位置拷贝一个或多个文件夹。
CreateFolder	创建新文件夹。
CreateTextFile	创建文本文件，并返回一个 TextStream 对象。
DeleteFile	删除一个或者多个指定的文件。
DeleteFolder	删除一个或者多个指定的文件夹。
DriveExists	检查指定的驱动器是否存在。
FileExists	检查指定的文件是否存在。
FolderExists	检查某个文件夹是否存在。
GetAbsolutePathName	针对指定的路径返回从驱动器根部起始的完整路径。
GetBaseName	返回指定文件或者文件夹的基名称。
GetDrive	返回指定路径中所对应的驱动器的 Drive 对象。
GetDriveName	返回指定的路径的驱动器名称。
GetExtensionName	返回在指定的路径中最后一个成分的文件扩展名。
GetFile	返回一个针对指定路径的 File 对象。
GetFileName	返回在指定的路径中最后一个成分的文件名。
GetFolder	返回一个针对指定路径的 Folder 对象。
GetParentFolderName	返回在指定的路径中最后一个成分的父文件名称。
GetSpecialFolder	返回某些 Windows 的特殊文件夹的路径。
GetTempName	返回一个随机生成的文件或文件夹。
MoveFile	从一个位置向另一个位置移动一个或多个文件。
MoveFolder	从一个位置向另一个位置移动一个或多个文件夹。
OpenTextFile	打开文件，并返回一个用于访问此文件的 TextStream 对象。

FileSystemObject 组件的更多用法可以百度哦。

我会找些好用的ASP组件，让大家的BS之旅更加舒适。