asp createTextFile生成文本文件支持utf8

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

Function createTextFile(Byval content,Byval fileDir,Byval code)	dim fileobj,fileCode : fileDir=replace(fileDir, "\", "/")	if isNul(code) then fileCode=Charset else fileCode=code	call createfolder(fileDir,"filedir")	if fileCode="utf-8" then		on error resume next		WITh objStream			.Charset=fileCode:			.TyPE=2:			.Mode=3:			.Open:			.Position=0			.WriteText content:			.SaveToFile Server.MapPath(fileDir), 2			.Close		End With	else		on error resume next:err.clear		set fileobj=objFso.CreateTextFile(server.mappath(fileDir),True)		fileobj.Write(content)		set fileobj=nothing	end if	if Err Then err.clear :createTextFile=false : errid=err.number:errdes=err.description:Err.Clear : echoErr err_09,errid,errdes else createTextFile=trueEnd FunctionSub echoErr(byval str,byval id, byval des)  dim errstr,cssstr		cssstr="meta http-equiv=""Content-type"" content=""text/htML;
     charset="&
    Charset&
    """ />
    " cssstr=cssstr&
    "style>
body{
text-align:center}
#msg{
    background-color:white;
    border:1px solid #0073B0;
    margin:0 auto;
    width:400px;
text-align:left}
.msgtitle{
    padding:3px 3px;
    color:white;
    font-weight:700;
    line-height:28px;
    height30px;
    font-Size:12px;
    border-bottom:1px solid #0073B0;
     text-indent:3px;
 background-color:#0073B0}
#msgbody{
    font-size:12px;
    padding:20px 8px 30px;
line-height:25px}
#msgbottom{
    text-align:center;
    height:20px;
    line-height:20px;
    font-size:12px;
    background-color:#0073B0;
color:#FFFFFF}
    /style>
    " errstr=cssstr&
    "script language=""javascript"">
    setTimeout(""goLastPage()"",5000);
function goLastPage(){
    location.href='"&
     sitePath &
    "/';
}
    /script>
    div id='msg'>
    div class='msgtitle'>
    提示：【"&
    str&
    "】/div>
    div id='msgbody'>
    错误号："&
    id&
    "br>
    错误描述："&
    des&
    "br />
    a href=""javascript:history.go(-1);
    " rel="external nofollow" ">
    返回上一页/a>
    &
    nbsp;
    a href=""" rel="external nofollow" &
     sitePath &
    "/"">
    返回首页/a>
    /div>
    div id='msgbottom'>
    Powered by AspCMS2.0/div>
    /div>
    " cssstr="" die(errstr)End SubFunction createFolder(Byval dir,Byval dirType)dim subPathArray,lenSubPathArray, pathDeep, ion error resume nextdir=replace(dir, "\", "/")  if trim(sitePath) = "" then pathDeep = "/" else pathDeep = sitePath  pathDeep = server.MapPath(pathDeep)dir=replace(server.mappath(dir), pathDeep, "")subPathArray=split(dir, "\")select case dirTypecase "filedir" lenSubPathArray=ubound(subPathArray) - 1case "folderdir"lenSubPathArray=ubound(subPathArray)end selectfor i=0 to lenSubPathArray    if trim(subPathArray(i)) >
     "" then  pathDeep=pathDeep&
    "\"&
    subPathArray(i)  if not objFso.FolderExists(pathDeep) then objFso.CreateFolder pathDeep    end ifnextif Err Then createFolder=false : errid=err.number:errdes=err.description:Err.Clear : echoErr err_10,errid,errdes else createFolder=trueEnd Function

使用方法

createTextFile content,htmlfilepath,""

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

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

ASP生成UTF-8编码的代码

方法一：createtextfile生成文件方法

function WriteToFile(FileName,FileContent)set fso=server.createobject("scripting.fileSystemobject")set fp=fso.createtextfile(server.mappath(FileName),,True)fp.write(FileContent)end function

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

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

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

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

参数
object

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

filename

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

overwrite

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

unicode

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

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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！