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