西安网站建设一个ASP创建文本文件的函数

9112014-11-05

 西安网站建设一个ASP创建文本文件的函数

 '=============================================================
 '过程名:CreatedTextFile
 '作  用:创建文本文件
 '参  数:filename  ----文件名
 '        body  ----主要内容
 '=============================================================
 Public Function CreatedTextFile(ByVal FileName,ByVal body)
  On Error Resume Next
  Dim f,sName
  FileName = Replace(Replace(FileName, "/", "\"), "\\", "\")
  If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
  sName=Mid(FileName,InStrRev(FileName,"\")+1,Len(FileName))
  If InStr(sName,".")=0 Then FileName = FileName &"\index.html"
  If MainSetting(7)="0" Then
   Set f = fso.CreateTextFile(FileName,True, False)
   f.Write body
   f.Close
   Set f = Nothing
  Else
   If MainSetting(7)="2" Then
    NewAspStream.charset="UTF-8"
   ElseIf MainSetting(7)="3" Then
    NewAspStream.charset="BIG5"
   Else
    NewAspStream.charset="GB2312"
   End If
   NewAspStream.Type = 2'设置内容为文本
   NewAspStream.Mode = 3'设置为可读可写
   NewAspStream.open()
   NewAspStream.WriteText(body)
   NewAspStream.SaveToFile FileName,2
   NewAspStream.Flush
   NewAspStream.close()
  End If
  If Err.Number <> 0 Then Err.Clear
 End Function

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1