Redacción del programa ladrón ASP

También he estado investigando esto recientemente. Por favor mira este programa. He utilizado con éxito este programa para obtener mucha información del sitio web. Diferentes sitios web pueden tener algunos cambios menores y todos pueden discutirlos juntos.

& lt%

Url borrosa, contenido, awbno

Url = "URL"

awbno = solicitud. Tabla(" awbno ")

Si awbno=" " o IsNull(awbno), entonces

Contenido = GetData(Url, 1)

Otro p>

contenido = datos de publicación(Url & "return.asp", "awbno=" &awbno, 1)

Terminará si...

Contenido = Reemplazar(Contenido, "imágenes/", URL y amp "imágenes/")

Contenido = Reemplazar(Contenido, "return.asp", "")

Respuesta. Escribir contenido

Función GetData(GetUrl, GetMode)

Dim Http

Establecer Http = servidor. CreateObject("msxml2.XMLHTTP")

Utilice HTTP

. Abra "OBTENER", ObtenerUrl, Falso

. SetRequestHeader "Referente", GetUrl

. Enviar

Si GetMode = 0, entonces

GetData =. Cuerpo de respuesta

Otro

GetData = BytesToBstr(. Cuerpo de respuesta, "GB2312")

Terminará si...

Fin con... Fin

Establecer Http = Ninguno

Finalizar función

Función PostData(PostUrl, PostStr, PostMode)

Dim Http

Establezca Http=servidor. CreateObject("msxml2.XMLHTTP")

Utilice HTTP

. Publicaciones abiertas, PostUrl, Falso

. SetRequestHeader " Longitud del contenido ", Len(PostStr)

. SetRequestHeader "Tipo de contenido ", " aplicación/x-www-form-urlencoded "

. SetRequestHeader "Referente", PostUrl

. Enviar PostStr

Si PostMode=0, entonces

PostData =. Cuerpo de respuesta

Otro

PostData = BytesToBstr(. Cuerpo de respuesta, "GB2312")

Terminará si...

Fin con... Fin

Establecer Http = Ninguno

Finalizar función

Función BytesToBstr(Cuerpo, Cset)

Dim ADOS

Establecer ADOS=servidor. CreateObject("Adodb.Stream")

Con ADOS

. Tipo = 1

. modo=3

. Abrir

. Escribe el cuerpo

. posición = 0

. tipo = 2

. charset=Cset

BytesToBstr=. Leer el texto

.

Cerrar

Finalizar con...

Establecer ADOS = Ninguno

Finalizar función

% & gt