Question

asp do while 多个循环问题？

我想用 do while 来循环建立文件。
查询access数据库记录，每1000条记录写入一个txt文件内。
第一个文件名为1.txt，第二个为2.txt，依次类推~
应该怎么循环~？
do while not rs.eof
Set Writefile = fso.CreateTextFile(filepath,true)
Writefile.WriteLine rs("Title")&","&server.HTMLEncode(Ars("Content"))
rs.movenext
Loop

Answer 1

单独写个函数，比如string getFile（int cur_row)
{
dim fileName
dim i
//判断cur_row 是多少行，生成对应文件名
i = int (cur_row /1000)
if (i=0) then
fileName= "1.txt";
else
fileName = i+".txt"
end if
return fileName
}

循环中调用函数，判断是哪个文件，然后open文件，然后写入即可。

Answer 2

i=1
do while not rs.eof
if i mod 1000 = 1 then
filepath=server.mappath((i\1000+1) & ".txt")
Set Writefile = fso.CreateTextFile(filepath,true)
end if
Writefile.WriteLine rs("Title") & "," & server.HTMLEncode(rs("Content"))
rs.movenext
if i mod 1000 = 1 then Writefile.close
i=i+1
Loop
if i mod 1000 <> 2 then Writefile.close
set Writefile=nothing