asp问题 关于数据互导?

来源:百度知道 编辑:UC知道 时间:2024/05/27 23:03:38
<!--#include file="conn.asp"-->
<%Server.ScriptTimeOut=10000000000000000000000 %>
<%
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="select * from lyb"
sql1="select * from main"
sql2="select * from reply"
rs.open sql,conn,1,1
rs1.open sql1,conn,1,3
rs2.open sql2.conn,1,3

while not rs.eof
rs1.addnew
rs1("id")=rs("id")
rs1("name")=rs("name")
rs1("article")=rs("ly")
rs1("logdate")=rs("sj")
rs1("lastupdated")=rs("sj")
rs1("faceid")=1
rs1("guestflag")=1
rs1("replied")=1
rs1.update
rs2.addnew
rs2("articleid")=rs("id")
rs2("replydat

试试这样:

<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
sql="select * from lyb"
sql1="select * from main"
sql2="select * from reply"
rs.open sql,conn,1,1
rs1.open sql1,conn,1,3
rs2.open sql2.conn,1,3

while not rs.eof
rs1.addnew
rs1("id")=rs("id")
rs1("name")=rs("name")
rs1("article")=rs("ly")
rs1("logdate")=rs("sj")
rs1("lastupdated")=rs("sj")
rs1("faceid")=1
rs1("guestflag")=1
rs1("replied")=1
rs1.update
rs2.addnew
rs2("articleid")=rs("id")
rs2("replydate")=rs("