asp: Using ASP programming to realize the network content Quick Search

One day I had a sudden whim that it would be wonderful if I could get the information I needed to see right away on every website. Next I want to think about this more deeply, sit in a chair and get a pencil, but I don't know what I'm writing. In this way, I still have to deal with the code.

My friend opened a small site, was originally designed by me. This is a good platform to test my ideas. So I wrote the code and uploaded the file. It was so exciting that the procedure worked perfectly, and it proved that I had a good idea indeed.

I've seen some Web user trends reports before, and one of them is very impressive. Said most users will leave the site immediately if they cannot find what they want within three clicks. My code will be able to address this problem, and the insurance user can find the target with just one click of the mouse. In my case, suppose a user is on Yahoo, and the search keyword is fireplace accessories (Flight accessories). In the results given, he came to my friend's site, will see "You are searching for fireplace accessories" and so on the screen. He then follows the prompts on the website and goes directly to the desired page.

The first step you want to make is to create an initial variable in the Global.asa file and place it in your sub Session_OnStart () program.

The following is a reference fragment:
Sub Session_OnStart ()
Referer = Trim (Request.ServerVariables ("Http_referer"))
If Referer = "" Then
Referer = "None"
End If
Session ("Referer") = Referer
End Sub

Then let's take a look at how to complete the main function of the program.

Because the URL is encoded, the first thing to do is to restore the visitor's host data to something useful to us. Create an ASP page, call it decode.asp, is the backbone of our program. The first function is to decode the encoded pointing head. The program is a bit long, and very direct, there is no roundabout, if you are too troublesome, as to www.popunet.com "nets bug refresher Course" above find this article, with "Copy/paste" Dafa bar.

Source

The second thing to do is to isolate the part of the query from the header of the URL--this is what we need.

The following is a reference fragment:
' Detach the query field from point to URL.
Function isproduct (PSTR)
If pstr <> "" and LCase (PSTR) <> "None" Then
' Search Backward field
temp = InStrRev (pstr, "/")
' Get the location of directory separation
TempStr = right (pstr, temp)
' Get relevant data length
Temp2 = Len (PSTR)
' Get the query data row
Pstr = Mid (pstr, temp, TEMP2)
' Set the value of the return function
Isproduct = Pstr
Else
Isproduct = ""
End If
End Function

The next is to establish a clear standard for finding. To achieve this, create two static spaces. Find points to data

The following is a reference fragment:
Function Finder (ByRef prodlist, ByVal reflist)
' Fuzzy query
reflist = LCase (reflist)
' Loop through the pointer to find the matching field
For i = 0 to UBound (prodlist)-1
If inStr (reflist, LCase (prodlist (i, 0)) Then
' Find a match
Tholder = Tholder & "Are You Looking for" _
& "" _
& Prodlist (i, 0) & "
"
End If
' Second cycle
Next
' Returns the result
Finder = Tholderend Function

Through a inclue, we put our good decode.asp to any page that needs this function, and we're done.

Specifically as follows:

' If the pointing header is not empty, call this feature if LCase (Session ("Referer")) <> "None" OR session ("Referer") <> "Then" Parse point to data Response.Write VbCrLf & "
"_ & Finder (Parray, UrlDecode (isproduct (" Referer ")) _ &"
"& VbCrLf
End If please contact the site, timely note your name. Contact Email: edu#chinaz.com (change # to @).