USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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

%>
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página