PS：这个可以举一反三，如新云或NB等asp文章系统都可转为织梦dedecms或其它php的cms [复制此代码]CODE: <?php //读取mdb数据库例程 set_time_limit(0); $conn = new com("ADODB.Connection"); $connstr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=". realpath("E:/web2/qq.mdb"); $conn->Open($connstr); $rs = new com("ADODB.RecordSet"); $rs->Open("select * from PE_Article Where ArticleID>0 orDER BY ArticleID ASC",$conn,1,1); $conn2 = mysql_connect("localhost","root",""); mysql_select_db("dede",$conn2); mysql_query("SET NAMES GBK",$conn2); $i=0; while(! $rs->eof) { $id = $rs->Fields('ArticleID')->value; $title = addslashes($rs->Fields('Title')->value); $classid = $rs->Fields('ClassID')->value; $keywordstr = $rs->Fields('Keyword')->value; $keywordstr = str_replace("|"," ",$keywordstr); $keyword = trim($keywordstr); $datestr = $rs->Fields('UpdateTime')->value; $datearr = explode("-",$datestr); $yy = $datearr[0] ; $mm = $datearr[1] ; $dd = rand(1,28); $time=mktime(0,0,0,$mm,$dd,$yy); $content =addslashes($rs->Fields('Content')->value); $content = str_replace('[InstallDir_ChannelDir]{$UploadDir}','/UploadFiles',$content); //$uploadfile = $rs->Fields('UploadFiles')->value; $sql0 = "select ID from dede_archives where ID='$id'"; $rs0 = mysql_query($sql0,$conn2); $row = mysql_fetch_array($rs0); if(intval($row['ID'])==0){ $sql1 = "insert into dede_archives (ID,typeid,channel,title,sortrank,pubdate,senddate,adminID,keywords) values ('$id','$classid',1,'$title','$time','$time','$time',1,'$keyword')"; $rs1 = mysql_query($sql1,$conn2); if(!$rs1){ echo $sql1; echo "<br>"; echo mysql_error(); echo "<br>"; //exit; } $id2 = mysql_insert_id(); if($id2>0){ $sql2 = "insert into dede_addonarticle (aid ,typeid, body ) values('$id','$classid','$content');"; $rs2 = mysql_query($sql2,$conn2); if(!$rs2){ echo $sql2; echo "<br>"; echo mysql_error(); echo "<br>"; //exit; } } } $rs->MoveNext(); $i ; if($iP==0)sleep(5); } echo "完成"; ?>
动易dedecms数据转成织梦dedecms的php程序就介绍完了。
