网站生成静态页面，及网站数据采集的攻、防原(3)

    ObjXMLHTTP.Open "GET",weburl,False
    ObjXMLHTTP.send
    While ObjXMLHTTP.readyState <> 4
        ObjXMLHTTP.waitForResponse 1000
    Wend
    '得到结果
     GetBody=ObjXMLHTTP.responseBody
    '释放对象
     Set ObjXMLHTTP=Nothing
'-----------------翟振恺(小琦)
End Function
调用方法：
GetBody(文件的URLf地址) 
2、或XMLHTTP组件获取数据


Function GetBody(weburl) 
'-----------------翟振恺(小琦)
    '创建对象
    Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
    With Retrieval 
     .Open "Get", weburl, False, "", "" 
     .Send 
     GetBody = .ResponseBody
     End With 
    '释放对象
    Set Retrieval = Nothing 
'-----------------翟振恺(小琦)
End Function
调用方法：
GetBody(文件的URLf地址) 
这样获取的数据内容还需要进行编码转换才可以使用


Function BytesToBstr(body,Cset)
'-----------------翟振恺(小琦)
        dim objstream
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
        objstream.Write body
        objstream.Position = 0
        objstream.Type = 2
        objstream.Charset = Cset
        BytesToBstr = objstream.ReadText 
        objstream.Close
        set objstream = nothing
'-----------------翟振恺(小琦)
End Function

调用方法：BytesToBstr(要转换的数据,编码)'编码常用为GB2312和UTF-8
二、从获取代码中提取所有用的数据
目前我掌握的方法有：
1、用ASP内置的MID函数截取需要的数据


Function body(wstr,start,over)
'-----------------翟振恺(小琦)
start=Newstring(wstr,start)
'设置需要处理的数据的唯一的开始标记