Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa noite,
estou tentando criar url amigaveis em meus sites, e estou tentando trabalhar com o Isapi Rewrite 3.
Bem... fui estudando, olhando alguns foruns, e consegui criar configurar o arquivo .htaccess, faze-lo funcionar em paginas simples, o meu problemas é quando vou adicionar URL amigaveis aos links internos,
por exemplo,
MINHAS FUNÇÕES PARA CONVERTER A URL AMIGAVEL SÃO:
Function URLamigavel(param)
URLamigavel = param
End Function
'-------------------------------------------------------'
Function urlAmigavel(pag, ByVal cat, ByVal tit)
dim URL, arquivo, parametros, sField, sValue, valor
URL = "http://www.meusite.com.br/site2/"
If InStr(pag,".asp") > 0 Then
arquivo = Left(pag,(InStr(pag,".asp")-1))
If InStr(pag, "?" ) Then
parametros = Split( Right( pag , Len(pag) - InStr(pag, "?" ) ) , "&")
For j = 0 To UBound( parametros )
sField = left ( parametros(j) , InStr( parametros(j) , "=") -1 )
sValue = Right( parametros(j) , Len(parametros(j)) - InStr( parametros(j) , "=") )
If valor = "" Then valor = sValue Else valor = valor &","& sValue End If
Next
End if
End if
If tit <> "" then
tit = "/"& FormataTitulo( tit )
If cat <> "" then
cat = "/"& FormataTitulo( cat )
End if
Else
tit = "/"
End if
If valor <> "" Then valor = "-" & valor&".html" End If
urlAmigavel = URL & arquivo & cat & tit & valor
End Function
'-------------------------------------------------------'
Function ereg_replace(ByVal ereg_vetor, ByVal repl, ByVal valor)
ereg_vetorV = Split(ereg_vetor, "-")
If ubound(ereg_vetorV) > 0 Then
charName = Split(ereg_vetorV(0),"|")
For i_ereg = 0 To UBound(charName)
valor = Replace(valor, charName(i_ereg), repl)
Next
If UBound(ereg_vetorV) >= 1 then
charID = Split(ereg_vetorV(1),"|")
If Join(charID) <> "" then
For i_ereg = 0 To UBound(charID)
valor = Replace(valor, "" & charID(i_ereg) & ";", repl)
Next
End if
End if
End If
ereg_replace = valor
End Function
'-------------------------------------------------------'
Function FormataTitulo( ByVal s )
s = Trim(s)
s = LCase(s)
s = ereg_replace("á|à|â|ã|ä|ª-@|224|225|226|227|228|229","a",s)
s = ereg_replace("é|è|ê|ë-232|233|234|235","e",s)
s = ereg_replace("í|ì|î|ï-236|237|238|239","i",s)
s = ereg_replace("ó|ò|ô|õ|º|ö-242|243|244|245|246|186","o",s)
s = ereg_replace("ú|ù|û|ü-249|250|251|252","u",s)
s = ereg_replace("ç-231","c",s)
s = ereg_replace("ñ","n",s)
s = replace(s , "-", "")
s = replace(s , "&", "")
s = replace(s , " ", "-")
s = replace(s , ",", "")
s = replace(s , "?", "")
s = replace(s , ":", "")
s = replace(s , "/", "")
s = replace(s , ".", "")
s = replace(s , "'", "")
s = replace(s , "´", "")
s = replace(s , """, "")
s = replace(s , "$", "s")
s = replace(s , "!", "")
s = replace(s , "%", "")
FormataTitulo = s
End Function
*URL NA PÁGINA **COM** A FUNÇÃO*
<a href="<%=URLamigavel("noticias/noticia.asp?noticia=2&id="&str_cod_not, "teste01", "teste02")%>">
*URL NA PÁGINA **SEM** A FUNÇÃO*
<a href="noticias/noticia.asp?noticia=2&id=<%=str_cod_not%>">
Sem a função funciona normalmente, porém quando coloco a função ele diz que a página não existe.
Alguem pode me ajudar?
Travei neste problema!
Mto obrigado!
Abs
Carregando comentários...