UC知道求高手进,ASP 复制一个字段到另一个字段
来源：百度知道 编辑：UC知道 时间：2024/05/24 06:50:46
我需要做一个ASP的页面.功能如下,请各位高手帮忙,本人很菜,希望高手能把代码写全一些.
ACCESS数据库,名为DATA.MDB,有两个表,一个是BIAO1(字段有:NAME,SEX),另一个是BIAO2(字段有:NAME,SEX,SHIJIAN).
需要做的是,读出BIAO1中NAME和SEX字段所有数据,然后写入到BIAO2中的NAME和SEX字段中,并在SHIJIAN字段中加入从前一个页面的表单传过来的数据,表单名为:SHIJIAN.
求高手帮我做出这个页面,我给最高分.
谢谢! 在线等.
朋友,可以把详细的代码写出来吗?麻烦了.
时间这一项是固定的,都是从上一页面传过来的值.
ACCESS数据库,名为DATA.MDB,有两个表,一个是BIAO1(字段有:NAME,SEX),另一个是BIAO2(字段有:NAME,SEX,SHIJIAN).
需要做的是,读出BIAO1中NAME和SEX字段所有数据,然后写入到BIAO2中的NAME和SEX字段中,并在SHIJIAN字段中加入从前一个页面的表单传过来的数据,表单名为:SHIJIAN.
求高手帮我做出这个页面,我给最高分.
谢谢! 在线等.
朋友,可以把详细的代码写出来吗?麻烦了.
时间这一项是固定的,都是从上一页面传过来的值.
<%
shijian=Trim(Request.Form("shijian"))
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("DATA.MDB")
set conn= Server.CreateObject("adodb.connection")
conn.open connstr
set rs1= Server.CreateObject("adodb.recordset")
set rs2= Server.CreateObject("adodb.recordset")
rs1.open "select * from biao1",conn,1,1
rs2.open "select * from biao2 where id is null",conn,1,3
do while not rs1.eof
rs2.addnew
rs2("name")=rs1("name")
rs2("sex")=rs1("sex")
rs2("shijian")=shijian
rs2.update
rs1.movenext
loop
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
conn.close
set conn=nothing
%>
＝＝＝＝＝＝＝＝＝＝＝
没有测试，不知道能否通过运行
Dim SHIJIAN=Trim(request.form("SHIJIAN"))
Sql="select Name,Sex From BlAo1&quo