您所在位置：主题：asp复制记录代码（高手帮忙）
liurr_1
[专家分：0] 发布于 2008-05-27 22:38:00
帮我看看这段代码哪里不对?谢谢
<%
bj=Trim(Request.Form("bj"))
xq=Trim(Request.Form("xq"))
km=Trim(Request.Form("km"))
set rs1= Server.CreateObject("adodb.recordset")
set rs2= Server.CreateObject("adodb.recordset")
rs1.open "select * from student WHERE ClassID IN (SELECT ID FROM Class WHERE name = '"& bj &"')",conn,1,1
rs2.open "select * from student_cj",conn,1,3
do while not rs1.eof
rs2.addnew
rs2("class")=bj
rs2("xueqi")=xq
rs2("sno")=rs1("sno")
rs2("name")=rs1("name")
rs2("kemu")=km
rs2.update
rs1.movenext
loop
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
conn.close
set conn=nothing
%>
<%
bj=Trim(Request.Form("bj"))
xq=Trim(Request.Form("xq"))
km=Trim(Request.Form("km"))
set rs1= Server.CreateObject("adodb.recordset")
set rs2= Server.CreateObject("adodb.recordset")
rs1.open "select * from student WHERE ClassID IN (SELECT ID FROM Class WHERE name = '"& bj &"')",conn,1,1
rs2.open "select * from student_cj",conn,1,3
do while not rs1.eof
rs2.addnew
rs2("class")=bj
rs2("xueqi")=xq
rs2("sno")=rs1("sno")
rs2("name")=rs1("name")
rs2("kemu")=km
rs2.update
rs1.movenext
loop
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
conn.close
set conn=nothing
%>
