动易数据转成dedecms的php程序


Posted in PHP onApril 07, 2007

PS:这个可以举一反三,如新云或NB等asp文章系统都可转为dedecms或其它php的cms 

<?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($i%50==0)sleep(5);  
}   
echo "完成";  
?> 
PHP 相关文章推荐
解决phpmyadmin中文乱码问题。。。
Jan 18 PHP
php switch语句多个值匹配同一代码块应用示例
Jul 29 PHP
PHP实现下载断点续传的方法
Nov 12 PHP
php使用ereg验证文件上传的方法
Dec 16 PHP
避免Smarty与CSS语法冲突的方法
Mar 02 PHP
php获取从html表单传递数组的方法
Mar 20 PHP
PHP统计当前在线用户数实例讲解
Oct 21 PHP
CodeIgniter多语言实现方法详解
Jan 20 PHP
php-msf源码详解
Dec 25 PHP
PHP删除数组中指定下标的元素方法
Feb 03 PHP
PHP iconv()函数字符编码转换的问题讲解
Mar 22 PHP
PHP正则表达式处理函数(PCRE 函数)实例小结
May 09 PHP
一篇入门的php Class 文章
Apr 04 #PHP
手把手教你使用DedeCms V3的在线采集图文教程
Apr 03 #PHP
dedecms系统常用术语汇总
Apr 03 #PHP
dede3.1分页文字采集过滤规则详说(图文教程)续四
Apr 03 #PHP
dede3.1分页文字采集过滤规则详说(图文教程)续二
Apr 03 #PHP
dede3.1分页文字采集过滤规则详说(图文教程)
Apr 03 #PHP
dedecms模版制作使用方法
Apr 03 #PHP
You might like
PHP新手上路(九)
2006/10/09 PHP
php+mysqli事务控制实现银行转账实例
2015/01/29 PHP
discuz图片顺序混乱解决方案
2015/07/29 PHP
如何利用http协议发布博客园博文评论
2015/08/03 PHP
PHP中常用的数组操作方法笔记整理
2016/05/16 PHP
PHP序列化和反序列化深度剖析实例讲解
2020/12/29 PHP
用cookies实现的可记忆的样式切换效果代码下载
2007/12/24 Javascript
jQuery 表格工具集
2010/04/25 Javascript
js单例模式详解实例
2013/11/21 Javascript
node.js中的fs.createWriteStream方法使用说明
2014/12/17 Javascript
script标签属性用type还是language
2015/01/21 Javascript
使用Jquery实现每日签到功能
2015/04/03 Javascript
AngularJS中的缓存使用
2017/01/11 Javascript
vue2.0移除或更改的一些东西(移除index key)
2017/08/28 Javascript
JS实现的RC4加密算法示例
2018/08/16 Javascript
vuejs 制作背景淡入淡出切换动画的实例
2018/09/01 Javascript
koa2使用ejs和nunjucks作为模板引擎的使用
2018/11/27 Javascript
使用Node.js实现一个多人游戏服务器引擎
2019/03/13 Javascript
[04:49]期待西雅图之战 2016国际邀请赛中国区预选赛WINGS战队赛后采访
2016/06/29 DOTA
python Pygame的具体使用讲解
2017/11/03 Python
Python 使用Numpy对矩阵进行转置的方法
2019/01/28 Python
python 定时器,实现每天凌晨3点执行的方法
2019/02/20 Python
OpenCV Python实现拼图小游戏
2020/03/23 Python
PyTorch中clone()、detach()及相关扩展详解
2020/12/09 Python
css 如何让背景图片拉伸填充避免重复显示
2013/07/11 HTML / CSS
新西兰最大的在线设计师眼镜店:SmartBuyGlasses新西兰
2017/10/20 全球购物
蔻驰西班牙官网:COACH西班牙
2019/01/16 全球购物
Europcar比利时:租车
2019/08/26 全球购物
德国富尔达运动鞋店:43einhalb
2020/12/25 全球购物
学生会干部自荐信
2014/02/04 职场文书
水利公司纪检监察自我鉴定
2014/02/25 职场文书
《去年的树》教学反思
2014/04/11 职场文书
2015年办税服务厅工作总结
2015/07/23 职场文书
2016保送生自荐信范文
2016/01/29 职场文书
导游词之安徽九华山
2019/09/18 职场文书
Python实战之OpenCV实现猫脸检测
2021/06/26 Python