J'ai une petit problem que je n'arrive pas à resoudre:
J'ai actuellement un tableau ayant cette arborecense :
Theme
|---Operations
|---Agents
En clair lorsque que l'on clique sur thème, on affiche les opérations qui en font partis.
Pour le moment je rafraichis entierement la page et je me sert de parametres passés à l'url pour afficher ce qui m'interesse.
J'aimerais donc passer via un objet xhr, pour me permettre d'ouvrir plusieurs thème à la fois et surtout pour ne pas avoir a rescroller jusqu'au theme en question ( j'ai prés de 1000 opérations.).
Pour le moment j'ai fait une fonction du genre :
function GetOperation(url)
{
var xhr_object = null;
var toto="";
alert(url)
if(window.XMLHttpRequest) // Firefox
xhr_object = new XMLHttpRequest();
else if(window.ActiveXObject) // Internet Explorer
xhr_object = new ActiveXObject("Microsoft.XMLHTTP");
else
{ // XMLHttpRequest non supporté par le navigateur
alert("Votre navigateur ne supporte pas les objets XMLHTTPRequest... ,veuillez activez javascript ou contacté une personne compétente.");
return;
}
xhr_object.open("GET", url, true);
xhr_object.onreadystatechange = function attente()
{
if(xhr_object.readyState == 4)
{
toto=(xhr_object.responseText);
document.write (toto);
}
}
xhr_object.send(null);
return;
}
et mon code asp :
unction GetThemeList()
Set oConnx = Server.CreateObject("ADODB.CONNECTION")
oConnx.Open BD_05
Set oRsLstReq = Server.CreateObject("ADODB.RECORDSET")
oRsLstReq.Open "SELECT * FROM THEME ORDER BY THEME_LIB", oConnx
Response.Write" <h2>Gestion des themes</h2>"&vbCrLf
Response.Write" <div id=""decalage"">"&vbCrLf
Response.Write" <table>"&vbCrLf
Response.Write" <tr>"&vbCrLf
Response.Write" <th>Intitulé.</th>"&vbCrLf
If Session("chef") Then
Response.Write" <th>Modification</th>"&vbCrLf
Response.Write" <th>Suppression</th>"&vbCrLf
Else
Response.Write"<th></th><th></th>"
End If
Response.Write" </tr>"&vbCrLf
If bChef Then
Response.Write " <tr class=""bg""><td class=addTheme><a href=""operation2.asp?vue=operation&action=1"">Ajouter un nouveau theme.</a></td><td></td><td></td>"&vbCrLf
End If
If Not oRsLstReq.EOF then
Do While Not oRsLstReq.EOF
'If bBg Then
sTemp = " class=""bg"""
' bBg = false
'Else
' sTemp = " class=""bg1"""
' bBg = true
'End If
With Response
.write" <tr"&sTemp&">"&vbCrLf
'Ici se trouve la ligne qui nous interresse :
.write" <td class=""theme"" onclick=GetOperation(""/include/js/request.asp?vue=operation&action=20&themeid="&oRsLstReq("THEME_ID")&""");><a href=""operation2.asp?vue=operation&action=20&themeid="&oRsLstReq("THEME_ID")&"#this"">"&oRsLstReq("THEME_LIB")&"</a></td>"&vbCrLf
If bChef Then
.write" <td class=""modifTheme""><a href=""operation2.asp?vue=operation&action=3&themeid="&oRsLstReq("THEME_ID")&"#bottom"">Modifier</a></td>"&vbCrLf
.write" <td class=""deleteTheme""><a href=""operation2.asp?vue=operation&action=5&themeid="&oRsLstReq("THEME_ID")&"#bottom"">Supprimer</a></td>"&vbCrLf
Else
.write" <td></td><td></td>"
End If
.write" </tr>"&vbCrLf
End with
oRsLstReq.MoveNext
Loop
End If
oRsLstReq.Close
Set oRsLstReq = Nothing
oConnx.Close
Set oConnx = Nothing
Response.Write " </table>"&vbCrLf
Response.Write " </div><br />"&vbCrLf
End Function
Et mon fichier Request.asp :
Response.write ("test")
'Et on traite les parametres passer par l url.
Cela ne fonctionne pas, la page reste blanche.
Je me suis servis d'un tutos trouvé sur le net car je n'y connais vraiment rien en javascript.
Je pense que je ne fait pas cela de la bonne manière, quelqu'un peut-il m'éclairer?
Merci
