一个ASP创建文本文件的函数_ASP教程_编程技术--HTML5中文学习网

一个ASP创建文本文件的函数_ASP教程_编程技术

2013-12-19 13:02:31 [小大] 已经帮助：人解决问题

'=============================================================
'过程名：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

（责任编辑：）