Sample code for making a HTTP request


Outsourcing

	Application Development
	Application Maintenance
	Website Design
	Customer Support
	eLearning



Application Hosting

	Message Board
	Guestbook
	Website Poll
	Chat Room
	Website Statistics
	Links Page
	Topsite

: Sample code for making a HTTP request

HTML
Java/JSP
Perl
PHP
JavaScript
ASP

HTML

<img src="REQUEST URL" border=0 width=1 height=1>

Java/JSP

<%@ page import="java.util.*" %> <%@ page import="java.net.*" %> <%@ page import="java.io.*" %> <% // setup the request // REQUEST URL should be replaced by the URL you need to request // For example: http://www.websitetoolbox.com/tool/register/USERNAME/create_account URL u = new URL("REQUEST URL"); URLConnection uc = u.openConnection(); uc.setDoOutput(true); uc.setRequestProperty("Content-Type","application/x-www-form-urlencoded"); // add the query string // For example: String query = "username=joe&pw=secret"; String query = ""; PrintWriter pw = new PrintWriter(uc.getOutputStream()); pw.println(query); pw.close(); // get the input from the request BufferedReader in = new BufferedReader( new InputStreamReader(uc.getInputStream())); String res = in.readLine(); in.close(); %>

Perl

(This method requires the LWP::UserAgent module. View the documentation.)

#!/usr/bin/perl # setup the request use LWP::UserAgent; $ua = new LWP::UserAgent; # REQUEST URL should be replaced by the URL you need to request # For example: http://www.websitetoolbox.com/tool/register/USERNAME/create_account $req = new HTTP::Request 'POST','REQUEST URL'; $req->content_type('application/x-www-form-urlencoded'); # add the query string # For example: $query = "username=joe&pw=secret"; $query = ""; $req->content($query); # send the request $res = $ua->request($req); if ($res->is_error) { # HTTP error } # the $res->content variable holds the result print "content-type: text/plain\n\n";

PHP

<?php /********************** Input variable needed to use webtoolbox script ***********************/ /* Example parameters are given below. Replace these with the actual parameters for the URL. */ $parameters = "member=curltest6"; $parameters .= "&pw=curltest"; $parameters .= "&email=curltest@test6.com"; $parameters .= "&name=Curl Test"; $HOST = "www.websitetoolbox.com"; $URL = "/tool/register/USERNAME/create_account?".$parameters; /* This is the string that will be searched for on the resulting page to check if the HTTP call was a success. */ $SUCCESS_STRING = "Registration Complete"; /********************** FUNCTIONS USED TO USE POST VARIABLE ON WEBTOOLBOX FUNCTIONS ***********************/ /* Description: Function used to check if the given functions are available with the given php version Parameters: $functionList - comma separated function names */ function _checkBasicFunctions($functionList) { $functions = split(",",$functionList); foreach ($functions as $key=>$val) { $function = trim($val); if (!function_exists($function)) { return false; } } return true; } // end _checkBasicFunctions /* Description: Function used to check if the member registered successfully on the websitetoolbox system Parameters: $response - Response gets from the server Return - Boolean true or false */ function _checkSuccess($response){ if (strstr($response, $SUCCESS_STRING)) { return true; } else if (strstr($response, "Error:")){ return false; } } /* Description: This Function is used to POST values on the Website Toolbox server Parameters: $URL - Requested script url $HOST - server host */ function doHTTPCall($URL,$HOST){ if (_checkBasicFunctions("curl_init,curl_setopt,curl_exec,curl_close")) { $ch = curl_init("http://".$HOST.$URL); curl_setopt($ch, CURLOPT_HEADER, 0); curl_setopt($ch, CURLOPT_POST, 1); curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); $response = curl_exec($ch); curl_close($ch); } else if (_checkBasicFunctions("fsockopen,fputs,feof,fread,fgets,fclose")) { $fsock = fsockopen($HOST, 80, $errno, $errstr, 30); if (!$fsock) { echo "Error! $errno - $errstr"; } else { $headers .= "POST $URL HTTP/1.1\r\n"; $headers .= "HOST: $HOST\r\n"; $headers .= "Connection: close\r\n\r\n"; fputs($fsock, $headers); // Needed to omit extra initial information $get_info = false; while (!feof($fsock)) { if ($get_info) { $response .= fread($fsock, 1024); } else { if (fgets($fsock, 1024) == "\r\n") { $get_info = true; } } } fclose($fsock); }// if } if (!_checkSuccess($response)) { echo "<h3>An error occurred. The expected response was not received. Please try again later.</h3>"; } echo $response; } /************************** Make the request **************************/ doHTTPCall($URL,$HOST); ?>

JavaScript

Note: Due to restrictions imposed by web browsers on network connections across domains, you would have to create a web proxy using one of the server-side programming languages to send a JavaScript HTTP request to our servers. More info.

Documentation:

<script>
<!--

var myxmlhttp;

doRequest();

function doRequest () {
	// REQUEST URL should be replaced by the URL you need to request
	// For example: http://www.websitetoolbox.com/tool/register/USERNAME/create_account
	var url = "REQUEST URL";
	myxmlhttp = CreateXmlHttpReq(resultHandler);

if (myxmlhttp) {
		XmlHttpGET(myxmlhttp, url);
	} else {
		alert("An error occured while attempting to process your request.");
		// provide an alternative here that does not use XMLHttpRequest
	}
}

function resultHandler () {
	// request is 'ready'
	if (myxmlhttp.readyState == 4) {
		// success
		if (myxmlhttp.status == 200) {
			alert("Success!");
			// myxmlhttp.responseText is the content that was received from the request
		} else {
			alert("There was a problem retrieving the data:\n" + req.statusText);
		}
	}
}

function CreateXmlHttpReq(handler) {
	var xmlhttp = null;

if (window.XMLHttpRequest) {
		xmlhttp = new XMLHttpRequest();
	} else if (window.ActiveXObject) {
		// users with activeX off
		try {
			xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
		} catch (e) {}
	}

if (xmlhttp) xmlhttp.onreadystatechange = handler;

return xmlhttp;
}

// XMLHttp send GEt request
function XmlHttpGET(xmlhttp, url) {
	try {
		xmlhttp.open("GET", url, true);

xmlhttp.send(null);
	} catch (e) {}
}

-->
</script>

ASP

<% ' Start out declaring our variables. ' You are using Option Explicit aren't you? Dim objWinHttp Dim strHTML ' New WinHTTP v5.1 - from MS: ' ' With version 5.1, WinHTTP is now an operating-system component ' of the following systems: ' - Microsoft Windows Server 2003 family ' - Microsoft Windows XP, Service Pack 1 ' - Microsoft Windows 2000, Service Pack 3 (except Datacenter Server) Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5") ' Full Docs: ' http://msdn.microsoft.com/library/en-us/winhttp/http/portal.asp ' ' If you have trouble or are getting connection errors, ' try using the proxycfg.exe tool. ' Here we get the request ready to be sent. ' First 2 parameters indicate method and URL. ' The third is optional and indicates whether or not to ' open the request in asyncronous mode (wait for a response ' or not). The default is False = syncronous = wait. ' Syntax: ' .Open(bstrMethod, bstrUrl [, varAsync]) ' REQUEST URL should be replaced by the URL you need to request ' For example: http://www.websitetoolbox.com/tool/register/USERNAME/create_account objWinHttp.Open "GET", "REQUEST URL" ' Send it objWinHttp.Send ' Print out the request status: Response.Write "Status: " & objWinHttp.Status & " " _ & objWinHttp.StatusText & "<br />" ' Get the text of the response. strHTML = objWinHttp.ResponseText ' Trash our object now that I'm finished with it. Set objWinHttp = Nothing %>