Access的数据导入到Mysql

<%

dim driverName,chs

driverName="Driver={mysql odbc 3.51 driver};server=localhost;database=discuz;uid=root;pwd=;"

set conn=server.createobject("adodb.connection")

conn.open driverName

Set conns=Server.CreateObject("ADODB.Connection")

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("news.mdb")&""

On Error Resume Next

Conns.open ConnStr

If Err Then

Err.Clear

Set Conns = Nothing

Response.Write "连接数据库错误……"

Response.End

End If

'之前先执行下面这一句,这句是解决读取数据库乱码问题的关键

set chs=conn.Execute("SET NAMES 'gb2312'")

IntId = Request.QueryString("IntId")

If Len(IntId)<1 Or IsNumeric(IntId)=False Then

IntId=0

Else

IntId=CLng(IntId)

End If

Set Rs = Server.CreateObject("Adodb.Recordset")

'取得当前处理的数据

Set Rs = Server.CreateObject("Adodb.Recordset")

Rs.Open "Select top 1 * From info Where id>"&IntId&" Order by id asc",conns,1,1

If Not Rs.Eof Then

aid=Rs("id")

Title=Trim(Rs("Title"))

Content=Trim(Rs("Content"))

Content=Replace(Content," "," ")

Content=Replace(Content,"?","")

Content = Replace(Content, "<br>", CHR(10))

Content = Replace(Content, CHR(13), CHR(10))

Content = Replace(Content, CHR(10)&CHR(10), CHR(10))

Else

Response.Write "处理完毕！"

Response.End()

End If

Rs.Close

'取得最大pid

Rs.Open "Select * FROM cdb_posts order by pid desc limit 1",Conn,1,1

NewPid=Rs("pid")+1

Rs.Close

'取得最大dateline

Rs.Open "Select * FROM cdb_threads order by dateline desc limit 1",Conn,1,1

NewDateline=Rs("dateline")+1

Rs.Close

'insert

'取得最大tid

Rs.Open "Select * FROM cdb_threads order by tid desc limit 1",Conn,1,1

NewTid=Rs("tid")+1

Rs.Close

'写入cdb_threads表

Rs.Open "Select * FROM cdb_threads where 1=2",Conn,1,3

Rs.Addnew

Rs("tid")=NewTid

Rs("fid")=10

Rs("iconid")=0

Rs("typeid")=0

Rs("readperm")=0

Rs("price")=0

Rs("authorid")=1

Rs("dateline")=NewDateline

Rs("lastpost")=NewDateline

Rs("views")=0

Rs("replies")=0

Rs("displayorder")=0

Rs("highlight")=0

Rs("digest")=0

Rs("rate")=0

Rs("blog")=0

Rs("special")=0

Rs("attachment")=0

Rs("subscribed")=0

Rs("moderated")=0

Rs("closed")=0

Rs("itemid")=0

Rs("supe_pushstatus")=0

Rs.update

Rs.Close

Sql2="update cdb_threads set author='admin',subject='"&Title&"',lastposter='admin' where tid="&NewTid

Conn.execute(sql2)

'----------------------------------

'写入cdb_posts

Rs.Open "Select * FROM cdb_posts where 1=2",Conn,1,3

Rs.Addnew

Rs("pid")=NewPid

Rs("fid")=10

Rs("tid")=NewTid

Rs("first")=1

Rs("authorid")=1

Rs("dateline")=NewDateline

Rs("invisible")=0

Rs("anonymous")=0

Rs("usesig")=0

Rs("htmlon")=0

Rs("bbcodeoff")=-1

Rs("smileyoff")=-1

Rs("parseurloff")=0

Rs("attachment")=0

Rs("rate")=0

Rs("ratetimes")=0

Rs("status")=0

Rs.update

Rs.Close

Set Rs = Nothing

Sql2="update cdb_posts set author='admin',subject='"&Title&"',message='"&Content&"',useip='127.0.0.1' where pid="&NewPid

Conn.execute(sql2)

Response.Write "<br><br><br><br><div align=center>已经成功转移了<b>"&IntId&"</b>条数据,数据编号是<b>"&aid&"</b>！</div>"

Response.Write "<script>location.href(""?IntId="&IntId+1&""");</script>"

%>