|
|
|
|
|
|
|
|
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
%>
|
|
|
|
|
