Un jour, je me suis soudain demandé : ne serait-il pas merveilleux si, chaque fois que je consulte un site Web, je pouvais immédiatement afficher les informations dont j'avais besoin ? Ensuite, j'ai voulu réfléchir à cela plus profondément, m'asseyant sur une chaise avec un crayon et ne sachant pas ce que j'écrivais. Dans ce cas, je dois encore m'occuper de leur codage.
??Mon ami a ouvert un petit site, conçu à l'origine par moi. C'est une bonne plateforme pour tester mes idées. J'ai donc écrit le code et téléchargé le fichier. C'est vraiment passionnant, le programme fonctionne parfaitement, et ça prouve aussi que mon idée est effectivement bonne.
??J'ai déjà lu des rapports sur les tendances des internautes, et il y a un modèle qui m'a profondément impressionné. On dit que la plupart des utilisateurs quitteront immédiatement le site s’ils ne trouvent pas ce dont ils ont besoin en trois clics. Mon code peut résoudre ce problème et garantir que les utilisateurs peuvent trouver la cible en un seul clic de souris. Dans mon exemple, supposons qu'un utilisateur se connecte à Yahoo et recherche des accessoires de cheminée (accessoires d'équipement de vol). Dans les résultats donnés, lorsqu'il viendra sur le site de mon ami, il verra un écran avec des mots tels que « Vous recherchez des accessoires pour cheminée ». Ensuite, il suivra les instructions sur le site Web et accédera directement à la page à laquelle il souhaite accéder.
??La première étape que vous devez faire est de créer une variable initiale dans le fichier global.asa et de la placer dans votre programme Sub Session_onStart().
??Sous-session_onStart()
?? Référent = Trim(Request.ServerVariables("HTTP_REFERER"))
??Si référent = "" Alors
??Référent = "Aucun"
?? Fin si
??Session("Référent") = Référent
??End Sub
??Voyons ensuite comment compléter les principales fonctions du programme.
??Parce que l'URL a été codée, nous devons d'abord restaurer les données de pointage de l'hôte du visiteur en quelque chose qui nous est utile. Créez une page ASP, appelez-la decode.asp, qui est l'épine dorsale de notre programme. La première fonction est de décoder l'en-tête de pointage codé. La procédure est un peu longue et très simple, sans tourner autour du pot. Si vous la trouvez gênante, vous pouvez aussi bien vous rendre au "Internet Worm Training Course" sur www.popunet.com pour trouver cet article et utiliser le. Méthode "copier/coller".
??La deuxième chose à faire dans le code source
est de séparer la partie requête des informations d'en-tête de l'URL - c'est ce dont nous avons besoin.
'Séparez les champs de requête de l'URL de pointage.
?La fonction estProduit(pStr)
?? Si pStr <> "" Et lCase(pStr) <> "aucun" Alors
?? 'Champ de recherche à l'envers
??temp = inStrRev(pStr, "/")
?? 'Obtenir l'emplacement de la séparation des répertoires
?? tempStr = Droite (pStr, temp)
?? 'Obtenir la longueur des données pertinente
?? temp2 = Len(pStr)
?? 'Obtenir les lignes de données de la requête
??pStr = Milieu(pStr, temp, temp2)
?? 'Définit la valeur de la fonction de retour
?? estProduit = pStr
??Autre
??isProduit = ""
??Fin si
?Fin de fonction
??L'étape suivante consiste à établir des critères clairs pour la recherche. Pour atteindre cet objectif, créez deux "pointeurs" d'espaces statiques pour rechercher les données pointées par
Function Finder (byRef prodList, byVal refList)
??'requête floue
??refList = lCase(refList)
??' Parcourez les pointeurs pour trouver les champs correspondants
??Pour i = 0 Vers uBound(prodList) - 1
??Si inStr(refList, lCase(prodList(i, 0))) Alors
??'Trouver une correspondance
??tHolder = tHolder & "Recherchez-vous " _
??& "" _
??& ListeProd(i, 0) & "
??"
??Fin si
??'Deuxième boucle
??Suivant
??'résultat de retour
??Finder = fonction tHolderEnd
??Grâce à un inclue, placez le decode.asp que nous avons préparé dans n'importe quelle page nécessitant cette fonction, et vous avez terminé.
Les détails sont les suivants :
'Si l'en-tête de pointage n'est pas vide, appelez cette fonction If lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" Then' Analyser les données de pointage Response.Write vbCrLf & "
??" _ & Finder(pArray, URLDecode(isProduct(Session("Referer")))) _ & "
??" & vbCrLf
??Fin si