Non riesco a capire come funziona inet: ho provato a seguire l'articolo di sebamix(http://www.planetsourcecode.com/vb/...=31390&lngWId=1 ), ma non mi funziona (nel caso del programma descritto nell'articolo mi compare sempre il messaggio "Unknown Response").
Qualcuno mi potrebbe spiegare in breve come funziona o più in particolare come posso utilizzarlo per inviare ad una pagian asp due variabili utilizzando il meotdo post?
Vi prego... aiutatemi!
Se ti risponde "Unknow response" significa che la stringa che ti arriva non è riconosciuta.
I casi possono essere molti...
sei sicuro che l'URL della pagina che richiami sia corretta? Il server potrebbe rimandarti il codice HTML della pagina di errore 404 o la pagina ASP stessa potrebbe generare un errore (quindi invece di arrivarti "to_app" o "ok" o qualsiasi cosa tu abbia deciso di mettere ti arriva una stringa con l'errore.
Per fare un po' di debug ti suggerisco di sostituire
msgbox "Unknow response"
Con
msgbox strTemp
Così vedi esattamente quello che ti arriva.
Poi magari posta il codice che magari lo hai modificato.
Ho provato a fare come mi hai scritto e il messaggio che mi appare è:
<html>
<head>
<title>Prova di richiesta della domanda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<font face="Arial" size=2>
Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a01b6'</font>
<font face="Arial" size=2>Object doesn't support this property or method: 'form2'</font>
<font face="Arial" size=2>/scl/rkdom2.asp</font><font face="Arial" size=2>, line 9</font>
Il codice del form è:
Private Sub Command1_Click()
Dim strUrl As String
Dim strFormData As String
'Suppose that the version of our app is “A”
strFormData = "Version=A&Key=123ABC"
strUrl = "www.donatelli-pascal.com/scl/rkdom2.asp"
Inet1.url = strUrl
Inet1.Execute strUrl, "POST", strFormData, _
"Content-Type: application/x-www-form-urlencoded"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strTemp As String
If State = 12 Then 'If operation is completed
strTemp = Inet1.GetChunk(32000)
strTemp = Trim(strTemp)
If strTemp = "to_app" Then
MsgBox "You must update the application!"
ElseIf strTemp = "ok" Then
MsgBox "No updates aviable"
Else
MsgBox strTemp
End If
End If
End Sub
Cosa c'è che non va? :bubu:
C'è un errore nella riga 9 della pagina ASP
Microsoft VBScript runtime error '800a01b6'<body>
<font face="Arial" size=2>
Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a01b6'</font>
<font face="Arial" size=2>Object doesn't support this property or method: 'form2'</font>
<font face="Arial" size=2>/scl/rkdom2.asp</font><font face="Arial" size=2>, line 9</font>
Object doesn't support this property or method: 'form2'
/scl/rkdom2.asp, line 9
Quindi se non sai come correggerlo posta il codice della pagina ASP che poi ti sposto nel forum ASP perchè qui si comincia a essere OT
:bubu:
Ho corretto il problema e ora però mi sembra che non mi torni indietro la stringa, in quanto il messaggio adesso è:
<html>
<head>
<title>Prova di richiesta della domanda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
to_app
</body>
</html>
dalla pagina asp devi rimuovere tutto il codice HTML e fare in modo che scriva solo "to_app" o "ok"
Controlla anche che non ci siano response.write che scrivono qualcosa di diverso...
Grazie tantissimo del tuo aiuto... ora funziona.
Non è che mi potresti rispondere anche ad un altro paio di domande relative a: strFormData = "Version=A&Key=123ABC" .
1- Come posso fare in modo che il campo Version ad esempio, riporti il valore contenuto in un textbox? Ho provato e non mi funziona Semplicemente usando "Version=txt1".
2- Come posso passare altri valori oltre a Version? Basta la & o devo usare altri metodi.
Sono riuscito a farcela da solo.
Grazie tantissimo di tutto
Permessi di invio
Rispondi quotando