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

2021-10-08 16:48:17 浏览数 (1)

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

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

ASP FileSystemObject 对象

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

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

代码语言:javascript复制
<%
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,输入如下代码

代码语言:javascript复制
<%
      fs=CreateObject("Scripting.FileSystemObject")
			fname=fs.CreateTextFile("c:test.txt",.T.)
      fname.WriteLine("Hello World!")
      fname.Close()
%>

也可以写在后端的controller类中

代码语言:javascript复制
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之旅更加舒适。

写在最后面的话

加菲猫的VFP公众号接受投稿,一经采用,即有稿费,稿费暂定50元一篇。

加菲猫的vfp倡导用VFP极简混合开发,少写代码、快速出活,用VFP,但不局限于VFP,各种语言混合开发。

已经带领一百多名会员成功掌到VFP的黑科技,进入了移动互联网时代,接下来我们要进入物联网领域。

asp

0 人点赞