Bonjour,
Question de performance et de sécurité:
Peut-on déclarer un objet recorset au début de la page ASP et le détruire à la fin de la page ou vaut-il mieux le déclarer et le détruire à chaque utilisation?
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
 
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn
 
Set rs = Server.CreateObject("ADODB.RecordSet")
 
Set fso = Server.CreateObject("Scripting.FileSystemObject")
.....
rs.open "table1",conn
do while not rs.eof
   fso.createfile(...)
   rs.movenext
loop
rs.close
.....
rs.open "table2",conn
do while not rs.eof
   fso.createfile(...)
   rs.movenext
loop
rs.close
.....
rs.open "table3",conn
do while not rs.eof
   fso.createfile(...)
   rs.movenext
loop
rs.close
.....
 
set fso=nothing
set rs=nothing
conn.close
set conn=nothing
ou
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
 
.....
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "table1",conn
do while not rs.eof
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   fso.createfile(...)
   Set fso = nothing
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn= nothing
.....
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "table2",conn
do while not rs.eof
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   fso.createfile(...)
   Set fso = nothing
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn= nothing
.....
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "table3",conn
do while not rs.eof
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   fso.createfile(...)
   Set fso = nothing
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn= nothing
merci d'avance