The maximum amount of time for a script to execute was excee
salut,
bon en fait j'ai un probleme assez genant dans la conception de mon site. Dans l'entreprise ou je travaille, je succede à un autodidacte qui a choisi, pour un site de jeu de faire un BASE par jeu, et on me demande de chercher dans chaque Bases le score éventuel de chaques membres, j'ai donc essayé de faire une sorte de tables intermediaire (hashtable si on veut) ou on va entrer toutes les bases crées, je fais un compte dessus, ensuite, toutes les bases sont nomées base1 pour le jeu 1, base2 pour le jeu 2, etc.... et donc par concatenation de chaine je fais une boucle pour acceder à chacune d'entre elle, le probleme c qu'apparemment je dépasse le temps prévu pour l'execution du script sur le serveur, donc je voudrais savoir si qq'1 à une idée de code plus efficace parce que là je suis censé lister toutes les Bases et pour l'instant il n'y a que 48 Basesvoici mon code:
<%
Dim Conn2, connstring2
Dim Conn, connstring
Set Conn = server.createobject("ADODB.connection")
connstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="&server.MapPath("/data/Based1.mdb")
' ouverture de la connexion
Conn.open connstring
'requete pour compter le nombre de jeu deja créé ainsi que leur nom
SQLR = "Select count(*) as cpt FROM Jeux"
set RS = server.CreateObject("ADODB.Recordset")
RS.Open SQLR, Conn
'requete pour compter le nombre de jeu deja créé ainsi que leur nom
SQLR1 = "Select nom FROM Jeux"
set RS2 = server.CreateObject("ADODB.Recordset")
RS2.Open SQLR1, Conn
i = 1
%>
<html>
<body>
<%
While not RS2.eof
While (i <> RS("cpt"))
Set Conn2 = server.createobject("ADODB.connection")
connstring2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="&server.MapPath("/data/Base" & i & ".mdb")
Conn2.Open connstring2
'requete pour compter le nombre de jeu deja créé ainsi que leur nom
SQLR = "Select temps FROM base where email='" & session("Email") &"'"
set RS1 = server.CreateObject("ADODB.Recordset")
RS1.Open SQLR, Conn2
IF not RS1.eof THEN
%>
Pour le jeu <%= RS2("nom")%> Votre Temps est <%=RS1("temps") %><br>
<%
END IF
RS2.movenext
i= i+1
Wend
wend
RS.CLose
RS1.Close
RS2.Close
Conn1.Close
Conn2.Close
Set Conn = nothing
%></body>
</html>
Répondre avec citation
Partager