Use ASP para obter o conteúdo especificado da página da Web remota, você pode facilmente obter alguns dos conteúdos especificados da página da Web de outros.
O código é o seguinte:
<%
'Use ASP para obter o conteúdo especificado da página da Web de destino remoto, o código é fornecido pelo site de Guangzhou para criar http://www.vevb.com
Em erro de erro em seguida
Server.scriptTimeout = 9999999
Função gethttppage (caminho)
T = getBody (caminho)
Gethttppage = bytestobstr (t, gb2312)
Função final
Função Newstring (WSTR, STRNG)
NewsTring = Instr (lcase (WSTR), LCase (strng))
Se NewsTring <= 0, então NewsTring = Len (WSTR)
Função final
Função bytestobstr (corpo, cset)
objStream dim
set objStream = server.createObject (adodb.stream)
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write?
objstream.Position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objStream.readText
objstream.close
definir objstream = nada
Função final
Função getbody (url)
Em erro de erro em seguida
Set recuperação = createObject (microsoft.xmlhttp)
Com recuperação
.OPEEN GET, URL, FALSO ,,,,,
.Enviar
GetBody = .ResponseBody
Termine com
Setrieval = nada
Função final
'ASP obtém o conteúdo especificado da página da web remota, iniciando
Dim WSTR, STR, URL, Start, Over, Dtime
A = Iniciar conteúdo 'ASP Obtenha o conteúdo da página da Web de destino e comece a marcação
b = Conteúdo final 'ASP para obter a marca final do conteúdo da web
url = http://sc.vevb.com/
WSTR = GETHTTPPAGE (URL)
Start = Newstring (WSTR, A)
Over = Newstring (WSTR, B)
Corpo = médio (WSTR, Start, Over-start)
Response.Write & Body & 'Output obteve o conteúdo da página da web
'Asp obtêm o conteúdo especificado da página da web remota termina
%>
O código acima pode obter o conteúdo da página da web especificada.
Código central:
'ASP obtém o conteúdo especificado da página da web remota, iniciando
Dim WSTR, STR, URL, Start, Over, Dtime
url = http://sc.vevb.com/
WSTR = GETHTTPPAGE (URL)
Corpo = wstr