ASP采集过埕

<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

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

ASP采集过埕 ASP自动采集 asp信息采集系统问题? 谁有ASP小游戏采集源代码，能采集的 用ASP+XML采集PHP内容出错! asp更改采集网站的问题 求一小说系统,asp+acc带采集 ASP 和 PHP 编的采集程序那一种好? 100分求ASP采集正则表达式问题 十万火集！！！！求ASP批量采集程序