Question

ASP中文本文件的创建、读取方法

Answer 1

ASP CreateTextFile用于在现存的文件夹中建立一个新的文本文件并且返回一个文本流对象，这个文本流对象是用来读取文件中的内容或者向文件中写内容。
语法
FileSystemObject.CreateTextFile(filename[,overwrite[,unicode]])FolderObject.CreateTextFile(filename[,overwrite[,unicode]])
filename 必要组件。确定建立文件的名称
overwrite 可选组件。它是一个逻辑值，用于设定是否拥有覆盖现存文件夹的权限。如果值为“true真”，则可以覆盖现存文件夹；如果是“false假”，则不可以覆盖。默认时为：true真
unicode 可选组件。它是一个逻辑值，用于设定是否可以建立一个Unicode文件或者是ASCII文件。如果值为“true真”，则允许建立一个Unicode文件；如果是“false假”，则允许建立一个ASCII文件。默认时为：False假。
---------------------------------------------
FileSystemObject对象举例
<%
dim fs,tfile
set fs=Server.CreateObject("Scripting.FileSystemObject")
set tfile=fs.CreateTextFile("c:somefile.txt")
tfile.WriteLine("Hello World!")
tfile.close
set tfile=nothing
set fs=nothing
%>
---------------------------------------
Folder对象举例
<%
dim fs,fo,tfile
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder("c:test")
Set tfile=fo.CreateTextFile("test.txt",false)
tfile.WriteLine("Hello World!")
tfile.Close
set tfile=nothing
set fo=nothing
set fs=nothing
%>

Answer 2

例子：读取
function Readpwd()
dim fsObj,txtsObj,FilePath
set fsObj=CreateObject("Scripting.FileSystemObject")
FilePath=Server.MapPath("userpwdkey.dat")
IF fsObj.FileExists(FilePath) Then
set txtsObj=fsObj.OpenTextFile(FilePath)
Readpwd=txtsObj.readline
End if
end function

写入：
'//总数加1写入文本
dim fsObj,txtsObj,FilePath
set fsObj=CreateObject("Scripting.FileSystemObject")
FilePath=Server.MapPath("txtcounter.txt")
set fsObj=fsObj.OpenTextFile(FilePath, 2, True)
fsObj.Write(“写入文本”)
fsObj.Close
详情见：http://www.ziyuan3.com/webpro/article/2322.aspx

Answer 3

FSO可以创建文件，我一般是用到静态上，读取文本就不清楚怎么读取了