动易dedecms数据转成dedecms的php程序

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