你的位置: 首页 > HTML5网站开发 > 正文
ADODB.Stream读写文件ASP示例
作者:漫游   分类: HTML5网站开发    时间:2012-3-16 11:36   热度:5217°   字号:        评论:0 
作者:漫游   分类: HTML5网站开发    时间:2012-3-16 11:36   热度:5217°  评论:0 条 
    Function ReplaceText(fString, patrn, replStr)
        Set regEx = New RegExp
        regEx.Pattern = patrn
        regEx.IgnoreCase = True
        regEx.Global = True
        ReplaceText = regEx.Replace(fString, replStr)
    End Function
   
    Function LoadFile(ByVal File)
        Dim objStream
        'On Error Resume Next
        Set objStream = Server.CreateObject("ADODB.Stream")
        If Err.Number=-2147221005 Then
        Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
        Err.Clear
        Response.End
        End If
        With objStream
        .Type = 2
        .Mode = 3
        .Charset = "utf-8"
        .Open
        .LoadFromFile Server.MapPath(File)
        If Err.Number<>0 Then
        Response.Write "<div align='center'>文件<font color='#ff0000'>"&File&"</font>无法被打开,请检查是否存在!</font></div>"
        Err.Clear
        Response.End
        End If
        .Position = 2
        LoadFile = .ReadText
        .Close
        End With
        Set objStream = Nothing
    End Function
   
    '存储内容到文件
    Sub SaveToFile(ByVal strBody,ByVal File)
        Dim objStream
        'On Error Resume Next
        Set objStream = Server.CreateObject("ADODB.Stream")
        If Err.Number=-2147221005 Then
        Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
        Err.Clear
        Response.End
        End If
        With objStream
        .Type = 2
        .Charset = "utf-8"
        .Open
        .Position = objStream.Size
        .WriteText = strBody
        .SaveToFile Server.MapPath(File),2
        .Close
        End With
        Set objStream = Nothing
    End Sub
   
    '读取模板的xml文件,其它类型文件一样的处理
    templet = LoadFile("/Model.xml")
    templet = Replace (templet,vbcrlf,"$%^&")    '换行要替换成替代字串,否则下面会执行出错
    'response.write templet
    str = "<channel>" & vbcrlf
    str = str & "......"
    str = str & "    </channel>"
    templet = ReplaceText(templet, "<channel>.*?<\/channel>" , str)
    templet = replace(templet, "$%^&", vbcrlf)    '替换回换行
    'response.write templet
    SaveToFile templet, "/result.xml"

瞧瞧上一篇文章去!   瞧瞧下一篇文章去!
本文标签: ASP
二维码加载中...
本文作者:漫游      文章标题: ADODB.Stream读写文件ASP示例
本文地址:http://www.roammemo.com/html5/65.html
版权声明:若无注明,本文皆为“漫游的备忘录”原创,转载请保留文章出处。
返回顶部    首页    手机版本   
版权所有:漫游的备忘录    站长: 漫游    模板基于:博闻广记 v1.2   程序:emlog