System.Net.HttpWebRequest-in classic asp?

Heres eine kleine helper-Funktion, die ich verwenden für die Herstellung von HTTP-Anfragen in die ASP. Seine in JScript, aber man sollte die Idee zumindest und einige Hinweise von einigen bösen gotcha ist, dass wir hatten zu Eisen über die Jahre.

<%

/*
   Class: HttpRequest
       Object encapsulates the process of making an HTTP Request.

   Parameters:
      url - The gtarget url
      data - Any paramaters which are required by the request.
      method - Whether to send the request as POST or GET
      options - async (true|false): should we send this asyncronously (fire and forget) or should we wait and return the data we get back? Default is false

   Returns:
      Returns the result of the request in text format.

*/

var HttpRequest = function( url, data, method, options  )
{
    options = options ? options : { "async" : false };
    options[ "async" ] = options["async"] ? true : false;

    var text = "";
    data = data ? data : "";
    method = method ? String( method ).toUpperCase() : "POST";

    //Make the request
    var objXmlHttp = new ActiveXObject( "MSXML2.ServerXMLHTTP" );
    objXmlHttp.setOption( 2, 13056 ); //Ignore all SSL errors

    try {
        objXmlHttp.open( method, url, options[ "async" ] ); //Method, URL, Async?
    }
    catch (e)
    {
        text = "Open operation failed: " + e.description;
    }

    objXmlHttp.setTimeouts( 30000, 30000, 30000, 30000 );   //Timeouts in ms for parts of communication: resolve, connect, send (per packet), receive (per packet)
    try {
        if ( method == "POST" ) {
            objXmlHttp.setRequestHeader( "Content-Type", "application/x-www-form-urlencoded" );
        }

        objXmlHttp.send( data );

        if ( options[ "async" ] ) {
            return "";
        }

        text = objXmlHttp.responseText;

    } catch(e) {
        text = "Send data failed: " + e.description;
    }

    //Did we get a "200 OK" status?
    if ( objXmlHttp.status != 200 )
    {
        //Non-OK HTTP response
        text = "Http Error: " + objXmlHttp.Status + " " + Server.HtmlEncode(objXmlHttp.StatusText) + "\nFailed to grab page data from: " + url;
    }

    objXmlHttp = null; //Be nice to the server

    return  text ;
}

%>

Wenn Sie speichern, die in eine Datei (namens httprequest.asp) die Sie verwenden können, es mit diesem code:

<%@ Language="JScript" %>
<!--#include file="httprequest.asp"-->
<%

var url = "http://www.google.co.uk/search";
var data = "q=the+stone+roses"; //Notice you will need to url encode your values, simply pass them in as a name/value string

Response.Write( HttpRequest( url, data, "GET" ) );

%>

Ein Wort der Warnung, wenn Sie einen Fehler wird es wieder die Fehlermeldung, keine Möglichkeit, zu fangen. Es tut gut für unsere Bedürfnisse, wenn wir brauchen etwas mehr Schutz, dann können wir eine benutzerdefinierte Funktion erstellen, um den Fehler ein wenig besser.

Hoffe, das hilft.

Ich denke, der Grund, warum die Async-version dieser Funktion arbeitet und vermeidet die "nicht senden" - Fehler, die hier diskutiert:

Wie kann ich Feuer einen asynchronen Aufruf in asp classic und ignorieren Sie die Antwort?

Ist, dass du nie freigeben des COM-Objekts in die Async-version - gut, dass es das problem behebt, schlecht, dass es Lecks große zeitliche Ressourcen.