动易数据转成dedecms的php程序

　　PS：这个可以举一反三，如新云或NB等asp文章系统都可转为dedecms或其它php的cms
复制代码 代码如下:
<?php
//读取mdb数据库例程
set_time_limit(0);
$connstr=DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ=.realpath(E:\web2\qq.mdb);
$conn->Open($connstr);
$rs=newcom(ADODB.RecordSet);
$rs->Open(select*fromPE_ArticleWhereArticleID>0orDERBYArticleIDASC,$conn,1,1);

$conn2=mysql_connect(localhost,root,);
mysql_select_db(dede,$conn2);
mysql_query(SETNAMESGBK,$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=selectIDfromdede_archiveswhereID=$id;
$rs0=mysql_query($sql0,$conn2);
$row=mysql_fetch_array($rs0);
if(intval($row[ID])==0){
$sql1=insertintodede_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>;
echomysql_error();
echo<br>;
//exit;
}
$id2=mysql_insert_id();
if($id2>0){

$sql2=insertintodede_addonarticle(aid,typeid,body)values($id,$classid,$content);;
$rs2=mysql_query($sql2,$conn2);
if(!$rs2){
echo$sql2;
echo<br>;
echomysql_error();
echo<br>;
//exit;
}
}
}
$rs->MoveNext();
$i++;
if($i%50==0)sleep(5);
}
echo完成;
?>