*****************************************************************
方法一:
<%
'------------将表Contentpj排重后倒入表shopxp_product------------
dim conn,mdbfile
mdbfile=server.mappath("#4#2#.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=;pwd=;dbq="&mdbfile
set rs1= Server.CreateObject("adodb.recordset")
'------------排除重复记录---------
sql1="select 标题,参考价格,内容,生产厂商,配件类型,适用机型,配件性能 from Contentpj GROUP BY 标题,参考价格,内容,生产厂商,配件类型,适用机型,配件性能"
rs1.open sql1,conn,1,3
set rs2= Server.CreateObject("adodb.recordset")
sql2="select * from shopxp_product"
rs2.open sql2,conn,1,3
'-------------开始导入数据--------
do while not rs1.eof
rs2.addnew
rs2("shopxpptname")=rs1("标题")
rs2("shichangjia")=rs1("参考价格")
rs2("shopxpptcontent")=rs1("内容")
rs2("pingpai")=rs1("生产厂商")
rs2("isbn")=rs1("配件类型")
rs2("bh")=rs1("适用机型")
rs2("size")=rs1("配件性能")
rs2("kucun")=9999
rs2("shopxpbe_id")=6
rs2.update
rs1.movenext
loop
%>
*****************************************************************
方法二:
<%
'------------将表Contentpj排重后倒入表shopxp_product------------
dim conn,mdbfile
mdbfile=server.mappath("#4#2#.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=;pwd=;dbq="&mdbfile
set rs1= Server.CreateObject("adodb.recordset")
'------------排除重复记录---------
sql1="select * from Contentpj where ID in(select max(ID) from Contentpj group by 标题)"
rs1.open sql1,conn,1,3
set rs2= Server.CreateObject("adodb.recordset")
sql2="select * from shopxp_product"
rs2.open sql2,conn,1,3
'-------------开始导入数据--------
do while not rs1.eof
rs2.addnew
rs2("shopxpptname")=rs1("标题")
rs2("shichangjia")=rs1("参考价格")
rs2("shopxpptcontent")=rs1("内容")
rs2("pingpai")=rs1("生产厂商")
rs2("isbn")=rs1("配件类型")
rs2("bh")=rs1("适用机型")
rs2("size")=rs1("配件性能")
rs2("kucun")=9999
rs2("shopxpbe_id")=6
rs2.update
rs1.movenext
loop
%>
***************************************************************
方法一:
<%
'------------将表Contentpj排重后倒入表shopxp_product------------
dim conn,mdbfile
mdbfile=server.mappath("#4#2#.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=;pwd=;dbq="&mdbfile
set rs1= Server.CreateObject("adodb.recordset")
'------------排除重复记录---------
sql1="select 标题,参考价格,内容,生产厂商,配件类型,适用机型,配件性能 from Contentpj GROUP BY 标题,参考价格,内容,生产厂商,配件类型,适用机型,配件性能"
rs1.open sql1,conn,1,3
set rs2= Server.CreateObject("adodb.recordset")
sql2="select * from shopxp_product"
rs2.open sql2,conn,1,3
'-------------开始导入数据--------
do while not rs1.eof
rs2.addnew
rs2("shopxpptname")=rs1("标题")
rs2("shichangjia")=rs1("参考价格")
rs2("shopxpptcontent")=rs1("内容")
rs2("pingpai")=rs1("生产厂商")
rs2("isbn")=rs1("配件类型")
rs2("bh")=rs1("适用机型")
rs2("size")=rs1("配件性能")
rs2("kucun")=9999
rs2("shopxpbe_id")=6
rs2.update
rs1.movenext
loop
%>
*****************************************************************
方法二:
<%
'------------将表Contentpj排重后倒入表shopxp_product------------
dim conn,mdbfile
mdbfile=server.mappath("#4#2#.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=;pwd=;dbq="&mdbfile
set rs1= Server.CreateObject("adodb.recordset")
'------------排除重复记录---------
sql1="select * from Contentpj where ID in(select max(ID) from Contentpj group by 标题)"
rs1.open sql1,conn,1,3
set rs2= Server.CreateObject("adodb.recordset")
sql2="select * from shopxp_product"
rs2.open sql2,conn,1,3
'-------------开始导入数据--------
do while not rs1.eof
rs2.addnew
rs2("shopxpptname")=rs1("标题")
rs2("shichangjia")=rs1("参考价格")
rs2("shopxpptcontent")=rs1("内容")
rs2("pingpai")=rs1("生产厂商")
rs2("isbn")=rs1("配件类型")
rs2("bh")=rs1("适用机型")
rs2("size")=rs1("配件性能")
rs2("kucun")=9999
rs2("shopxpbe_id")=6
rs2.update
rs1.movenext
loop
%>
***************************************************************