ASP中生成文本文件的两种方式
ASP里两种常用的生成文件的方式是：利用ADODB.Stream生成文件和利用Scripting.FileSystemObject生成文件
1、Scripting.FileSystemObject生成文件方法：
<%
Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("要生成文件路径和文件名.htm")
Set txt=fso.OpenTextFile(File,8,True)
data1="文件内容"用WriteLine方法生成文件
txt.WriteLine data1
data2="文件内容"'用Write方法生成文件
txt.Write data2
txt.Close
txt.fso
%>
Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("要生成文件路径和文件名.htm")
Set txt=fso.OpenTextFile(File,8,True)
data1="文件内容"用WriteLine方法生成文件
txt.WriteLine data1
data2="文件内容"'用Write方法生成文件
txt.Write data2
txt.Close
txt.fso
%>
2、ADODB.Stream生成文件方法：
<%
Dim objAdoStream
Set objAdoStream = Server.createObject("ADODB.Stream")
objAdoStream.Type = 2
objAdoStream.Open
objAdoStream.WriteText = "这是生成的内容"
objAdoStream.SaveToFile Server.MapPath("NewTestFile24443.htm"),2
objAdoStream.Close()
Set objAdoStream = Nothing
%>
Dim objAdoStream
Set objAdoStream = Server.createObject("ADODB.Stream")
objAdoStream.Type = 2
objAdoStream.Open
objAdoStream.WriteText = "这是生成的内容"
objAdoStream.SaveToFile Server.MapPath("NewTestFile24443.htm"),2
objAdoStream.Close()
Set objAdoStream = Nothing
%>
第二种方式的应用函数及实例：
<%
Sub SaveAFile(ByVal sUrl,ByVal sTxt,ByVal sCharset)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "抱歉，您的网站服务器不支持ADODB.Stream,无法生成文件"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Open
.Charset = sCharset
.Position = objStream.Size
.WriteText = sTxt
.SaveToFile sUrl,2
.Close
End With
Set objStream = Nothing
End Sub
'应用实例
SaveAFile Server.MapPath("MyTestFile.htm"),"您好，我是CNLEI.","gb2312"
%>
Sub SaveAFile(ByVal sUrl,ByVal sTxt,ByVal sCharset)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write "抱歉，您的网站服务器不支持ADODB.Stream,无法生成文件"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Open
.Charset = sCharset
.Position = objStream.Size
.WriteText = sTxt
.SaveToFile sUrl,2
.Close
End With
Set objStream = Nothing
End Sub
'应用实例
SaveAFile Server.MapPath("MyTestFile.htm"),"您好，我是CNLEI.","gb2312"
%>
站长工具
相关文章
请稍等，评论加载中...