ASP--文件和文件夹操作-白红宇

ASP--文件和文件夹操作

阅读量：7100 次

发布时间：2019-06-28

本文共 7925 字，大约阅读时间需要 26 分钟。

执行指定的ASP程序----Server.Execute方法

语法：Server.Execute(path)

用途：这个方法是IIS5.0 新增的功能，用途类似程序语言中的函数调用，也就是说，

您可以在ASP 程序中使用Server.Execute(path)方法调用Path 指定的ASP 程序，待

被调用

的程序执行完毕之后再返回原来的程序，继续执行接下来的指令。

page1.asp:

<html>

<body>

<%Response.write "调用Execute方法之前"%>

<%Server.Execute("page2.asp")%> '执行page2.asp后会再返回

<%Response.write "调用Execute方法之后"%>

</body>

</html>

page2.asp:

<html>

<body>

<%Response.write "这是page2.asp执行结果"%>

</body>

</html>

转移控制权至其它ASP 程序------Server.Transfer 方法

语法：Server.Transfer(path)

用途：这个方法也是IIS5.0 新增功能，用途是将目前ASP 程序的控制权转移至path

指定的ASP 程序，即使转移之后的程序已经执行完毕，控制权后权仍不会返回原来

的程序。

page3.asp

<html>

<body>

<%Response.write "调用Execute方法之前"%>

<%Server.Transfer("page2.asp")%> '执行page2.asp后会再返回

<%Response.write "调用Execute方法之后"%>

</body>

</html>

字符串编码-----Server.HTMLEncode 和Server.URLEncode 方法

Server.HTMLEncode(string)方法可以将string 进行编码，使它不会被浏览器解释为

HTML

语法。

范例：Response.Write<Server.HTMLEncode(“”)>

此时浏览器收到的HTML 编译后的结果使

因此在画面上显示为

相反的，Server.URLEncode(string)方法可以将String 进行编码，以放入

QueryString

<html>

<body>

<%Response.write "这是page2.asp执行结果"%>

</body>

</html>

<html>

<body>

<%Response.write “调用Execute方法之前”%>

<%Server.Transfer(“page2.asp”)%> ‘执行page2.asp后会再返回

<%Response.write “调用Execute方法之后”%>

</body>

</html>

<html>

<body>

<%Response.write "这是page2.asp执行结果"%>

</body>

</html>

返回服务器。

范例：vote=<%=server.URLEncode("梁程鹏Kenan")%>

将虚拟路径转换为实际路径---Server.MapPath 方法

语法：Server.MapPth(path)

用途：将Path 指定的虚拟路径转换为实际路径

范例：Server.MapPath(“page.asp”) ‘找出page.asp 的实际路径

使用外挂对象----Server.CreateObject 方法

语法：Server.CreateObject(component)

用途：建立服务器组件得实例

范例：Server.CreateObject(“Scripting.FileSystemObject”)

Set fso=server.createobject("scripting.filesystemobject")

'其中Set 是VBScript 关键字，用来建立对象实例， fso 是这个对象实例的名称，

'“scripting.filesystemobject”是filesystemobject 服务器组件登陆在Registry 的

ID。

'我们可以使用这个对象的对象的DriveExists(Path)、

'FolderExists(Path)和

'FileExists(Path)方法来检查磁盘、文件夹或文件是否存在。

if fso.driveexists("c:") then

response.write "c:磁盘是存在的!"

else

response.write "c:磁盘是不存在的！"

end if

'set fso=nothing '释放资源

if fso.folderexists(server.mappath("\web")) then

response.write "web这个文件夹是存在的！"

else

response.write "web这个文件夹是不存在的！"

end if

if fso.fileexists(server.mappath("/index.asp")) then

response.write "index.asp这个文件是存在的！"

else

response.write "index.asp这个文件是不存在的！"

end if

文件夹的建立、移动、重新命名、删除与复制

Set fso=server.createobject("scripting.filesystemobject")

'1．建立文件夹

'语法：fso.createfolder(foldername)

'用途：FileSystemObject 对象的CreateFolder 方法可以建立一个foldername 文件

夹，

'而且参数Foldername 必须使用实际路径。

'范例：

'fso.CreateFolder(Server.Mappath("\web"))

'2.移动、重新命名文件夹

'语法：fso.MoveFolder Source,Destination

'用途：FileSystemObject对象的MoveFolder方法可以将Source指定的文件夹移动

到

'Destination,而且参数Source、Destination必须使用实际路径。

'范例:fso.MoveFolder Server.MapPath("\web"),Server.MapPath("\koko\move")

'fso.CreateFolder(Server.Mappath("\koko"))

'fso.MoveFolder Server.MapPath("\web"),Server.MapPath("\koko\move")

'3.删除文件夹

'语法：fso.DeleteFolder Path.Force

'用途：FileSystemObject的DeleteFolder方法可以删除path指定的文件夹；Force

为布

'尔值，默认为False,不删除只读文件夹，若要采用默认值，可省略不写，若要删除只

读文件

'夹，Force的值要设置为True；参数path必须使用实际路径。

'范例：fso.DeleteFolder Server.mapPth("\web") '删除非只读文件夹web

'fso.DeleteFolder Server.mapPath("\web")

'要删除只读文件夹,必须改写fso.deletefolder

'server.mappath(“\web”),True

'4.复制文件夹

'语法:fso.CopyFolder Source,Destination

'用途:FileSystemObject 对象的CopyFolder 方法可以将source 指定的文件夹复制

到

'Destination,而且参数Soure\Destination 必须使用实际路径.

'范例:

fso.copyfolder server.mappath("\web"),server.mappath("\web2")

文件的建立、移动、重命名、删除与复制

Set fso=server.createobject("scripting.filesystemobject")

'1．建立新文件

'语法：fso.CreateTextFile(Filename,Overwrite,Unicode)

'用途：FileSystemObject 对象的CreateTextFile 方法可以建立文字文件，并返回一

个

'TextStream 对象实例；Filename 为文字文件的名称（必须使用实际路径）；

Overwrite 为布

'尔值，若值为True,表示如存在着同名文件，便将其覆盖，否则布覆盖；Unicode 为

布尔值，

'若值为True,表示为Unicode 文本文件，否则为ASCII 文本文件；Overwrite 和

Unicode 的

'默认值皆为Flase,若要采用默认值，可省略不写。

'fso.createtextfile(server.mappath("\web\index.asp"))

'2. 移动、重新命名文件

'语法：fso.MoveFile Source,Destination

'用途： FileSystemObject 对象的MoveFile 方法将Source 指定的文件移动到

'Destination 中，而且参数Source、Destination 必须使用实际路径。

'范例：

'fso.movefile server.mappath("\web\index.asp"),server.mappath("\web

\kokoro.asp")

'3. 删除文件

'语法：fso.DeleteFile path,force

'用途：FileSystemObject 的DeleteFile 方法可以删除Path 指定的文件;Force 为布

尔

'值，默认为False,不删除只读文件，若要采用默认值，可省略不写，若要删除制度文

'件，Force 的值要设置为True;参数path 必须使用实际路径。

'范例：

'fso.deletefile server.mappath("\delete") '删除非只读文件

'fso.deletefile server.mappath("\delete_onlyread.txt"),true '删除只读文件

'4. 复制文件

'语法：fso.CopyFile Source,Destination,Overwrite

'用途：FileSystemObject 对象的CopyFile 方法可以将source 指定的文件复制到

'Destination,若有同名文件，且Overwrite 的值为True,表示将其覆盖，否则不覆盖

。

'范例：

fso.CopyFile server.mappath("\index.asp"),server.mappath("\web\kokoro.asp")

文件的打开、读取与写入

1．打开文件

方法一：使用FileSystemObject 对象的OpenTextFile 方法

语法：fso.OpenTextFile(Filename,Iomode,Create,Format)

用途：FileSystemObject 对象的OpenTextFile 方法可以打开Filename 指定的文字

文件，

并传回一个TextStream 对象实例；Iomode 为文本文件的打开方式，1 表示只读，

2 表示可写

（清楚文字文件的原始内容），8 表示附加到文本文件的后面（不清除文本文件的原

始内容），

默认值为1；Create 表示当文本文件不存在时，是否要加以建立，默认值为False；

Format

为文字文件的格式，1-表示Unicode 文本文件,0 表示ASCII 文件，-2 表示采用系统

默认值，

这个参数通常不会用到。

范例： Dim fso,ts ‘以只读模式打开index.txt 文件，若文件不存在，便建立

set fso=Server.CreateObject(“Scripting.FileSystemObject”)

set ts=fso.OpenTextFile(Server.MapPath(“index.txt”),1,true)

方法二：使用File 对象的OpenAsTextStream 方法

语法：objfile.OpenAsTextStream(Iomode,Format)

用途：File 对象的OpenAsTextStream 方法可以返回代表文件的TextStream 对象案

例；

Iomode 为文件的打开方式，1 表示只读，2 表示可写，8 表示附加到文本文件的后

面，默认

值为1；Format 为文本文件的格式，-1 表示Unicode 文本文件，ASCII 文本文件，

-2 表示采

用系统默认值，这个参数通常不会用到。

范例：Dim fso,objfile,ts ‘以只读模式打开index.txt,若文件不存在，便建立

Set fso=Server.CreateObject(“Scripting.FileSystemObject”)

Set objfile=fso.GetFile(Server.MapPath(“index.txt“))

Set ts=objfile.OpenAsTextStream(1,True)

一．读取文件

在您成功地打开文件并取得一个TextSteam 对象实例后，您可以分别使用

TextStream

对象提供的Read(Num)、ReadLine、ReadAll 方法从文件读取Num 个字符、一行

或整个文件。

1．从文件读取Num 个字符

response.write "kokoro.asp文件不存在无法进行复制"

end if

set fso = nothing

</body>

</html>

1．从文件读取一行

语法：ts.ReadLine

用途：从文件指针的位置读取一行，然后存放至字符串变量中。

范例：Dim Aline

Aline=ts.ReadLine

Response.Write Aline

<html>

<body>

dim fso,ts,chars

set fso=server.createobject(“scripting.filesystemobject”)

set ts=fso.opentextfile(server.mappath(“index.txt”),1)

do while not ts.AtEndOfStream ‘检查是否到达文件结尾

chars=ts.read(6) ‘读取6个字符，再派给字符串变量chars

response.write chars & “ ” ‘输出chars的值和强制换行

loop

ts.close ‘关闭打开的文件

set ts=nothing ‘释放实例对象

set fso=nothing ‘释放实例对象

</body>

</html>

dim fso,ts,aline

set fso = server.createobject("scripting.filesystemobject")

set ts = fso.opentextfile(server.mappath("index.txt"), 1)

do while not ts.atendofstream '检查是否到达文件结尾

aline = ts.readline '读取一行，再指派给字符串变量Aline

response.write aline '输出Aline的值

response.write " " '输出强制换行标记

loop

ts.close '关闭已打开的文件

set ts = nothing '释放Texstream对象

set fso = nothing '释放filesystemobject 对象

3. 从文件读取全部内容

语法：ts.ReadAll

用途：读取整个文件的内容，然后存放至字符串变量

范例：Dim AllLines

AllLines=ts.ReadAll

Response.write AllLines

4. 写入文件

在您成功地打开文件并取得一个TextStream 对象实例后，您可以分别使用

TextStream

对象提供的Write(Sting)、WriteLine(String)、WriteBlankLines(Num)方法，在文

件内写

入字符串和换行符、Num 个换行字符。

语法：ts.Write(string)

用途：在文件内写入字符串

范例：ts.Write(“ASP 动态网页设计”)

语法：ts.WriteLine(string)

用途：在文件内写入字符串和换行符

范例：ts.Write(“ASP 动态网页设计”)

语法：ts.WriteBlankLines(num)

用途：在文件内写入Num 个换行字符

范例：ts.WriteBlankLines(“3”)

<html>

<body>

dim fso,ts,alllines,result

set fso = server.createobject("scripting.filesystemobject")

set ts = fso.opentextfile(server.mappath("index.txt"), 1)

'在读取文件内容之前先使用If语句检查是否到达文件结尾

if not ts.atendofstream then

'读取全部内容，再指派给字符串变量AllLines

alllines = ts.readall

'使用Replace函数将字符串变量中的换行字符置换成强制

result= replace(alllines, vbcrlf, " ")

response.write result

end if

ts.close '关闭已打开的文件

set ts = nothing '释放TextStream对象

set fso = nothing '释放FileSystemObject对象

</body>

</html>

8.11 如何设置Server-Side Include

语法：

转载于:https://blog.51cto.com/soukenan/1076168

你可能感兴趣的文章

orcal从同一段分别查出市和省，并分列显示

查看>>

win10 adb（Android Debug Bridge）导出日志

BZOJ1087[SCOI2005]互不侵犯——状压DP

查看>>

Scala 学习笔记之集合(8) Try和Future

按照Right-BICEP要求设计四则运算2程序的单元测试用例

查看>>

SpringMVC-Handler-Return Values返回值

查看>>

KVM网络桥接模式解说

查看>>

WebApp开发之--"rem"单位(转)

查看>>

TOPCODER->Practice Room->SRAM 144 DIV 1 (550)

查看>>

mysql 远程连接速度慢的解决方案

查看>>

android软键盘挡住输入框问题解决方法

查看>>

Angular企业级开发(10)-Smart Table插件开发

查看>>

POJ-3295 Tautology 构造法

查看>>

HDU-3573 Buy Sticks

查看>>