Question

asp 如何调用fso组件生成TXT文件的内容或者是js文档

asp 如何调用fso组件生成TXT文件的内容或者是js文档

将 RRS的信息 重新生成 TXT文档 或者是 js文档！！

在百度上找得都是怎么从数据库里面的提取的 这个不是我想要的哦！

Answer 1

//参数分别为：内容，文件夹，后缀名，文件名
Function WriteFile(StrContent,Foldername,fileExt,fname)
dim myfos,TheFile,Filename,TheFolder,ThefileExt
Set myfos=Server.CreateObject("Scripting.FileSystemObject")
TheFolder = "./"
ThefileExt = ".txt"
If Foldername<>"" Then TheFolder = Foldername
If ThefileExt<>"" Then ThefileExt = fileExt
TheFolder = Server.MapPath(TheFolder)
If myfos.FolderExists(TheFolder)=False Then
myfos.CreateFolder(TheFolder)
End If

If fname="" Then
Filename = Replace(Cstr(time()),":",".")
Else
Filename = fname
End If
TheFile=TheFolder & "/" & Filename & ThefileExt
Set mytxt = myfos.OpenTextFile(TheFile,2,True)
mytxt.Write HTMLDecode(StrContent)

If err.number<>0 Then
WriteFile = 0
End If

mytxt.close
set myfos=nothing
set mytxt=nothing
End Function

Answer 2

今天刚好写了个 看看对你有用没
Function CreateCFG(path)
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(path&"\config.asp",true)
f.WriteLine("<%")
f.WriteLine("response.write "Hello, World"")
f.WriteLine(chr(37)&">")
f.close
set f=nothing
set fs=nothing
End Function

Answer 3

参考 　　5、琐碎的生活，也是爱情的一部分。