Um dia, de repente pensei: não seria maravilhoso se, sempre que acessasse um site, pudesse acessar imediatamente as informações que precisava ver? A seguir quis pensar mais profundamente nisso, sentado numa cadeira com um lápis e sem saber o que estava escrevendo. Nesse caso, ainda tenho que lidar com a codificação deles.
??Meu amigo abriu um pequeno site, que foi originalmente desenhado por mim. Esta é uma boa plataforma para testar minhas ideias. Então escrevi o código e carreguei o arquivo. É realmente emocionante, o programa funciona perfeitamente e também prova que a minha ideia é realmente boa.
“Já li alguns relatórios de tendências de usuários da Internet e há um padrão neles que me impressionou profundamente. Diz-se que a maioria dos usuários sairá do site imediatamente se não conseguirem encontrar o que precisam em três cliques. Meu código pode resolver esse problema e garantir que os usuários possam encontrar o alvo com apenas um clique do mouse. No meu exemplo, suponha que um usuário faça login no Yahoo e pesquise Acessórios para lareira (acessórios para equipamentos de vôo). Nos resultados apresentados, ao acessar o site do meu amigo, ele verá uma tela com palavras como “Você está procurando Acessórios para Lareira”. Em seguida, ele seguirá as instruções do site e irá diretamente para a página que deseja.
??O primeiro passo que você deve fazer é criar uma variável inicial no arquivo global.asa e colocá-la em seu programa Sub Session_onStart().
??Subsessão_onStart()
??Referente = Trim(Request.ServerVariables("HTTP_REFERER"))
??Se Referer = "" Então
??Referente = "Nenhum"
?? Terminar se
??Sessão("Referenciador") = Referenciador
??End Sub
??Então vamos ver como completar as principais funções do programa.
??Como a URL foi codificada, devemos primeiro restaurar os dados de apontamento do host do visitante em algo útil para nós. Crie uma página ASP, chame-a decode.asp, que é a espinha dorsal do nosso programa. A primeira função é decodificar o cabeçalho apontador codificado. O procedimento é um pouco longo e muito simples, sem rodeios. Se você achar que é problemático, você também pode ir ao "Curso de treinamento sobre worms da Internet" em www.popunet.com para encontrar este artigo e usar o. método "copiar/colar".
??A segunda coisa a fazer no código-fonte
é separar a parte da consulta das informações do cabeçalho da URL – é disso que precisamos.
'Separe os campos de consulta do URL apontador.
?Função éProduto(pStr)
?? Se pStr <> "" E lCase(pStr) <> "none" Então
?? 'Campo de pesquisa para trás
??temp = inStrRev(pStr, "/")
?? 'Obter a localização da separação de diretórios
?? tempStr = Direita(pStr, temp)
?? 'Obter o comprimento dos dados relevantes
?? temp2 = Len(pStr)
?? 'Obter linhas de dados de consulta
??pStr = Médio(pStr, temp, temp2)
?? 'Define o valor da função de retorno
??éProduto = pStr
??Outro
??isProduto = ""
??Fim se
?Função Final
??O próximo passo é estabelecer critérios claros para a busca. Para atingir esse objetivo, crie dois "ponteiros" de espaços estáticos para encontrar os dados apontados pelo
Function Finder (byRef prodList, byVal refList)
??'consulta difusa
??refList = lCase(refList)
??' Percorrer ponteiros para encontrar campos correspondentes
??Para i = 0 Para uBound(prodList) - 1
??Se inStr(refList, lCase(prodList(i, 0))) Então
??'Encontre uma correspondência
??tHolder = tHolder & "Você está procurando" _
??& "" _
??& lista de produtos(i, 0) & "
??"
??Fim se
??'Segundo ciclo
??Próximo
??'resultado de retorno
??Finder = Função tHolderEnd
??Através de um inclue, coloque o decode.asp que preparamos em qualquer página que necessite desta função e pronto.
Os detalhes são os seguintes:
'Se o cabeçalho apontador não estiver vazio, chame esta função If lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" Then' Analise os dados apontando Response.Write vbCrLf & "
??" _ & Finder(pArray, URLDecode(isProduct(Session("Referer")))) _ & "
??" & vbCrLf
??Fim se