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>"
%>
