ASP的一些自定义函数整理第1/2页(7)

    for i = 0 to UBound(badWordsArr) 
        contentStr = replace(contentStr,badWordsArr(i),"") 
    next 
    leach = contentStr 
end Function 
'============================================================================================================================ 
'函数ID：8 
'函数作用：远程文件内容抓取 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-16 17:24 
'修改时间： 
'传人参数： 
'    urlStr:远程文件地址 
'返回值： 
'    返回远程文件内容 
'============================================================================================================================ 
function Seize(urlStr) 
    dim connect 
    if urlStr = "" then 
        call ShowErr(language_arr(13)) 
    else 
        Set connect = CreateObject("Microsoft.XMLHTTP")    '建立XMLHTTP对象 
        connect.open "GET",urlStr,false    '设置参数，通信方式为get，请求为同步，后面还有两个可选属性：userID，password用于用户验证 
        connect.send()     '数据发送，Send方法的参数类型可以是字符串、DOM树或任意数据流 
        Seize = BytesToBStr(connect.responseBody,"GB2312")    '返回信息，编码为中文 
        set connect = nothing 
    end if 
end function 
'============================================================================================================================ 
'函数ID：9 
'函数作用：数据流编码处理 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-16 17:30 
'修改时间： 
'传人参数： 
'    body:数据内容 
'    cset:编码格式     
'返回值： 
'    编码处理后的信息 
'============================================================================================================================ 
Function BytesToBstr(body,cset) 
    dim objstream