Olá todos, fiz um sistema de url amigável sem o uso do ISAPI Rewrite mas com algumas limitações, não tenho muito conhecimento em programação mas com ajuda de muitos aqui do forum consegui chegar a um resultado satisfatório, aí vem uns e perguntam: mas você pode usar o componente ISAPI-Rewrite que resolve o problema, mas o problema é que eu não posso migrar de servidor pois nem todos tem instalado todos componentes que uso em meus sites, e como tenho sites com mais de 20.000 fotos cadastradas com resolução de 1.200x800 pixels sem contar as miniaturas, então daria um trabalho imenso para migrar tudo isso e mais um pouco.
Então vamos vamos à parte que mais deu trabalho que foi a codificação de caracteres, já faz 15 dias que eu estou tentando de tudo para acertar os benditos acentos, já salvei as páginas com codificação utf-8, iso-8859-1, Latim 1, ASCII.
Já mudei no banco de dados conforme a codificação das páginas, já fiz de tudo e nada, então estou postando todo trabalho para que alguém teste e encontre uma solução:
INSTRUÇÕES:
1 - coloque endereço completo em todas âncoras das páginas que levam a exibição dos dados, incluindo o endereço do arquivo .css
2 - crie uma página idêntica à página que recebe os dados, exemplo(produtos.asp) para (produtos2.asp)
3 - coloque o endereço completo de de url em todos os links de todas as páginas, assim como no arquivo .css.
4 - crie pastas com os nomes de todas sessões e/ou categorias existentes separados por (-) ex:(receitas-com-aves) em seu site e dê as devidas permissões de escrita e leitura.
5 - crie uma tabela no bancos de dados chamada "sitemaps" contendo os campos ("id" AUTO_INCREMENT) e ("url" longtext) com as configurações: CHARSET=utf8 COLLATE=utf8_general_ci .
6 - lembre-se de setar as permissões onde os arquivos serão gravados assim como seu seu arquivo sitemap.txt .
7 - crie uma página com o nome "criar-pagina.asp" .
Obs: o problema é que eu acho que não serve para lojas virtuais.
vamos então, abra o arquivo que recebe os dados(produtos.asp) e coloque as instruções abaixo da consulta que mostra os dados:
'Aqui eu informo a sessão do produto substituindo os espaços por traço, eu acho que não preciso mostrar as outras variáveis.
'Aqui eu fiz uma consulta no banco e recuperei a sessão o produto que estava cadastrado.
sessaoMenu = replace(LCase(strNomeSessao)," ","-")
If Request.QueryString("produto") <> "" Then
'Informe todas variáveis do produto na url arquivo (produtos2.asp) que é a cópia criada por você, no meu caso eu estou passando outras variáveis pela url porque preciso delas para compor as metas tags do meu cabeçalho.
srturl = ("http://www.seusite.com.br/produtos2.asp?produto="&intProdID&"&nome="&strNomeProduto&"&sessao="&sessaoMenu&"&tag="&strTag&"&descricao="&strDescricao&"&imagem="&strImagem&"")
'Aqui redireciona para a página criar-pagina.asp passando as variáveis informadas acima.
Response.Redirect ("criar-pagina.asp?SURL="&srturl&"")
Else
'Fechar a condição no final da página.
end if
criar-pagina.asp
<%
Dim strProdID
Dim strNomeProduto
Dim StrSURL
Dim strSessao
Dim strTag
Dim strNota
Dim strImagem
Dim CAcento
Dim SAcento
Dim titulo
Dim pagina
Dim caminho
Dim link
Dim strSite
Dim strCodigo
Dim codigo
Dim xmlhttp
Dim GRAVAR
Dim FSO
Dim htmlspecialchars_decode
Dim strEnderecoPagina
Dim sitemaps
Dim link_sitemap
Dim caminho_sitemap
Dim ArqTxt
'Função para remover acentos.
Function TirarAcento(Palavra)
CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñѺª"
SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
Texto = ""
If Palavra <> "" then
For X = 1 To Len(Palavra)
Letra = Mid(Palavra,X,1)
Pos_Acento = InStr(CAcento,Letra)
If Pos_Acento > 0 Then Letra = mid(SAcento,Pos_Acento,1)
Texto = Texto & Letra
Next
TirarAcento = Texto
End If
End Function
'Função para decodificar o conteúdo.
Function htmlspecialchars_decode(someString)
htmlspecialchars_decode = replace(replace(replace(replace(someString, "&", "&"), ">", ">"), "<", "<"), """, """")
End Function
' ------------------------------------------------------------------------------
'Recupera as variáveis.
strNomeProduto = Request.QueryString("nome")
strSURL = Request.QueryString("SURL")
strSessao = Request.QueryString("sessao")
strTag = Request.QueryString("tag")
strDescricao = Request.QueryString("descricao")
strImagem = Request.QueryString("imagem")
'Tratando as variáveis com replace para substituir espaços por traço e em letras minúsculas, e removendo acentos.
strNomeProduto = replace(TirarAcento(LCase(strNomeProduto))," ","-")
strSessao = replace(TirarAcento(LCase(strSessao))," ","-")
'Informe aqui o endereço do seu site, não remova a barra.
strSite = "http://www.seusite.com.br/"
'Aqui vamos montar o nome da nova página com a extensão html.
titulo = strNomeProduto&".html"
'Aqui informamos a pasta onde será gravada a nova página.
pasta = strSessao&"/"&titulo
'Aqui informamos o link da página a ser acessada.
link = strSURL&"&nome="&strNomeProduto&"&descricao="&strDescricao&"&tag="&strTag&"&imagem="&strImagem
' ------------------------------------------------------------------------------
'Aqui acessamos a página informada e pegamos o código fonte dela.
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET",link, False
xmlhttp.setRequestHeader "ContentType","text/html"
xmlhttp.setRequestHeader "charset","utf-8" 'use a codificação que melhor lhe atender
xmlhttp.setRequestHeader "Encoding","utf-8" 'use a codificação que melhor lhe atender
xmlhttp.Send
strCodigo = xmlhttp.ResponseText
codigo = Server.HTMLEncode(strCodigo)
' ------------------------------------------------------------------------------
'Aqui criamos o objeto para gravar a página na pasta conforme sua sessão.
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Server.MapPath(pasta)
Set GRAVAR = FSO.CreateTextFile(caminho,true)
'Aqui gravamos todo código fonte dentro da nova página.
gravar.write htmlspecialchars_decode(codigo)
gravar.close
' ------------------------------------------------------------------------------
'Aqui informamos o endereço completo da nova página.
strEnderecoPagina = strSite&pasta
'Gravamos o endereço da nova página no banco de dados,e verificamos se já existe o mesmo nome gravado, OBS. coloque um include que faz a conexão com seu banco de dados.
Set sitemaps = abredb.Execute("SELECT * FROM sitemaps WHERE url='"& strEnderecoPagina &"';")
if sitemaps.eof and sitemaps.bof then
link_sitemap = strEnderecoPagina
sitemaps = "INSERT INTO sitemaps (url) VALUES ('"&link_sitemap&"')"
abredb.execute(sitemaps)
'Com a mesma condição vamos gravar um novo link no arquivo sitemap.txt.
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho_sitemap = "c:/domains/seusite.com.br/wwwroot/sitemap.txt"
'O parâmetro forReading é utilizado somente para leitura.
Const forReading = 1, forWriting = 2, forAppending = 8
'Instancia o objeto FSO.
Set Fso = CreateObject("Scripting.FileSystemObject")
'Abre o arquivo com o método OpenTextFile.
Set ArqTxt = Fso.OpenTextFile(caminho_sitemap,8,True)
'Arquivo aberto, escreve no arquivo.
ArqTxt.WriteLine link_sitemap
'Fecha o arquivo com o método Close.
ArqTxt.Close
'Destrói o objeto.
Set ArqTxt = nothing
else
strEnderecoPagina = strEnderecoPagina
end if
sitemaps.close
sitemaps.nothing
' ------------------------------------------------------------------------------
'Pronto, fazemos um redirecionamento para a página recém criada.
Response.Redirect strEnderecoPagina
%>
Este sistema além de gravar uma página em html, ele grava cada link criado no banco de dados e grava também uma nova linha no arquivo sitemap.txt sem duplicidade, então a cada clique que o visitante der vai acontecer todo esse processo, e se a página já existir ele vai sobrescrever a mesma para atualizar caso seja um site com includes, mas não vai gravar novo link no sitemap e nem no banco.
Bom, valeu pela força de todos e se alguém puder ajudar finalizar esse projeto eu agradeço!