HTTP Get and HTTP Post can be well integrated into ASP environments. This document describes how the ActiveSocket Http object can be integrated into ASP projects.
The most important functions of the Http object are:
Download ActiveSocket from the ActiveXperts Download Site and start the installation. The installation guides you through the installation process.
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:
You're now able to write an ASP script to use IP protocols with ActiveSocket.
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:
set objHttp = server.CreateObject("ActiveXperts.Http")
In this sample we have built a page that is able to display the source code of another page. To do this, we're using the following code.
if request("submitbutton") <> "" then
set objHttp = server.CreateObject("ActiveXperts.Http")
objHttp.WebAccount = request("webaccount")
objHttp.WebPassword = request("webpassword")
objHttp.Connect request("url")
strResult = objHttp.LastError & " : " & objHttp.GetErrorDescription(objHttp.LastError)
strHttpData = objHttp.ReadData
objHttp.Disconnect
end if
You'll probebly notice the webaccount and password. We need those when we're trying to get code from a secured site. When you're connected to the site all you have to do now is read the data. If you just want to preview source code, make sure you convert <'s and >'s, you'ld also like to convert line breaks and returns. To convert these characters, use this code:
strHttpData = replace(strHttpData,chr(60),"<") strHttpData = replace(strHttpData,chr(62),">") strHttpData = replace(strHttpData,chr(13),"<br>")