关键字描述：程序 数据 " rs-> echo value Fields -> conn2

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:web2qq.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 "完成";

?>