XMLHttp ASP adquisición remota de código de contenido de página web

url=http://www.csdn.net/

wstr=getHTTPPage(url)

start=Newstring(wstr,Resource Selection<!-- Download-->)

over=Newstring(wstr,<div class =friendlink>)

cuerpo=mid(wstr,200,500)

respuesta.escribir cuerpo

Función getHTTPPage(url)

dim objXML

set objXML=createobject(MSXML2.XMLHTTP)'define

objXML.open GET,url,false'Abrir

objXML.send()'Enviar

si objXML.readystate<>4 entonces 'Determina si el documento ha sido analizado, para que el cliente pueda aceptarlo la

función de salida

End If

getHTTPPage=bBytesToBstr(objXML.responseBody)' devuelve información y utiliza

el conjunto

objXML=nada'Cerrar

si err.number<>0 entonces err.Borrar

función final

Función Newstring(wstr,strng)

Newstring=Instr(lcase(wstr),lcase(strng))

si Newstring<=0 entonces Newstring=Len(wstr )

Función final

Función bBytesToBstr(body)

dim objstream

set objstream = CreateObject(adodb.stream)

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = gb2312

'Convierte la codificación UTF-8 predeterminada original a la codificación GB2312; de lo contrario, use XMLHTTP directamente para llamar a la página web con caracteres chinos. será un galimatías

bBytesToBstr = objstream.ReadText

objstream.Close

set objstream = nada

fin

Función Función BytesToBstr(body)

dim objstream

set objstream = CreateObject(adodb.stream)

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = utf-8

'Convierta la codificación UTF-8 predeterminada original a la codificación GB2312; de lo contrario, el uso directo de XMLHTTP para llamar a una página web con caracteres chinos dará como resultado un código confuso

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = Nothing

end Function