Re: Are personalized URLs a danger to my Search Engine inclusion?
- From: "John" <GodLovesEveryone.org@xxxxxxxxx>
- Date: 3 Oct 2005 22:24:15 -0700
I wanted to thank you for your hint, Miguel, HTTP-Referer is exactly
what I was looking for. I found the information on how to use it
several places on the internet, then searched for information to let me
add unique referrers to a text file. Here's what I ended up with:
<%
'Create Our ServerVariables and Store them to a variable
site = Request.ServerVariables("HTTP_REFERER")
if site>""then
site = site & "," & thispage
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(Server.MapPath("testread.txt"),1,true)
do while f.AtEndOfStream<>true and site>""
testitem=f.ReadLine: if testitem=site then site=""
loop: f.Close
if site>"" then
set f=fs.OpenTextFile(Server.MapPath("testread.txt"),8,true)
f.WriteLine(site): f.Close: site=""
set f=Nothing: set fs=Nothing
end if
end if
%>
I'm sure I could make this routine above even better, but it works, so
I'm satisfied. For example, I could have used EXIT DO after site=""
instead of using (and site>"") in the line above it, but I've always
hesitated to use exit do, because on occasion, they have done funny
things in other programs.
Having found the statements required to let me create this file, I went
on to set up a similar file to keep track of first names requested, and
while making those changes, also changed it so that if someone uses the
www.mazes.com/asp-maze/godloves.asp?firstname=john style of
personalized URL, their name does not show up in the text or headings
of the page. So, once in awhile, i can glance at the names file to see
what kinds of interesting names have been a-maze-d.
John
.
- References:
- Prev by Date: Re: "Re:" in other languages
- Next by Date: Re: "Re:" in other languages
- Previous by thread: Re: Are personalized URLs a danger to my Search Engine inclusion?
- Next by thread: DHTML Notes and Information
- Index(es):
Relevant Pages
|
