Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 IP in Active Users
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Arne2
New Member

Denmark
51 Posts

Posted - 09 November 2002 :  10:15:51  Show Profile
I am using the Active Users MOD and when I look at who is active it displays their IP, and so what? It is just an IP which does not make me much wiser. So I changed it to a clickable link which opens a new window and does a WhoIs on all-nettools.com This is how I did it in active_users.asp I have commented out the original source. I am sure this can be done better and more graceful, but at least it gives you an idea about using this showing of IP for something more useful than just showing it
Around line 177

	if bolAUIP then
	' Arne change IP start
	AFIPstreng ="http://www.all-nettools.com/cgi-bin/sw.cgi?&'"
    AFIPstreng = AFIPstreng + rsAM("AU_IP") + """"
      response.write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & "<a href=" & """" & AFIPstreng & " target=""_blank"">" & rsAM("AU_IP") & "</a>"  & "</font></td>" & VBNewLine
      'response.write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & WhatPage(rsAM("AU_LASTPAGE"),rsAM("AU_QUERYSTRING")) & "</font></td>" & VBNewLine
	' Arne change IP end  
    end if



And around line 224


    if bolAUIP then
	' Arne change IP start
	AFIPstreng ="http://www.all-nettools.com/cgi-bin/sw.cgi?&'"
    AFIPstreng = AFIPstreng + rsAG("AU_IP") + """"
      response.write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & "<a href=" & """" & AFIPstreng & " target=""_blank"">" & rsAG("AU_IP") & "</a>" & "</font></td>" & VBNewLine	
    ' response.write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rsAG("AU_IP") & "</font></td>" & VBNewLine
	' Arne change IP end
    end if
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.2 seconds. Powered By: Snitz Forums 2000 Version 3.4.07