I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
edoweb
edoweb
il 3 maggio 2004 alle 18:52
16 messaggi dal 03 gennaio 2002
Ho provato in questo modo ma non mi viene passato nemmeno il primo parametro di controllo (id).

Ho cercato qualcosa su xmldocument e webclient, ma si fa riferimento sempre a documenti xml, mentre io devo passare una stringa tramite post.

Ho proprio bisogno di aiuto.


<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" debug="true" trace="true" %>

<%@ Import Namespace="System.Xml.XmlDocument" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Xml.Xsl" %>
<%@ Import Namespace="System.Xml.XPath" %>
<%@ import namespace="System.Net" %>
<%@ import namespace="System.IO" %>
<%@ import namespace="System.Text" %>
<%@ import namespace="System.Net.HttpWebRequest" %>

<script runat="server">

Sub Page_Load()

Dim Access, Ship, MyRequest, xmlHTTP , result
Dim XMLReq As Object

XMLReq = CreateObject("MSXML2.ServerXMLHTTP")
MyRequest = "id=89025555&currencycode=978&password=test&action=4&amt=100&langid=USA&responseURL=http://81.75.4.43/Colors/Receipt.asp&errorURL=http://81.75.4.43/Colors/Error.asp&trackid=pap&udf1=AA&udf2=BB&udf3=CC&udf4=DD&udf5=EE"
XMLReq.open("POST", "http://test4.constriv.com:80/cg301/servlet/PaymentInitHTTPServlet", False)
XMLReq.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
XMLReq.send(MyRequest)
result = XMLReq.responseText
trace.warn("result=",result)

end sub

</script>

<html>
<head>
<title>Gestore Banca</title>
</head>
</html>
RispondiQuoting
Ricciolo
Ricciolo
il 4 maggio 2004 alle 09:51
5.774 messaggi dal 26 febbraio 2001
Contributi
blogs.aspitalia.com | Blog
Non usare oggetti COM, quella è una tecnica asp. Usa le classi managed del framework.

Guarda qua
http://www.aspitalia.com/liste/usag/script.aspx?ID=584

Lì usa il metodo UploadFile, in alternativa puoi usare OpenWrite che ti dà uno stream sulla quale puoi scrivere quello che vuoi (la tua stringa).
C'è un post poco più indietro dove faccio un esempio, guarda...

Ciao

Il mio blog
Homepage
RispondiQuoting
edoweb
edoweb
il 4 maggio 2004 alle 10:44
16 messaggi dal 03 gennaio 2002
Ciao, sei gentilissimo ma non esiste qualche esempio in VB?

Il sito è ok?
A me chiede continuamente il Login e non riesco a visualizzare gli script, riesco solo ad usare il forum.

Ciao
RispondiQuoting
Daniele Bochicchio
Daniele Bochicchio
il 4 maggio 2004 alle 11:07
15.593 messaggi dal 31 agosto 1998
Contributi
daniele.aspitalia.com | Blog
edoweb ha scritto:
Il sito è ok?
A me chiede continuamente il Login e non riesco a visualizzare gli script, riesco solo ad usare il forum.

quando fa così, ti basta fare un logout ed un nuovo login, perchè per qualche ragione s'è perso il cookie di autenticazione.
Daniele Bochicchio | ASPItalia.com | Libri
Chief Operating Officer@iCubed
Microsoft Regional Director & MVP
RispondiQuoting
edoweb
edoweb
il 4 maggio 2004 alle 14:26
16 messaggi dal 03 gennaio 2002
Ho provato con un esempio adattato da MSDN, ma pur non avendo errori non mi ritorna alcun risultato mentre io passo sia l'url che la stringa.

Cosa non ho messo????



<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" debug="true" trace="true" %>

<%@ Import Namespace="System.Net" %>
<%@ import namespace="System.IO" %>

<script runat="server">

Sub Page_Load()

Dim uriString As String
'Console.Write(ControlChars.Cr + "Please enter the URI to post data to : ")
uriString = "http://test4.constriv.com:80/cg301/servlet/PaymentInitHTTPServlet"
'Console.WriteLine(ControlChars.Cr + "Please enter the data to be posted to the URI {0}:", uriString)
Dim postData As String = "currencycode=978&id=89025555&password=test&action=4&amt=100&langid=USA&responseURL=http://81.75.4.43/Colors/Receipt.asp&errorURL=http://81.75.4.43/Colors/Error.asp&trackid=pap&udf1=AA&udf2=BB&udf3=CC&udf4=DD&udf5=EE"
' Apply ASCII encoding to obtain an array of bytes.
Dim postArray As Byte() = Encoding.ASCII.GetBytes(postData)
' Create a new WebClient instance.
Dim myWebClient As New WebClient()
'Console.WriteLine("Uploading to {0} ...", uriString)
Dim postStream As Stream = myWebClient.OpenWrite(uriString, "POST")
postStream.Write(postArray, 0, postArray.Length)
' Close the stream and release resources.
postStream.Close()
'Console.WriteLine(ControlChars.Cr + "Successfully posted the data.")

end sub

</script>
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.