ciao a tutti,
devo inviare dati a un sito esterno con javascript.
La mia funzione funziona solo se l'url è dello stesso dominio, per url esterni mi da accesso negato.
Visto che con uno script VB ci riesco volevo sapere due cose:
1) se era possibile farlo anche con javascript
2) se fatto con VB è portabile come se fosse fatto in javascript
<script language="javascript" type="text/javascript" >
var req ;
function inviaDati1()
{
url="http://localhost:1064/riceviDati/Default.aspx?a=fr&b=al";
// XMLHttpRequest native object (Mozilla)
if (window.XMLHttpRequest) { req = new XMLHttpRequest(); }
else
// ActiveX version (IE/Windows)
if (window.ActiveXObject) { req = new ActiveXObject("Microsoft.XMLHTTP"); }
try
{
req.onreadystatechange = processReqChange;
req.open("GET", url, true);
req.send(null);
}
catch (e) { alert("Errore: "+e); }
}
function processReqChange() {
// controlla che lo stato sia “completed”
if (req.readyState == 4) {
// solo se la risposta è "OK"
if (req.status == 200) {
alert(req.responseText);
} else {
alert("Si sono verificati dei problemi lato server:\n" + req.statusText);
}
}
}
</script>
Ecco la versione in VB che mi funziona correttemente
<script type="text/vbscript" language="javascript" >
dim obj
function inviaDati()
url="http://localhost:1064/riceviDati/Default.aspx?a=uno&b=due"
set obj=createObject("Microsoft.XMLHTTP")
obj.onreadystatechange=getRef("state_Change")
call obj.open("GET",url,true)
call obj.send()
end function
function state_Change()
if obj.readyState=4 then
if obj.status=200 then
else
alert("Problem retrieving XML data:" & obj.statusText)
end if
end if
end function
</script>
Rispondi quotando
