ASP 2.x IPtoCountry Sample Source Code

ActiveSocket provides an easy-to-use development interface to a variety of IP protocols. By using ActiveSocket, you can very easily create or enhance applications with network features.

ActiveSocket features the following: ICMP, HTTP and HTTPs with support for proxy servers and secure web sites, Telnet, NTP time protocol, RSH remote shell script interface, SNMP (Simple Network Management Protcol), SNMP Traps, Sockets, WOL (Wake-On-LAN), IP to Country conversion and more.

ActiveSocket can be well integrated into ASP environments.
This document describes how ActiveSocket can be integrated into ASP projects.

Step 1: Download and install ActiveSocket

Download ActiveSocket from the ActiveXperts Download Site and start the installation. The installation guides you through the installation process.

Step 2: Create a new Web Site

First, create a new directory on the IIS Server's file system. This directory will hold the ASP later on.

From the 'Start menu', click on 'Administrative Tools' and click on 'Internet Information Services (IIS) Manager'. Right-click on the 'Web Sites' container and choose 'New->Web Site':

(Click on the picture to enlarge)

The 'Web Site Creation Wizard' is shown, guiding you thorugh the process of creating a new web site. Provide all necessary information:

Description - a friendly description of the new site;
IP / Port / Host Header - choose your preferred way to distinguish between other web sites on the server;
Path - select the directory that will store the ASP file(s);
Web Site Access Permissions - in the Web Site Access Permissions dialog, enable 'Read' and 'Run scripts (such as ASP)';

You're now able to write an ASP script to use IP protocols with ActiveSocket.

Step 3: Create the ActiveSocket object in ASP

Create a new ASP script called DEFAULT.ASP in the directory that was created in Step2, using your favorite editor. On top of the ASP code, insert the following lines to declare and create the ActiveSocket object:

   <object runat=server progid="ActiveXperts.IPtoCountry" id=objIPtoCountry ></object>

Step 4: Test a small piece of ASP

Now, test if your new web site is working well with ActiveSocket using your browser. If you are using Microsoft Internet Explorer, it is recommended to disable friendly error message because this default setting doesn't show any ASP error message, making it hard to debug if there are any problems:

Choose' Internet Options' from the 'Tools' menu;
Select the 'Advanced' tab;
In the 'Browsing' folder, de-select the 'Show friendly HTTP error messages' option;
Click 'OK' to close the dialog.

Now, use the following piece of code in your DEFAULT.ASP page:

   
<html>
  <head>
    <title>ActiveSocket IP To Country ASP Sample</title>
    <style>
     table
     {
       border: 1px solid navy;
       font-family: verdana;
       font-size: x-small;
       color: navy;
     }
  
     input
     {
       border: 1px solid navy;
       background-color: #F9F9F9;
       font-family: verdana;
       font-weight: x-small;
       color: navy;
     }
  
     h2
     {
       font-family: verdana;
       color: navy;
     }
    </style>
  </head>
  <body>

<%
If request("submitbutton") <> "" Then
  Dim strUrl, strLogfile, arrResults

  strLogfile = request    ("strLogfile")
  strUrl     = request    ("strHostname")
  
  arrResults = GetCountry (checkUrl(strUrl), strLogfile)
End If
%>

    <div align=center>
    <form>
    <h2>ActiveSocket IP To Country ASP Sample</h2>
  
    <font size=1 face=verdana color=black><b>Please fill in the form below:</b></font>
    <table>
      <tr>
        <td>The hostname you want to know the location of:</td>
        <td><input type=text size=40 name="strHostname" value="forum.activexperts.com"></td> 
      </tr>
      <tr>
        <td>The file you want to write a log to:</td>
        <td><input type=text size=40 name="strLogfile" value="C:\logfile.txt"></td> 
      </tr>
      <tr>
        <td></td>
        <td><input type=submit name="submitbutton" value="Get country!"></td> 
      </tr>
    </table>
    </form>


  <% If request("submitbutton") <> "" Then %>
	
    <font size=1 face=verdana color=black><b>Results:</b></font>	
    <table width=635>
      <tr>
        <td width=150>Hostname:</td>
        <td><% = request("strHostname") %></td>
      </tr>
      <tr>
        <td width=150>Location:</td>
        <td><% = arrResults(0) & " : " & arrResults(1) %></td>
      </tr>
      <tr>
        <td width=150>Results:</td>
        <td><% = arrResults(2) & " : " & arrResults(3) %></td>
      </tr>
    </table>
  <% End If %>
</div>

</body>
</html>

<%
Function checkUrl(strUrl)
  If strUrl <> "" Then
    checkUrl = replace(strUrl, "http://", "")
  Else
    checkUrl = "error"
  End if    
End Function
%>

<%
Function GetCountry(strHost, strLogfile)
  If strHost <> "error" Then
    Dim objSocket, arrResults(3)

    Set objSocket     = Server.CreateObject("ActiveXperts.IPToCountry")

    objSocket.Logfile = strLogfile
    objSocket.Host    = strHost

    objSocket.Query

    arrResults(0)     = objSocket.CountryCode
    arrResults(1)     = objSocket.CountryName
    arrResults(2)     = objSocket.LastError
    arrResults(3)     = objSocket.GetErrorDescription(objSocket.LastError)

    GetCountry        = arrResults

    Set objSocket     = Nothing
  Else
    GetCountry = ""
  End If
End Function
%>

There are many working samples included with the product. You can also find them on the ActiveXperts FTP site: ftp.activexperts-labs.com/samples/asocket.

The ActiveSocket tool is a Network Communications ActiveX software component (SDK). This control supports SNMP, SMTP, POP3, Telnet, TCP, NTP, RSH, HTTP, HTTPs, FTP, DNS, ICMP and more, and can be used by any Windows development platform, including Visual Basic .NET, Visual CSharp .NET, ASP .NET (VB,CS), ASP, Visual Basic, Visual Studio/Visual C++, Delphi, PHP, ColdFusion, HTML, VBScript and any other ActiveX/COM compliant platform. The ActiveSocket Toolkit is an ActiveXperts Software B.V. Product.