微客导航 » 文章资讯 » asp createTextFile生成文本文件支持utf8

asp createTextFile生成文本文件支持utf8

2023-07-17 15:42:04 157

但很多时候为了方便，我们会自定义生成文本文件的函数

FunctioncreateTextFile(Byvalcontent,ByvalfileDir,Byvalcode)
	dimfileobj,fileCode:fileDir=replace(fileDir,"\","/")
	ifisNul(code)thenfileCode=CharsetelsefileCode=code
	callcreatefolder(fileDir,"filedir")
	iffileCode="utf-8"then
		onerrorresumenext
		WithobjStream
			.Charset=fileCode:
			.Type=2:
			.Mode=3:
			.Open:
			.Position=0
			.WriteTextcontent:
			.SaveToFileServer.MapPath(fileDir),2
			.Close
		EndWith
	else
		onerrorresumenext:err.clear
		setfileobj=objFso.CreateTextFile(server.mappath(fileDir),True)
		fileobj.Write(content)
		setfileobj=nothing
	endif
	ifErrThenerr.clear:createTextFile=false:errid=err.number:errdes=err.description:Err.Clear:echoErrerr_09,errid,errdeselsecreateTextFile=true
EndFunction
SubechoErr(byvalstr,byvalid,byvaldes)

dimerrstr,cssstr
		cssstr=""
cssstr=cssstr&""
errstr=cssstr&"setTimeout(""goLastPage()"",5000);functiongoLastPage(){location.href='"&sitePath&"/';}提示：【"&str&"】

错误号："&id&"
错误描述："&des&"

PoweredbyAspCms2.0

" cssstr="" die(errstr) EndSub FunctioncreateFolder(Byvaldir,ByvaldirType) dimsubPathArray,lenSubPathArray,pathDeep,i onerrorresumenext dir=replace(dir,"\","/") iftrim(sitePath)=""thenpathDeep="/"elsepathDeep=sitePath pathDeep=server.MapPath(pathDeep) dir=replace(server.mappath(dir),pathDeep,"") subPathArray=split(dir,"\") selectcasedirType case"filedir" lenSubPathArray=ubound(subPathArray)-1 case"folderdir" lenSubPathArray=ubound(subPathArray) endselect fori=0tolenSubPathArray iftrim(subPathArray(i))<>""then pathDeep=pathDeep&"\"&subPathArray(i) ifnotobjFso.FolderExists(pathDeep)thenobjFso.CreateFolderpathDeep endif next ifErrThencreateFolder=false:errid=err.number:errdes=err.description:Err.Clear:echoErrerr_10,errid,errdeselsecreateFolder=true EndFunction

使用方法

createTextFilecontent,htmlfilepath,""

content就是内容，filepath就是文件路径

createTextFile"内容","/article/11/22/3.htm",""

ASP生成UTF-8编码的代码

方法一：createtextfile生成文件方法

functionWriteToFile(FileName,FileContent)
setfso=server.createobject("scripting.filesystemobject")
setfp=fso.createtextfile(server.mappath(FileName),,True)
fp.write(FileContent)
endfunction

方法二：ADODB.Stream生成文件方法支持utf8，最上面的函数就包括下面的两种方法

SetccObjStream=Server.CreateObject("ADODB.Stream")
WithccObjStream
.Type=2
.Mode=3
.Open
.Charset="utf-8"
.Position=ccObjStream.Size
.WriteText要生成的内容
.SaveToFile要生成文件路径和文件名,2
.Close
EndWith

CreateTextFile方法
创建指定文件并返回TextStream对象，该对象可用于读或写创建的文件。

object.CreateTextFile(filename[,overwrite[,unicode]])

参数
object

必选项。应为FileSystemObject或Folder对象的名称。

filename

必选项。字符串表达式，指明要创建的文件。

overwrite

可选项。Boolean值指明是否可以覆盖现有文件。如果可覆盖文件，该值为True；如果不能覆盖文件，则该值为False。如果省略该值，则不能覆盖现有文件。

unicode

可选项。Boolean值指明是否以Unicode或ASCII文件格式创建文件。如果以Unicode文件格式创建文件，则该值为True；如果以ASCII文件格式创建文件，则该值为False。如果省略此部分，则假定创建ASCII文件。

以上就是aspcreateTextFile生成文本文件支持utf8的详细内容，更多关于aspcreateTextFile的资料请关注毛票票其它相关文章！

返回顶部
3162201930
czq8825@qq.com

asp createTextFile生成文本文件支持utf8

热门推荐

随机推荐