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程序就介绍完了。