Eines Tages dachte ich plötzlich: Wäre es nicht wunderbar, wenn ich jedes Mal, wenn ich eine Website besuche, sofort die Informationen abrufen könnte, die ich sehen möchte? Als nächstes wollte ich tiefer darüber nachdenken, mich mit einem Bleistift auf einen Stuhl zu setzen und nicht zu wissen, was ich schrieb. In diesem Fall muss ich mich noch mit der Codierung befassen.
„Mein Freund hat eine kleine Website eröffnet, die ursprünglich von mir entworfen wurde. Dies ist eine gute Plattform, um meine Ideen zu testen. Also habe ich den Code geschrieben und die Datei hochgeladen. Es ist wirklich spannend, das Programm funktioniert perfekt und es beweist auch, dass meine Idee wirklich gut ist.
„Ich habe bereits einige Berichte über Tendenzen bei Internetnutzern gelesen und es gibt darin ein Muster, das mich tief beeindruckt hat.“ Man sagt, dass die meisten Nutzer die Seite sofort verlassen, wenn sie nicht innerhalb von drei Klicks finden, was sie suchen. Mein Code kann dieses Problem lösen und sicherstellen, dass Benutzer das Ziel mit nur einem Mausklick finden können. Nehmen wir in meinem Beispiel an, dass sich ein Benutzer bei Yahoo anmeldet und nach Fireplace Accessories (Flugausrüstungszubehör) sucht. Wenn er in den angezeigten Ergebnissen die Website meines Freundes besucht, sieht er einen Bildschirm mit Wörtern wie „Sie suchen nach Kaminzubehör“. Anschließend folgt er den Anweisungen auf der Website und gelangt direkt zu der Seite, die er aufrufen möchte.
??Der erste Schritt, den Sie tun müssen, besteht darin, eine Anfangsvariable in der Datei global.asa zu erstellen und sie in Ihrem Sub Session_onStart()-Programm zu platzieren.
??Sub Session_onStart()
?? Referer = Trim(Request.ServerVariables("HTTP_REFERER"))
??Wenn Referer = "" Dann
??Referer = "Keine"
?? Ende wenn
??Session("Referer") = Referrer
??End Sub
??Dann schauen wir uns an, wie man die Hauptfunktionen des Programms vervollständigt.
„Da die URL verschlüsselt wurde, müssen wir zunächst die Verweisdaten des Hosts des Besuchers in etwas für uns Nützliches wiederherstellen.“ Erstellen Sie eine ASP-Seite und nennen Sie sie decode.asp. Dies ist das Rückgrat unseres Programms. Die erste Funktion besteht darin, den codierten Zeigeheader zu dekodieren. Das Verfahren ist etwas langwierig und sehr einfach, ohne Umschweife. Wenn Sie es als mühsam empfinden, können Sie auch den „Internet-Wurm-Trainingskurs“ auf www.popunet.com besuchen, um diesen Artikel zu finden und zu verwenden Methode „Kopieren/Einfügen“.
„Der zweite Schritt im Quellcode besteht
darin, den Abfrageteil von den URL-Header-Informationen zu trennen – das ist es, was wir brauchen.
“'Trennen Sie die Abfragefelder von der verweisenden URL.
?Funktion isProduct(pStr)
?? Wenn pStr <> "" Und lCase(pStr) <> "none" Dann
?? 'Suchfeld rückwärts
??temp = inStrRev(pStr, "/")
?? 'Den Speicherort der Verzeichnistrennung ermitteln
?? tempStr = Right(pStr, temp)
?? 'Ermitteln Sie die relevante Datenlänge
?? temp2 = Len(pStr)
?? 'Abfragedatenzeilen abrufen
??pStr = Mid(pStr, temp, temp2)
?? 'Legen Sie den Wert der Rückgabefunktion fest
?? isProduct = pStr
??Anders
??isProduct = ""
??Ende wenn
?Endfunktion
??Der nächste Schritt besteht darin, klare Kriterien für die Suche festzulegen. Um diesen Zweck zu erreichen, erstellen Sie zwei statische Leerzeichen-„Zeiger“, um Daten zu finden, auf die der
Funktionsfinder zeigt (byRef prodList, byVal refList).
??'Fuzzy-Abfrage
??refList = lCase(refList)
??' Durchlaufen Sie Zeiger, um passende Felder zu finden
??Für i = 0 To uBound(prodList) - 1
??If inStr(refList, lCase(prodList(i, 0))) Then
??'Eine Übereinstimmung finden
??tHolder = tHolder & "Suchen Sie nach" _
??& "" _
??& prodList(i, 0) & "
??"
??Ende wenn
??'Zweite Schleife
??Nächste
???'Rückgabeergebnis
??Finder = tHolderEnd-Funktion
??Fügen Sie die von uns vorbereitete decode.asp über ein Inclue in jede Seite ein, die diese Funktion benötigt, und schon sind Sie fertig.
Die Details lauten wie folgt:
'Wenn der Zeigeheader nicht leer ist, rufen Sie diese Funktion auf. If lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" Then' Analysieren Sie die Zeigedaten Response.Write vbCrLf & "
??" _ & Finder(pArray, URLDecode(isProduct(Session("Referer"))) _ & "
??" & vbCrLf
??Ende wenn