asp 如何调用fso组件生成TXT文件的内容或者是js文档
asp如何调用fso组件生成TXT文件的内容或者是js文档将RRS的信息重新生成TXT文档或者是js文档!!在百度上找得都是怎么从数据库里面的提取的这个不是我想要的哦!...
asp 如何调用fso组件生成TXT文件的内容或者是js文档
将 RRS的信息 重新生成 TXT文档 或者是 js文档!!
在百度上找得都是怎么从数据库里面的提取的 这个不是我想要的哦! 展开
将 RRS的信息 重新生成 TXT文档 或者是 js文档!!
在百度上找得都是怎么从数据库里面的提取的 这个不是我想要的哦! 展开
展开全部
//参数分别为:内容,文件夹,后缀名,文件名
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
今天刚好写了个 看看对你有用没
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
参考 5、琐碎的生活,也是爱情的一部分。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询