zoukankan      html  css  js  c++  java
  • savetofile

    '*********************************************************
    ' 目的:    Save Text to File
    ' 输入:   
    ' 输入:   
    ' 返回:   
    '*********************************************************
    Function SaveToFile(strFullName,strContent,strCharset,bolRemoveBOM)

     On Error Resume Next

     Dim objStream

     Set objStream = Server.CreateObject("ADODB.Stream")
     With objStream
     .Type = adTypeText
     .Mode = adModeReadWrite
     .Open
     .Charset = strCharset
     .Position = objStream.Size
     .WriteText = strContent
     .SaveToFile strFullName,adSaveCreateOverWrite
     .Close
     End With
     Set objStream = Nothing

     If bolRemoveBOM Then
      If strContent<>"" And ZC_STATIC_TYPE="shtml" Then
       Call RemoveBOM(strFullName)
      End If
     End If

     Err.Clear

    End Function
    '*********************************************************

     


    '*********************************************************
    ' 目的:    Load Text form File
    ' 输入:   
    ' 输入:   
    ' 返回:   
    '*********************************************************
    Function LoadFromFile(strFullName,strCharset)

     On Error Resume Next

     Dim objStream

     Set objStream = Server.CreateObject("ADODB.Stream")
     With objStream
     .Type = adTypeText
     .Mode = adModeReadWrite
     .Open
     .Charset = strCharset
     .Position = objStream.Size
     .LoadFromFile strFullName
     LoadFromFile=.ReadText
     .Close
     End With
     Set objStream = Nothing

     Err.Clear

    End Function
    '*********************************************************


    '*********************************************************
    ' 目的:    Remove BOM from UTF-8
    '*********************************************************
    Function RemoveBOM(strFullName)

     On Error Resume Next

     Dim objStream
     Dim strContent

     Set objStream = Server.CreateObject("ADODB.Stream")
     With objStream
     .Type = adTypeBinary
     .Mode = adModeReadWrite
     .Open
     .Position = objStream.Size
     .LoadFromFile strFullName
     .Position = 3
     strContent=.Read
     .Close
     End With
     Set objStream = NoThing

     Set objStream = Server.CreateObject("ADODB.Stream")
     With objStream
     .Type = adTypeBinary
     .Mode = adModeReadWrite
     .Open
     .Position = objStream.Size
     .Write = strContent
     .SaveToFile strFullName,adSaveCreateOverWrite
     .Close
     End With
     Set objStream = Nothing

     Err.Clear

    End Function

  • 相关阅读:
    POST GET原理函数
    位宽与带宽
    编程小工具
    C#的四个基本技巧
    关闭弹出模态窗口以后刷新父窗口
    十年技术,不要再迷茫
    冒泡排序
    单元测试工具及资源推荐
    xml xhtml html dhtml的区别
    删除List<string>中重复的值
  • 原文地址:https://www.cnblogs.com/tatsuya/p/1212927.html
Copyright © 2011-2022 走看看