ASP采集问题

<%
str1="AA信息1BB随机字符AA信息2BB随机字符AA信息3BB随机字符"
str1=split(str1,"AA")
for i=1 to ubound(str1)
str2=split(str1(i),"BB")
response.write str2(0)&"<br>"
next
%>
我已经测试过了

提供程序定做开发服务。如需可百度HI我。

'读取数据函数
Function GetURL(URL)
Set http=Server.CreateObject("Microsoft.XMLHTTP")
On Error Resume Next
http.Open "GET",URL,False
http.send()
if Err then
Err.Clear
Response.Write("没有找到网页!")
Response.End()
End if

getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
GetURL=getHTTPPage
End Function
'转换编码函数
Function BytesToBstr(body,Cset)
Dim objstream
Set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstrea