源码为:<%
add=request.QueryString("add")
aid=request.QueryString("aid")
bid=request.QueryString("bid")
cid=request.QueryString("cid")
if add="确认修改" then
if add="" or aid="" or bid="" or cid="" then
msg="error~~~~"
else
set rs=server.createobject("adodb.recordset")
sql="select * from [dclass],[einfo] where dclass.d_aclass="&aid&" and einfo.e_cclass="&cid&" and dclass.d_id=einfo.e_dclass"
rs.open sql,conn,1,1
do while not rs.eof
vl=request(rs("d_name"))
sql="insert into einfo(e_name) values('"&vl&"') "
rs.movenext
loop
conn.execute(sql)
msg="修改成功!"
end if
end if
%>
提交表单后,显示修改成功但是数据库中的数据没有更新~