|
|
|
|
|
Dicas
|
|
ASP - Active Server Page (Miscelâneas)
|
|
|
Título da Dica: Consistência de URL.
|
|
|
|
Postada em 27/10/2003 por vilmarbr
<% '»»Rotina p/ validar URL. '»»Talvez possa caprichar um pouco mais nesta rotina. '»»Fiz porque não tinha achado nenhuma pronto em nenhum site ainda. '»»Boa sorte. Vilmar Dim PosHTTP,PosFTP,PosNEWS,PosGOPHER '»»Usadas p/ saber se início da URL é válida. Dim PosPrimeiroPonto,PosUltimoPonto,TamURL '»»Usadas p/ verificar se há o ponto(.) na URL. Dim PosBarraNormalPonto '»»Verifica se usuário colocou Barra Normal e Ponto(/.) na URL. Dim PosBarraInvertida '»»Verifica se usuário colocou Barra Invertida(\) na URL. Dim Aviso '»»Aviso usado qdo. URL for inválida.
Aviso = "<script language='JavaScript'>alert('Preencha o End. da Página corretamente.'); " Aviso = Aviso & "//history.go(-1);</script>" URL = "http://server1.hitecnet.com.br:8080/horde/"
'»»Função InStr retorna 0 se não achar a string procurada. '»»Função InStr retorna a posição(1 ou 2 ou 10, por exemplo) se achar a string procurada. '»»Função InStrRev é tem o comportamento oposto da função InStr PosHTTP = InStr(URL,"http://") PosFTP = InStr(URL,"ftp://") PosNEWS = InStr(URL,"news://") PosGOPHER = InStr(URL,"gopher://") TamURL = Len(URL) PosPrimeiroPonto = InStr(URL,".") PosUltimoPonto = InStrRev(URL,".") PosBarraNormalPonto = InStr(URL,"/.") PosBarraInvertida = InStr(URL,"\")
Response.Write URL & "<br>" Response.Write PosHTTP & "<br>" & PosFTP & "<br>" & PosNEWS & "<br>" & PosGOPHER & "<p>" Response.Write "TamURL: " & TamURL & "<br>PosPrimeiroPonto: " & PosPrimeiroPonto & "<br>PosUltimoPonto: " & PosUltimoPonto
if PosHTTP <> 1 and PosFTP <> 1 and PosNEWS <> 1 and PosGOPHER <> 1 then '»»Não encontrou início da URL válido. Response.Write Aviso elseif PosPrimeiroPonto = PosUltimoPonto then '»»Só existe um ponto(.) Response.Write Aviso elseif PosPrimeiroPonto = 1 or PosPrimeiroPonto = TamURL then '»»1º Ponto no início ou no fim da URL. Response.Write Aviso elseif PosUltimoPonto = 1 or PosUltimoPonto = TamURL then '»»Último Ponto no início ou no fim da URL. Response.Write Aviso elseif PosBarraNormalPonto <> 0 then '»»Achou Barra Normal e Ponto(/.). Response.Write Aviso elseif PosBarraInvertida <> 0 then '»»Achou Barra Invertida(\). Response.Write Aviso else Response.Write "<p>URL válida!!" end if
%>
|
|
|
|
|