将数据写到文本你

[cooc123]

	SQL = "SELECT * FROM NC_FlashList"
	Set Rs = CreateObject("ADODB.Recordset")
	Rs.open SQL,Conn,1,3
	Rs.pagesize=1000

我要将NC_FlashList 表的第一个字段 rs(0) 数据写入到文本里

但每个文本 只能写入 1000条记录

假如有10000条记录，那就要将10000条记录 写入到 10个文本你

这个代码怎么写？

[cooc123]

怎么没人顶啊。。。。。。。。。。。。。。

[php_wsd]

http://www.aspprogram.cn/detail.asp?id=163
这里有一个fso写入html的例子，你修改一下

[jizhikuan]

你可以用一个for循环，来做这个，数据量大建议用存储过程来做分页

dim i,conn,sql,rs
sql="select field frm tablename";
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(数据源)
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
'判断下有没有数据
If rs.Eof Then
'提示
Response.End()
End If
rs.PageSize =1000
For i=1 To rs.PageCount
rs.AbsolutePage = i
'下面就是你要写入文本代码了
Next

[jizhikuan]

dim p_Index
p_Index=1000
For i=1 To rs.PageCount
rs.AbsolutePage = i
'下面就是你要写入文本代码了
Do While Not rs.Eof And p_Index>0
调用你的方法
p_Index = p_Index-1
rs.MoveNext
Loop
Next

[cooc123]

[Quote=引用 4 楼 jizhikuan 的回复:]
dim p_Index
p_Index=1000
For i=1 To rs.PageCount
rs.AbsolutePage = i
'下面就是你要写入文本代码了
Do While Not rs.Eof And p_Index>0
调用你的方法
p_Index = p_Index-1
rs.MoveNext
Loop
Next
[/Quote]

哪种好点呢