asp循环读取表的所有字段，并写入另一张表。

你要求的细节不明确，很难回答。

如果是将原数据库中表的全部数据导入到新数据库，则采用数据表复制：

select

*

into

数据库名.新表名

from

旧数据库名.旧表

如果是将原数据库中表的结构导入到新数据库，即只要字段名，不要数据，则可以这样写：

select

*

into

数据库名.新表名

from

旧数据库名.旧表

where

1=0

如果是将原数据库中表的部分数据导入到新数据库，而且新旧表的结构不完全一致，这个就比较麻烦了，需要在新表原结构基础上插入旧表的列：

for

i=0

to

rs1.fields.count-1

conn.execute("ALTER

TABLE

数据库名.新表名

ADD"

&

rs1.fields(i).name)

…………………………

next具体写法可以参考上面的思路。

<%

SK.Wk lj = new SK.Wk()

System.Data.DataTable dt = lj.Loa()

int i = 0

while(i <dt.Count - 1)

{

%>

<%=tc["title"] %><br />

<%

i++

}

%>

改成如下这样应该就可以了

dim rs,sql

i_count = 0

set rs = server.createobject("adodb.recordset")

sql="select * from Navigation where ViewFlag order by Sequence asc"

rs.open sql,conn,1,1

if rs.bof and rs.eof then

response.write "暂无导航"

else

do while not rs.eof

ReDim Preserve NavName(i_count) '动态定义数组个数

NavName(i_count) = rs("NavName") '赋值给数组

i_count = i_count + 1

rs.movenext

loop

end if

rs.close

set rs=nothing

if IsArray(NavName) then

response.write "是数组"

else

response.write "不是数组"

end if

---