Use ASP para obtener el contenido especificado de la página web remota, puede obtener fácilmente algunos de los contenidos especificados de la página web de otros.
El código es el siguiente:
<%
'Utilice ASP para obtener el contenido especificado de la página web de destino remota, el Código es proporcionado por el sitio web de Guangzhou para construir http://www.vevb.com
En el currículum de error siguiente
Server.scripttimeout = 9999999
Función gethttppage (ruta)
T = getBody (ruta)
Gethttppage = bytestobstr (T, GB2312)
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 bytestobstr (cuerpo, cset)
dim objstream
Establecer objstream = server.createObject (ADODB.Stream)
objstream.type = 1
objstream.mode = 3
objstream.
objstream.write?
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readText
objstream.close
establecer objstream = nada
Función final
Función getBody (URL)
En el currículum de error siguiente
Establecer recuperación = createObject (Microsoft.xmlhttp)
Con recuperación
.Opeen get, url, falso ,,,,,,
.Enviar
GetBody = .ResponseBody
Terminar con
Setrieval = nada
Función final
'ASP obtiene el contenido especificado del inicio de la página web remota, iniciando
Dim WSTR, STR, URL, Start, Over, Dtime
A = Iniciar contenido 'ASP Obtenga el contenido de la página web de destino y comience a marcar
B = final de contenido 'ASP para obtener la marca de finalización del contenido web
url = http://sc.vevb.com/
WSTR = GETHTTPPAGE (URL)
inicio = Newstring (WSTR, A)
Over = Newstring (WSTR, B)
Body = Mid (WSTR, Start, Sobrevalt)
Response.Write & Body & 'Salida obtuvo contenido de la página web
'ASP obtiene el contenido especificado de la página web remota final
%>
El código anterior puede obtener el contenido de la página web especificada.
Código central:
'ASP obtiene el contenido especificado del inicio de la página web remota, iniciando
Dim WSTR, STR, URL, Start, Over, Dtime
url = http://sc.vevb.com/
WSTR = GETHTTPPAGE (URL)
Cuerpo = WSTR