<%
'''''''''''''''Comentários sobre Espada Quebrada'''''''''''''''''''''''
''''strText é o conteúdo da seção a ser cortada''''''''''''
''''strStarTag é o ponto de partida do conteúdo a ser cortado''''''''''
''''strEndTag é o final do conteúdo a ser cortado''''''''''
''''O valor de retorno de GetText é o conteúdo recortado'''''''''''''
''''''''''''''Fim do comentário''''''''''''''''''''
Função GetText(strText, strStartTag, strEndTag)
dim intStart
intStart = instr(strTexto, strStartTag)
se intStart então
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = Mid(strText, intStart, intEnd - intStart)
outro
ObterTexto=
terminar se
Função final
%>
<%
'''''''''Comentários sobre Espada Quebrada''''''''''
'''''''''As seguintes funções podem ser ignoradas'''''''''
''''''''Basta usar a função de entrada getHTTPPage'''''''
''''''''caminho é o endereço da página web a ser lida''''''''
''''''''getHTTPPage retorna o conteúdo lido da página da web''
'''''''' O que deve ser observado aqui é gb2312. Se o código da página web que está sendo lida for.
''Para gb2312, use gb2312. Se for UTF-8, altere para UTF-8''''.
''''''''Fim do comentário''''''''''
Função getHTTPage(Caminho)
t = GetBody (Caminho)
getHTTPPage=BytesToBstr(t,gb2312)
Função final
Função GetBody(url)
em caso de erro, retome a seguir
Definir recuperação = CreateObject (Microsoft.XMLHTTP)
Com recuperação
.Abra obter, url, Falso, ,
.Enviar
GetBody = .ResponseBody
Terminar com
Definir recuperação = nada
Função final
Função BytesToBstr(corpo,Cset)
escurecer objstream
definir objstream = Server.CreateObject (adodb.stream)
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Função final
%>