利用AdoDb.Stream对象来读取UTF-8格式的文本文件

代码如下:

'函数名称:ReadTextFile
    '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
    '----------------------------------------------------
    Function ReadFromTextFile (FileUrl,CharSet)
        If FileUrl = "" OR IsNull(FileUrl) Then
            ReadFromTextFile = ""
            Exit Function
        End If
        If Not FLib.IsReallyPath(FileUrl) Then
            FileUrl = Server.MapPath(FileUrl)
        End If
        dim str, stm
        set stm=server.CreateObject("adodb.stream")
        stm.Type=2 '以本模式读取
        stm.mode=3 
        stm.charset=CharSet
        stm.open
        stm.loadfromfile FileUrl
        str=stm.readtext
        stm.Close
        set stm=nothing
        ReadFromTextFile=str
    End Function
    '-------------------------------------------------
    '函数名称:WriteToTextFile
    '作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
    '----------------------------------------------------
    Function WriteToTextFile (FileUrl,byval Str,CharSet)   
        If FileUrl = "" OR IsNull(FileUrl) Then
            WriteToTextFile = ""
            Exit Function
        End If
        If Not FLib.IsReallyPath(FileUrl) Then
            FileUrl = Server.MapPath(FileUrl)
        End If
        Dim stm
        set stm=server.CreateObject("adodb.stream")
        stm.Type=2 '以本模式读取
        stm.mode=3
        stm.charset=CharSet
        stm.open
        stm.WriteText str
        stm.SaveToFile FileUrl,2    
        stm.flush
        stm.Close
        set stm=nothing
    End Function

赞 (0)

相关推荐

  • 利用AdoDb.Stream对象来读取UTF-8格式的文本文件

    复制代码 代码如下: '函数名称:ReadTextFile     '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件     '----------------------------------------------------     Function ReadFromTextFile (FileUrl,CharSet)         If FileUrl = "" OR IsNull(FileUrl) Then             ReadFromT

  • asp adodb.stream对象的方法/属性

    adodb.stream对象的方法/属性 Cancel 方法      使用方法如下      Object.Cancel      说明:取消执行挂起的异步 Execute 或 Open 方法的调用. Close  方法      使用方法如下      Object.Close      :关闭对像 CopyTo 方法      使用方法如下      Object.CopyTo(destStream,[CharNumber])      说明:将对像的数据复制,destStream指向要复

  • asp下用ADODB.Stream代替FSO读取文本文件

    '文件内容读取. 复制代码 代码如下: 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,不能使用本

  • 利用Adodb.Stream制作彩色验证码

    Asp文件:Code.Asp 数据文件:body.Fix , Head.Fix 用法:<img src="code.asp"> 复制代码 代码如下: Response.buffer = true NumCode Function NumCode() Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ct

  • JScript中使用ADODB.Stream判断文件编码的代码

    一开始使用ASCII编码来读取文本数据,模拟读取二进制数据,但是发现如果字符编码大于127时,只会得到小于128的值,相当于和128取余了,因此ASCII编码是不行的. 继续寻找,在CodeProejct.com找到一篇文章<Reading And Writing Binary Files Using JScript>,里面刚好有我需要的内容. 其实说来也简单,就是把编码换一下,使用437,这个是IBM扩展过的ASCII编码,把ASCII编码的最高位也利用起来,将字符集中的字符从128个扩展到

  • 利用xmlhttp和adodb.stream加缓存技术下载远程Web文件

    <%'----------远程获取内容,并将内容存在本地电脑上,包括任何文件!----------'---------------利用xmlhttp和adodb.stream-----------------'On Error Resume Next'-------------------------------定义输出格式-----------------------------path=request("path")if path ="" thenpath

  • asp之基于adodb.stream的文件操作类

    复制代码 代码如下: <% '************************************************************* '转发时请保留此声明信息,这段声明不并会影响你的速度! '************************************************************* '************************************************************* '@author:          

  • 利用MSXML2.XmlHttp和Adodb.Stream采集图片

    利用MSXML2.XmlHttp和Adodb.Stream 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  <html xmlns="http://www.w3.org/1999/xhtml">  <

  • ASP下通过Adodb.Stream实现多线程下载大文件

    有个朋友 做 某种小众音乐交换站的(他们那个行业的昵图网),需要用到付费下载.尝试过 防盗链,不太理想,最终使用了 Adodb.Stream 读取,直接输出. 解决了 盗版的问题,但是新的问题又来了.Adodb.Stream 这种方式 电脑还好说,大部分电脑浏览器都支持.移动端 很多 浏览器为了 加速读取,会多线程下载导致 文件无法正常读取. 抓包,发现增加了 HTTP头 HTTP_RANGE.隐约记得 之前读过 王大(王洪影)的 <深入解析 ASP核心技术>当中提到ASP多线程下载的问题,回

  • 用ADODB.Stream转换

    用ADODB.Stream转换,用streamtochar这个函数 <HTML> <html> <head> <META http-equiv="Content-Type" content="text/html; charset=Big5"> <title>test</title> <SCRIPT LANGUAGE="JavaScript"> <!-- wi

随机推荐