conn.asp

用于相同程序的论坛、网站数据、用户、以及各种类型的ACCESS数据库的合并。

<%
Option Explicit
On Error Resume Next

Dim Database,Database1,Table
Dim Connstr,Connstr1,conn,conn1
Dim rs,rs1

Database = Request("data1")
Database1 = Request("data2")
Table = Request("table")

Connstr = "DBQ="+server.mappath(database)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
Set Conn = Server.CreateObject("ADODB.connection") 
Conn.open Connstr 

Connstr1 = "DBQ="+server.mappath(database1)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
Set Conn1 = Server.CreateObject("ADODB.connection") 
Conn1.open Connstr1 

Set rs=server.CreateObject("adodb.recordset")
Set rs1=server.CreateObject("adodb.recordset")

Dim num,i,j
num = 0

rs.open "[" & Table & "]",conn,1,1
'===============================

	rs1.open "[" & Table & "]",conn1,1,3
		Do while not rs.eof
		rs1.addnew
			For j=0 to rs.fields.count -1
			rs1(rs(j).name)=rs(rs(j).name)
			next
		rs.movenext
		rs1.update
		num = num + 1
		loop
	rs1.close
'==============================
rs.close

'Response.Write "共导入"&num&"条数据!"
Response.Write("<script>alert(""你已成功导入"&num&"条数据,点击返回!\nWww.52125.cn"");location.href=""index.html"";</script>")

%>