移动CMS数据到DedeCMS的PHP程序

点评：关键词描述：程序数据RS GT回波值字段gt conn2



PS：这可以作为一个ASP文章系统等新的云或Nb，可转换为CMS dedecms或其他PHP。
{复制此代码}代码：
< PHP
读取MDB数据库例程
Set_time_limit (0);
$ conn =新的COM（adodb.connection






关键词描述：程序数据RS GT回波值字段gt conn2




PS：这可以作为一个ASP文章系统等新的云或Nb，可转换为CMS dedecms或其他PHP。
{复制此代码}代码：
< PHP
读取MDB数据库例程
（0）set_time_limit；
$ conn =新的COM（数据连接）；
connstr美元=司机= {微软Access Driver（* .mdb）}；DBQ =。Realpath（E： WEB2 QQ .mdb）；
Conn ->打开美元（美元connstr）；
RS =美元新的COM（ADODB。记录集）；
为RS - >打开（SELECT * FROM pe_article哪里时> 0阶的ASC 时
$ conn2 = mysql_connect（localhost
mysql_select_db（德
mysql_query（SET NAMES GBK
$ I = 0；
而（！）
ID =美元美元的RS - >字段（'articleid）->价值；
标题=美元addslashes（RS ->领域美元（标题）->价值）；
classid =美元美元的RS - >字段（'classid）->价值；
keywordstr =美元美元的RS - >字段（'keyword）->价值；
keywordstr美元= str_replace（|
$关键词=装饰（$ keywordstr）；
美元美元中= RS - >字段（'updatetime）->价值；
datearr美元=爆炸（
YY =美元美元datearr { 0 }；
百万美元= $ datearr { 1 }；
为DD =兰特（1,28）；
时间=（0,0,0，mktime美元美元美元美元的MM，DD，YY）；
$content = addslashes（$ RS ->字段（'content'）->价值）；
内容str_replace美元=（' { } { } installdir_channeldir uploaddir美元'，' / uploadfiles，$content）；


/ /美元美元uploadFile = RS - >字段（'uploadfiles）->价值；
sql0美元=选择ID从dnzsw04_archives id是‘$id；
美元（$ sql0，RS0来= mysql_query conn2美元）；
行= mysql_fetch_array美元（约合RS0来）；
如果（intval（$行{ 'id' }）= = 0）{
为SQL1 =插入dnzsw04_archives （ID，typeid，通道，标题，sortrank，出版日期，senddate，出版日期），（1），（1）。
↓= mysql_query美元（$ SQL1，$ conn2）；
如果（！$ RS1）{
echo SQL1；
；
mysql_error（回声）；
；
/退出；
}
2 = mysql_insert_id（美元）；
如果（$ 2 > 0）{
$ SQL2 =插入dnzsw04_addonarticle（援助，typeid，体）值（美元美元的ID，classid，' $内容'）；；
2 = mysql_query美元（$ SQL2，$ conn2）；
如果（！$ RS2）{
echo SQL2；
；
mysql_error（回声）；
；
/退出；
}
}
}
为RS - > MoveNext（）；
为我；
如果（$ = 0）睡眠（5）；
}
；
>