网站建设 郑州网站建设 网站制作 网页设计 网站设计 郑州建网站 - 爱易在线

网站地图 | 网站Tags标签 | RSS订阅 | 加入收藏
您的位置:网站首页 > 博客笔记 > 技术交流 > 正文 技术交流相关信息

asp使用fso创建utf-8文件

作者:郑州网站建设 2013/7/23 12:43:54 点击: 来源:
Sub fso_write(ByVal fpath, ByVal ftext)  
  On Error Resume Next
  Dim fso, fout  
  Set fso = Server.CreateObject("Scripting.FileSystemObject")  
  'Set fout = fso.CreateTextFile(Server.MapPath(fpath))  
  Set fout = fso.CreateTextFile(Server.MapPath(fpath), True, true) 'CreateTextFile(Filename,overwrite,unicode)overwrite:表示是否可覆盖,逻辑型默认假  unicode:是否为双字节的统一码,逻辑型默认假为ASCII   
  fout.write ftext  
  fout.Close  
  Set fout = Nothing
  Set fso = Nothing  
  If Err Then
    Call client_alert("创建文件失败,可能是您的服务器不支持FSO权限而导致的!", "?type=manage")  
  End If
End Sub

 

Tag:asp vb fso
分享到:

上一篇:sdcms1.3.1扩展系统静态标签

下一篇:C#写的net程序破解详细记录

技术交流推荐阅读

用户评论

最新博文

热门排行

推荐信息

关于爱之易| 付款方式| 联系我们| 网站地图| 网站Tags标签 | RSS订阅