Eseguire l'asp usando ajax

**omnialatino** · 17-10-2007, 14:59

Ciao a tutti, vorrei sapere come posso far eseguire del codice asp usando l'inclusione dinamica di ajax... in pratica dalla prima inclusione richiamo la seconda, ma nel momento in cui la richiamo deve anche eseguire un'operazione in asp quindi la seconda incusione restituisce del codice html elaborato in asp. Come si fa??

**pietro09** · 17-10-2007, 15:09

Originariamente inviato da omnialatino
Ciao a tutti, vorrei sapere come posso far eseguire del codice asp usando l'inclusione dinamica di ajax... in pratica dalla prima inclusione richiamo la seconda, ma nel momento in cui la richiamo deve anche eseguire un'operazione in asp quindi la seconda incusione restituisce del codice html elaborato in asp. Come si fa??

:master: ma scusa, che cosa è codesta inclusione? inclusione prima e inclusione seconda?

VVoVe:

**omnialatino** · 17-10-2007, 15:20

Originariamente inviato da pietro09

:master: ma scusa, che cosa è codesta inclusione? inclusione prima e inclusione seconda?

VVoVe:

Hai ragione... non riesco mai a spiegarmi bene

Ora posto il codice per rendere più chiaro il concetto:

codice:

<html xmlns="http://www.w3.org/1999/xhtml">
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
		<title>Untitled Document</title>
		<script src="jquery-latest.js" type="text/javascript"></script>
		<script type="text/javascript">
			function load(id,voto) {
				$("#contentArea").load("voto.asp?id="+id+"&voto="+voto+"");
			}
		</script>
    </head>
	<body>
        <div id="contentArea">
<%	id = Request.QueryString("id")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/articoli.mdb") & ";Jet OLEDB:Database"	

Set RS = Server.CreateObject("ADODB.Recordset")
Sql = "select * from articoli WHERE id="& id
RS.Open Sql, Conn
	
Media_Voti = RS("Media_Voti")
Voti = RS("voti")

nomeSession = "votato" & id
If Session(nomeSession) <> True Then
	For s = 1 to 5
		If Clng(Media_Voti) > (s - 0.30) Then %>
			<img onclick="javascript:load(<%=id%>,<%=s%>);" alt="<%=s%>" name="<%=s%>" src="pictures/star.jpg"> <%
		ElseIf Clng(Media_Voti) <= (s - 0.30) And Clng(Media_Voti) >= (s - 0.80) Then %>
			<img onclick="javascript:load(<%=id%>,<%=s%>);" alt="<%=s%>" name="<%=s%>" src="pictures/starhalf.jpg"> <%
		ElseIf Clng(Media_Voti) < (s - 0.80) Then %>
			<img onclick="javascript:load(<%=id%>,<%=s%>);" alt="<%=s%>" name="<%=s%>" src="pictures/stargrey.jpg"> <%
		End If
	Next
Else
	For s = 1 to 5
		If Clng(Media_Voti) > (s - 0.30) Then %>
			<img alt="<%=s%>" name="<%=s%>" src="pictures/star.jpg"> <%
		ElseIf Clng(Media_Voti) <= (s - 0.30) And Clng(Media_Voti) >= (s - 0.80) Then %>
			<img alt="<%=s%>" name="<%=s%>" src="pictures/starhalf.jpg"> <%
		ElseIf Clng(Media_Voti) < (s - 0.80) Then %>
			<img alt="<%=s%>" name="<%=s%>" src="pictures/stargrey.jpg"> <%
		End If
	Next
End If
Response.Write( " (" & Voti & " voti)")

RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
		</div>
    </body>
</html>

codice:

<%
id = Request.QueryString("id")
newVoto = Request.QueryString("voto")

If newVoto > 5 Then
	newVoto = 5
Elseif newVoto < 1 Then
	newVoto = 1
Elseif Len(CInt(newVoto)) <> 1 Then
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/articoli.mdb") & ";Jet OLEDB:Database"	
	
	Set RS = Server.CreateObject("ADODB.Recordset")
	Sql = "select * from articoli WHERE id="& id
	RS.Open Sql, Conn
		
	Media_Voti = RS("Media_Voti")
	Voti = RS("voti")
	
	Voto_Intero =  CDbl(Media_Voti * Voti) + newVoto
	Voti = CInt(Voti) + 1
	Media_Voti = Voto_Intero / Voti


	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open Sql, Conn, 3, 3
		RS("Voti") = Voti
		RS("Media_Voti") = Media_Voti
	RS.Update
	
	RS.Close
	Set RS = Nothing
	Conn.Close
	Set Conn = Nothing
	
	nomeSession = "votato" & id
	Session(nomeSession) = True
	For s = 1 to 5
		If Clng(Media_Voti) > (s - 0.30) Then %>
		    <img alt="<%=s%>" name="<%=s%>" src="pictures/star.jpg"> <%
		ElseIf Clng(Media_Voti) <= (s - 0.30) And Clng(Media_Voti) >= (s - 0.80) Then %>
		    <img alt="<%=s%>" name="<%=s%>" src="pictures/starhalf.jpg"> <%
		ElseIf Clng(Media_Voti) < (s - 0.80) Then %>
			<img alt="<%=s%>" name="<%=s%>" src="pictures/stargrey.jpg"> <%
		End If
	Next
	Response.Write( " (" & Voti & " voti)")
End If
%>

Ah ovviamente il primo codice richiama il secondo per esser sostituito da quest'ultimo

**pietro09** · 17-10-2007, 15:27

ascolta, prova a guardare il codice di sotto: è fatto per capire quanto sia semplice ajax. Uso prototype.js

codice:

<%@ Language=VBScript %>
<%
	option explicit
	
	Response.Buffer = true
	
	onload

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>Pagina senza titolo</title>

    <link href="../../../stili/Styles.css" rel="stylesheet" type="text/css" />

    <script type="text/javascript" src="../../../js/prototype.js"></script>
    
<script language="javascript" type="text/javascript">
<!--

function Button1_onclick() 
{
    var url_action = "?comando_ajax=1";
    var parametri = "Text1=" + encodeURIComponent($("Text1").value)
                + "&" + "Text2=" + encodeURIComponent($("Text2").value);

    
    new Ajax.Request(url_action, {onComplete:showResponse, parameters:parametri} );
    function showResponse(originalRequest)
    {
        var t = originalRequest.responseText;
        var ts = t.split("|");
	    $("span1").innerHTML = ts[0];
	    $("span2").innerHTML = ts[1];
    }

}

// -->
</script>
</head>
<body>
    <div>Scrivi qualcosa nei textbox e fai la richiesta al server</div>
    <input id="Text1" type="text" /><span id="span1"></span>

    <input id="Text2" type="text" /><span id="span2"></span>

    <input id="Button1" type="button" value="fai la richiesta al server" onclick="return Button1_onclick()" />
</body>
</html>
<%
sub onload()
    dim comando_ajax
    
    comando_ajax = Request("comando_ajax")
    if(comando_ajax = "1") then
        ajax1
    end if

end sub

sub ajax1()
    dim Text1, Text2
    
    Text1 = request.Form("Text1")
    Text2 = request.Form("Text2")
    
    dim result
    
    result = "Text1 = " + Text1 & "|" & "Text2 = " + Text2
    
    response.Write(result)
    
    response.End
    
    
end sub


%>

**omnialatino** · 17-10-2007, 15:42

Pietro grazie, ora me la studio un pò e vedo se riesco a implementarla con ciò che mi serve...ti faccio sapere

**omnialatino** · 17-10-2007, 16:37

Che casino!!!
Qualche esempio meno complicato non c'è? Sto impazzendo!!!

**pietro09** · 17-10-2007, 16:39

Originariamente inviato da omnialatino
Che casino!!!
Qualche esempio meno complicato non c'è? Sto impazzendo!!!

più semplice?

dove è il problema?

**omnialatino** · 17-10-2007, 16:44

In pratica io devo far eseguire il codice che ho inserito nel primo post, ma visto che ancora non sono molto pratico con JavaScript non so bene come modificarlo

**pietro09** · 17-10-2007, 16:44

non so se si capisca. :master: L'obiettivo è:

passare tre parametri al server

il primo, comando_ajax=1 gli dice cosa fare

gli altri due Text1 e Text2 sono passati solo per fare vedere come fare.

Il server restituisce due informazioni. Una stringa con le informazioni separate da |

una volta separate le informazioni con split, metto il risultato in span1 e span2

**pietro09** · 17-10-2007, 16:45

io faccio un esempio, ma la modifica la devi fare tu

Discussione: Eseguire l'asp usando ajax

Strumenti discussione

Ricerca discussione

Visualizza

Eseguire l'asp usando ajax

Re: Eseguire l'asp usando ajax

Re: Re: Eseguire l'asp usando ajax

Permessi di invio