This tutorial will show you how to
make a script to see who has seen your AOL Instant
Messenger profile.
PART I - CREATING THE FLAT FILE
First, make a file called "sn.html" inside
a folder (I've chosen my database folder even though
this is a flat file). leave it blank.
CAUTION: IF you have access, you MUST give the IUSR_
user read/write permissions to the file. Otherwise,
your host probably has it set to that already.
PART II - CREATING THE VIEWER PAGE
Now that were done, we need a page to view the screen
names, as well as input them. Here's the code:
<%
Dim fileLOC
Dim ScreenName
If request("sn") <> ""
then
ScreenName = Request("sn")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
fileLOC = Server.MapPath ("db/sn.html")
Set File = objFSO.OpenTextFile (fileLOC, 8)
File.Write("" & ScreenName &
"<br>" & vbcrlf)
File.Close
Set objFSO = Nothing
End If
%> |
And there's your code. objFSO loads
the file using the FileSystemObject for appending (notice
the "8"?), writes the screen name, followed
by an html linebreak "<br>", and "vbcrlf"
is the VB's command to go to insert a line break within
the html file. It's important to close the files and
set the objects to nothing, or else cpu time will be
wasted even long after the user as closed his/her browser,
shut down his computer, and fallen sleep.
PART III - PUTTING THE LINK IN
YOUR PROFILE
Now, put this piece of code in your profile by going
to My Aim > Edit Profile in AOL Instant Messenger
and inserting this link:
<a href="http://www.yoursite.com/sn.asp?sn=%n"
target="_self">Click Here to See
Who's Seen My Profile</a><br> |
To see who has read it, just erase
the "?sn=%n" from the url, or go to your "db/sn.html"
page.
|
