<%
''''''''''''''''Espada rota Comentarios'''''''''''''''''''''
''''strText es el contenido de la sección que se va a recortar''''''''''
''''strStarTag es el punto de partida del contenido a cortar''''''''
''''strEndTag es el final del contenido que se va a cortar''''''''
''''El valor de retorno de GetText es el contenido recortado''''''''''''
'''''''''''''''Fin del comentario''''''''''''''''''
Función GetText(strText, strStartTag, strEndTag)
tenue intInicio
intInicio = instr(strTexto, strEtiquetaInicio)
si intStart entonces
intInicio = intInicio + len(strEtiquetaInicio)
intEnd = InStr(intStart, strText, strEndTag)
GetText = Medio(strText, intStart, intEnd - intStart)
demás
ObtenerTexto=
terminar si
Función final
%>
<%
'''''''''Comentarios de espada rota''''''''
'''''''''Las siguientes funciones pueden ignorarse'''''''''
''''''''Simplemente use la función de entrada getHTTPPage'''''''
''''''''ruta es la dirección de la página web que se va a leer''''''''
''''''''getHTTPPage devuelve el contenido de la página web leída''
'''''''' Lo que se debe tener en cuenta aquí es gb2312 si el código de la página web que se está leyendo es.
''Para gb2312, use gb2312. Si es UTF-8, cámbielo a UTF-8''''.
''''''''Fin del comentario''''''''''
Función getHTTPage(Ruta)
t = ObtenerCuerpo(Ruta)
getHTTPPage=BytesToBstr(t,gb2312)
Función final
Función GetBody(url)
en caso de error reanudar siguiente
Establecer recuperación = CreateObject(Microsoft.XMLHTTP)
Con recuperación
.Abrir obtener, url, Falso, ,
.Enviar
ObtenerCuerpo = .ResponseBody
Terminar con
Establecer recuperación = nada
Función final
Función BytesToBstr(cuerpo,Cset)
corriente de objetos tenue
establecer objstream = Server.CreateObject(adodb.stream)
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
%>