Я не уверен, почему все другие отправляют решения ASP.NET, когда Вы конкретно сказали использование ASP "классик".
Что-то вроде этого должно работать. Я не написал код; я нашел его в другом месте. Но MSXML2. Объект ServerXMLHTTP - то, что Вы хотите использовать, если Вы не хотите покупать что-то коммерческое.
function getHTML (strUrl)
Set xmlHttp = Server.Createobject("MSXML2.ServerXMLHTTP")
xmlHttp.Open "GET", strUrl, False
xmlHttp.setRequestHeader "User-Agent", "asp httprequest"
xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
xmlHttp.Send
getHTML = xmlHttp.responseText
xmlHttp.abort()
set xmlHttp = Nothing
end function
Вы, возможно, должны были бы добавить некоторый код обработки ошибок к этому для использования в продуктивной среде. Я полагаю, что объект бросает ошибки, если это получает 404 или ошибку из-за тайм-аута. Необходимо будет "захватить" их стиль ASP (фу) установкой On Error Resume Next перед.Send и затем исследовать объект ошибки ASP видеть, была ли проблема.
Удачи!
Большинство страниц действия формы принимает данные как POST.
Function postFormData(url, data)
Dim xhr : Set xhr = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xhr.open "POST", url, false
xhr.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xhr.send Data
If xhr.Status = 200 Then
postFormData = xhr.ResponseText
Else
Err.Raise 1001, "postFormData", "Post to " & url & " failed with " & xhr.Status
End If
End Function
При создании кодирования URL данных необходим на значениях данных. Начиная с Сервера ГАДЮК. Метод URLEncode только соединяет кодирование каналом, и не кодирование компонента Вас должен заменить / символы с %2F
Function URLEncodeComponent(value)
URLEncodeComponent = Server.URLEncode(value)
URLEncodeComponent = Replace(URLEncodeComponent, "/", "%2F")
End Function
Можно сделать это многими путь. С WebClient
WebClient Client = new WebClient ();
Client.DownloadFile("http://www.stackoverflow.com/myfile.html", "myfile.html");
Или можно поместить данные в поток для использования его в программе:
WebClient Client = new WebClient ();
Stream strm = Client.OpenRead ("http://www.stackoverflow.com/myfile.htm");
, Но я действительно предпочитаю использование HttpWebRequest
:
HttpWebRequest objRequest = (HttpWebRequest)WebRequest.Create("http://www.stackoverflow.com/myfile.html");
StreamWriter myWriter = new StreamWriter(objRequest.GetRequestStream());
я предпочитаю второй, потому что у Вас может быть больше опции для POST/получать или для Cookie.
В .NET это - Система. Сеть. WebClient или Система. Сеть. HttpWebRequest.
Классик ASP имеет совершенно другой API - я не уверен, что Вы использовали бы вместо этого там.
[редактирование]
я подозреваю, что , если у классического asp есть кто-либо созданный в поддержке этого, это находится в объекте Сценариев, как так: CreateObject("Scripting.????")
Если Вы застреваете с классом ASP, можно сделать это с коммерческой библиотекой ASPHTTP здесь:
В ASP.NET это довольно просто:
HttpWebRequest r =
(HttpWebRequest)WebRequest.Create("http://www.google.com");
r.Method = "POST";
using (Stream stream = myRequest.GetRequestStream()) {
// Write data to stream
}
WebResponse resp = r.GetResponse();
// Do soemthing with the resp
Используйте класс, описанный здесь. Это - довольно хороший метод, и я использую все это время:
http://www.jigar.net/articles/viewhtmlcontent78.aspx
public class RemotePost{
private System.Collections.Specialized.NameValueCollection Inputs
= new System.Collections.Specialized.NameValueCollection() ;
public string Url = "" ;
public string Method = "post" ;
public string FormName = "form1" ;
public void Add( string name, string value ){
Inputs.Add(name, value ) ;
}
public void Post(){
System.Web.HttpContext.Current.Response.Clear() ;
System.Web.HttpContext.Current.Response.Write( "<html><head>" ) ;
System.Web.HttpContext.Current.Response.Write( string .Format( "</head><body onload=\"document.{0}.submit()\">" ,FormName)) ;
System.Web.HttpContext.Current.Response.Write( string .Format( "<form name=\"{0}\" method=\"{1}\" action=\"{2}\" >" ,
FormName,Method,Url)) ;
for ( int i = 0 ; i< Inputs.Keys.Count ; i++){
System.Web.HttpContext.Current.Response.Write( string .Format( "<input name=\"{0}\" type=\"hidden\" value=\"{1}\">" ,Inputs.Keys[i],Inputs[Inputs.Keys[i]])) ;
}
System.Web.HttpContext.Current.Response.Write( "</form>" ) ;
System.Web.HttpContext.Current.Response.Write( "</body></html>" ) ;
System.Web.HttpContext.Current.Response.End() ;
}
}
Использование это как:
RemotePost myremotepost = new RemotePost() ;
myremotepost.Url = "http://www.jigar.net/demo/HttpRequestDemoServer.aspx" ;
myremotepost.Add( "field1" , "Huckleberry" ) ;
myremotepost.Add( "field2" , "Finn" ) ;
myremotepost.Post() ;