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 |
Partager