[Resolvido] pega a fonte HTML de um determinado endereço

[xanburzum 169]

A Função pegaPage pega a fonte HTML de um determinado endereço web. A

Função pegaPage precisa de um site válido ou endereço URL como entrada.

 

pegaPage exige que você instale uma classe java (arquivo IOSockets.class) para o seu servidor. O download dos arquivos java pode ser encontrada aqui:

 

database.zip

spellcheck_download.zip

IOSockets_download.zip

zipfunctions_download.zip

 

 

pegaPage retorna string vazia "", no caso de um erro.

 

syntax:

 

string = pegaPage ( HTTPAddress )

example usage:

 

Dim strPage
'Obter a fonte do html e armazená-la 
  'Para a variável strPage.
strPage = pegaPage ( "http://www.teste.com/teste1/index.asp" )

código:

<%
Private Function pegaPage (ByVal sURL)
	Dim a, s, max

	On Error Resume Next
	Set a = GetObject("java:IOSockets")
	If Err Then
		pegaPage = ""
		Exit Function
	End If
	On Error GoTo 0
	With a
		.url = sURL
		.fetchURL()
		If .errorMsg <> "" Then 
			pegaPage = ""
		Else
			s = .rawHTMLReturned
			'remove headers
			max = InStr(1, s, Chr(10) & Chr(10), 1)
			pegaPage = Mid(s, max + 1)
		End If
	End With
	Set a = Nothing
End Function
%>