Ir para o conteúdo

PF Webmaster

Cadastrado: 16 Out 2010
Offline Última atividade: Nov 04 2010 19:50
-----

#335 Buscando E Salvando Xml De Outro Site.

Postado por PF Webmaster em 21 outubro 2010 - 14:37

Hello Programmers,

Fiz esse pequeno código para ajudar um amigo que estava com problemas para consumir um XML do site do INPE, onde ele obtém a previsão do tempo de sua cidade.
O código é simples, de fácil entendimento, tem 4 parâmetros e todos são obrigatórios.


<%
'obs: essa rotina pode ser facilmente adapatada para baixar qualquer arquivo, e não apenas um XML'
'escolha a pasta levando em consideração a pasta onde este script ficará'

sub armazenarXML(url, encode, pasta, nome)

	'variável para armazenar o cabeçalho do nosso XML'
	dim content, Stream

	content = "<?xml version='1.0' encoding='" & encode & "' ?>"

	'Cria o objeto XML para fazermos o request da página, usaremos o método GET'
	Set Xml = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") ' para o XMLHHTP 6'
	'Set Xml = Server.CreateObject("MSXML2.XMLHTTP.4.0") para o XMLHTTP 4'
	'Set Xml = Server.CreateObject("MSXML2.XMLHTTP.3.0") para o XMLHTTP 3'
	'Set Xml = Server.CreateObject("MSXML2.ServerXMLHTTP") para o XMLHTTP 2'
	'Set Xml = Server.CreateObject("Microsoft.XMLHTTP") para uma versão não especificada, não recomendado!'

	'Método , url da página com o arquivo'
	Xml.open "GET", url, false

	'Baixa o arquivo'
	Xml.send

	'Cria o Stream para salvar o arquivo'
	set Stream = Server.CreateObject("ADODB.Stream")

	'Abre a Stream e seta o tipo para texto'
	Stream.Type = adTypeText
	Stream.Open

	content = content & Xml.responseText

	'Retorna o conteudo do arquivo e faz o stream dele'
	Stream.WriteText (content)

	'Agora é so salvar o arquivo'
	Stream.SaveToFile Server.MapPath("\" & pasta & "\" & nome & ".xml"), adSaveCreateOverWrite 'sobrescreve o XML, pra não precisar ficar verificando com FSO'

	if(Err.number <> 0) then
		Response.write(Err.number & "<br />")
		Response.write(Err.description & "<br />")
		Response.write(Err.file & "<br />")
		Response.write(Err.line & "<br />")
	else
		Response.write("Arquivo XML salvo com sucesso.")
	end if

end sub

'chamando a rotina, e passando os devidos parâmetros'
armazenarXML "http://servicos.cptec.inpe.br/XML/cidade/4305/previsao.xml", "utf-8", "search", "previsao-tempo"

%>




#311 Gerador De Senhas

Postado por PF Webmaster em 16 outubro 2010 - 01:17

Hello Programmers,

Segue abaixo um código muito útil que fiz há algum tempo para a geração de senhas alfanuméricas aleatóriamente.
Tudo o que você precisa é definir na chamada da função quantos caracteres você quer na senha gerada.


<%
'Estabelecendo que a codificação da página será em UTF-8'
Response.charset = "utf-8"

'Criando a função para gerar as senhas'
function geradorSenhas(num) 

dim numero1, numero2, numero3
for numero2 = 48 to 90 
	if numero2 < 58 or numero2 > 64 then
		numero1 = numero1 & chr(numero2) & " "
	end if
next

numero1 = split(lcase(numero1) & numero1)

randomize

for numero2 = 1 to num
	numero3 = numero3 & numero1( int(ubound(numero1) * rnd) )
next

geradorSenhas = numero3

end function

'Chamando a função, entre os parênteses você determina o tamanho da senha que deseja gerar'
'Nessa chamada, por exemplo, a função vai gerar uma senha com 10 caracteres'
Response.write geradorSenhas(10)
%>


No mais é isso,

Qualquer dúvida, pergunte!

[]'s

Pedro Felipe.