Bonjour à tous,
je suis un débutant en ajax et j'essaye d'envoyer une variable avec httpRequest.send mais je ne reçoit rien dans mon fichier asp ...
voici mon code :
-------------- Le fichier d'appel -----------------
------------- Le fichier asp ---------------------------
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60 <html> <head> <title>AJAX</title> <script type="text/javascript"> function writediv(texte) { document.getElementById('contenu').innerHTML = texte; } function verif() { var search = document.formu.search.value; texte = file('/test.asp',search); writediv(texte); } function file(fichier,valeur) { var httpRequest = false; if (window.XMLHttpRequest) { // Mozilla, Safari,... httpRequest = new XMLHttpRequest(); if (httpRequest.overrideMimeType) { httpRequest.overrideMimeType('text/xml'); // Voir la note ci-dessous à propos de cette ligne } } else if (window.ActiveXObject) { // IE try { httpRequest = new ActiveXObject("Msxml2.XMLHTTP"); } catch (e) { try { httpRequest = new ActiveXObject("Microsoft.XMLHTTP"); } catch (e) {} } } if (!httpRequest) { alert('Abandon :( Impossible de créer une instance XMLHTTP'); return false; } httpRequest.open("POST", fichier, false); httpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); httpRequest.send("&search="+escape(valeur)); if(httpRequest.readyState == 4) return(httpRequest.responseText); else return(false); } </script> </head> <body> <form name="formu" action=""> <input type="text" name="search" /> <input type="button" name="b1" value="ok" onClick="verif()" /> <div id="contenu" style="background-color: #00FF00"></div> </form> </body> </html>
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 <!--#include file="includes/odbc.inc"--> <!--#include file="includes/fonction.inc"--> <% set Conn = server.createobject("ADODB.Connection") Conn.open ODBC_SITE set Rs = server.createobject("ADODB.Recordset") Dim search search = Request("search") response.write "--" & search & "--</ br>" if search = "" then search = "rien" end if response.write "((" & search & "))</ br>" sql = "select * from appareil where Champ2 =" & setdatatype(search,advarchar) Rs.open sql, Conn, 3 while not Rs.eof response.write Rs("Champ1") & "-" & Rs("Champ3") & "</ br>" Rs.movenext wend Rs.close Conn.close set Rs = nothing set Conn = nothing %>
Partager