将数据库中的数据按照规定输出到TEXT文件里.文本文件中每一行代表一条数据记录。高分求教!
---------------------------------------------------------------
FSO
---------------------------------------------------------------
先从数据库中把数据读出,然后用fso的writeline方法写入文本就可以,当然这样如果你的数据量很大的话,就不是很理想的了,不过你可以先把它负给一个变量,然后对变量进行处理,最后在用write方法写入,可能会好点!
---------------------------------------------------------------
Set fso = Server.Createobject("FileSystemObject")
Set MyTextFile = fso.CreateTextFile(fPath, True)
If (Not rec.EOF) Then
Do While (Not rec.EOF)
tempstr = "一条记录"
MyTextFile.WriteLine (tempstr)
rec.MoveNext
Loop
End If
---------------------------------------------------------------
数据量再大也可以。
1)先从数据库中把数据读出记录,保存到变量中:
val1=rs("field1")
val2=rs("field2")
...
valn=rs("fieldn")
2)然后用fso的writeline方法写入文本文件:
1
2Set AFileSystemObject = CreateObject("Scripting.FileSystemObject")
3Set ATextStream = AFileSystemObject.CreateTextFile("C:\test\test.txt",true)
4ATextStream.WriteLine(val1)
5ATextStream.WriteLine(val2)
6...
7ATextStream.WriteLine(valn)
8ATextStream.Close
9on error resume next
10if err<>0 then
11Response.write "错误:"&err.Description
12else
13Response.write "数据库写入完毕!"
14end if