东方星雨

简单网络

一个爱好网络的80后男站长。

关注我东方星雨个人微信号:476847113

您现在的位置是:首页 > 站长日志

帝国cms做站常用的一些程序代码

2012-01-11 站长 站长日志

一、获取栏目网址:

$classurl=sys_ReturnBqClassname($bqr,9);//取得栏目地址

判断是否首页(用于高亮):

<?=(!$GLOBALS[navclassid])?' class="cur"':''?>

判断是否当前页(高亮):

<?=($GLOBALS[navclassid]==$bqr[classid])?' class="cur"':''?>

各页面自动跳转移动端:

<script src="http://siteapp.baidu.com/static/webappservice/uaredirect.js" type="text/javascript"></script>
<?php
/*判断首页或者列表或者内页自动生成跳转地址,,,,,如果不生效就把百度这个js文件保存在网站本地*/
if(!$GLOBALS[navclassid])
{
?>
<script type="text/javascript">uaredirect("http://m.xxx.com");</script>
<?php
}
else
{
?>
<script type="text/javascript">uaredirect("http://m.xxx.com/<?=$class_r[$GLOBALS['navclassid']]['classpath']?>/<?=($navinfor[id]?$navinfor[id].'.html':'')?>");</script>
<?php
}
?>

第二种种跳转方式

<?php
/*自动生成移动端跳转地址,仅限m.xxx.com形式,支持二级域名*/

$url = explode(".", $_SERVER['SERVER_NAME']);
for ($i = 1; $i < sizeof($url); $i++) {
    $weburl.=".".$url[$i];
}
if ($url[0]!="www"){
        $weburl="http://".$url[0]."m".$weburl;
}
else{
        $weburl="http://m".$weburl;
}
?>
<script type="text/javascript">uaredirect("<?=$weburl;?><?=$GLOBALS[navclassid]?'/':''?><?=$class_r[$GLOBALS['navclassid']]['classpath']?>/<?=($navinfor[id]?$navinfor[id].'.html':'')?>");</script>

按照指定排序调用SQL语句片段(配合条件调用):

order by field(classid,10,3,4,41,40)

栏目导航中判断某栏目是否为终极栏目:

if ($bqr[sonclass]=='' or $bqr[sonclass]=="|")
...

补充1:判断当前栏目是否有设置标题分类并调用:

<?php
//判断当前栏目是否有设置标题分类
$tr=$empire->fetch1("select ttids from phome_enewsclassadd where classid=$GLOBALS[navclassid]");
//上面这句如果用在标题分类列表页需要改为$tr=$empire->fetch1('select ttids from phome_enewsclassadd where ttids like "%'.$GLOBALS[navclassid].'%"');

                if ($tr[ttids]){
                ?>
                <div class="am-panel-bd" style=" padding:15px 5px; overflow:hidden;"> 
                <?
                $ttids=explode(',',trim($tr[ttids],","));
                         foreach($ttids as $id){
                                $ttname_sql=sys_ReturnEcmsLoopBq("select * from [!db.pre!]enewsinfotype where typeid=$id",0,24,0);
                                while($bqr2=$empire->fetch($ttname_sql)){
                                        $tturl=sys_ReturnBqInfoTypeUrl($bqr2[typeid]);
                ?>
                                <a class="ys4" href="<?=$tturl?>" target="_blank"><?=$bqr2[tname]?></a>
                <?php
                                }//endwhile
                        }//endfor
?>
                </div>
<?
                }//ENDIF
?>

补充2:禁止页面被复制和禁止右键:

<style type="text/css">  
body {  
    -webkit-touch-callout: none;  
    -webkit-user-select: none;  
    -khtml-user-select: none;  
    -moz-user-select: none;  
    -ms-user-select: none;  
    user-select: none;  
}  
</style>  
<script langauge="javascript">  
document.oncontextmenu=function(e){return false;}  
</script>   
</head>
...

补充3:访客留言或者新订单等等场景自动发邮件到管理员信箱:

并非原创,同时借鉴了轮胎两位大神的帖子,做了一些修改。

//给管理员信箱发送通知邮件新增函数 20180523
//参考网址:http://bbs.phome.net/showthread-13-167022-0.html
//参考网址:http://bbs.phome.net/ShowThread/?threadid=346659&forumid=13
function SendNoticeToAdmin($siteurl,$body){
        global $empire,$dbtbpre;
        $empire=new mysqlquery();
        $pr=$empire->fetch1("select email from {$dbtbpre}enewspublic limit 1");

        if(is_array($body)){
                foreach($body as $value){
                        $key=key($body);
                        next($body);

                                                //过滤和替换邮件里显示的内容 自修改
                                                if ($key=='name' or $key=='mycall' or $key=='lytext'  or $key=='ecmsfrom'){

                                                        switch ($key){
                                                                case 'name':
                                                                        $key="留言者";
                                                                        $subject=$value;
                                                                        break;
                                                                case 'mycall':
                                                                        $key="联系方式";
                                                                        $subject.="(".$value.")的留言";
                                                                        break;
                                                                case 'lytext':
                                                                        $key="留言内容";
                                                                        break;
                                                                case 'ecmsfrom':
                                                                        $key="来源网址";
                                                                        $value= $siteurl.$value;//此处修改网站首页前缀
                                                                        break;
                                                        }        


                                                        $msgtext .= "[$key]:"."$value"."n";
                                                }
                }
        }else{
                $msgtext=$body;
        }
        //$msgtext .= "rnrn注意请勿直接回复邮件:rn客户信息及其留言信息全部在上面邮件内容中.nr";
        $sm=EcmsToSendMail($pr['email'],'来自'.$siteurl.':'.$subject,$msgtext);
        return $sm;
}

补充4:

[!--pagedes--]在内容页调用默认调用标题的无损解法:通常大家可能会去修改functions.php,对以后升级会存在影响. 为了SEO想了一个折中简单的办法.

<meta name="description" content="<?=$navinfor[id]?$navinfor[smalltext].'---':''?>[!--pagedes--]" />

补充5:专题列表页调用同classid其他专题,输出导航和高亮:

<div class="zhuanti">
<?php
$ecms_bq_sql=sys_ReturnEcmsLoopBq('select classid from phome_enewszt where ztid='.$GLOBALS[navclassid],1,24,0,'','');
while($bqr=$empire->fetch($ecms_bq_sql))
        {
        $ecms_bq_sql2=sys_ReturnEcmsLoopBq('select ztid,ztname,ztpath,ztimg from phome_enewszt where classid='.$bqr[classid],8,24,0,'','ztid asc');
        $bqno2=0;
                while($bqr2=$empire->fetch($ecms_bq_sql2))
                {
                        $bqno2++;
?> 
<a href="<?=$public_r[newsurl]?><?=$bqr2[ztpath]?>" title="<?=$bqr2[ztname]?>"<?=($GLOBALS[navclassid]==$bqr2[ztid])?' class="cur"':''?>><?=esub($bqr2[ztname],15)?></a>
<?                
                }//endwhile2
}//endwhile1
?> 
</div>

列表页中单个产品显示所属专题,增加到列表内容模板(list.var)中:

$ecms_bq_sql=sys_ReturnEcmsLoopBq('select ztid from phome_enewsztinfo where id='.$r[id],1,24,0,'','');
while($bqr=$empire->fetch($ecms_bq_sql))
{
       $ecms_bq_sql2=sys_ReturnEcmsLoopBq('select ztid,ztname,ztpath,ztimg from phome_enewszt where ztid='.$bqr[ztid],1,24,0,'','');
                while($bqr2=$empire->fetch($ecms_bq_sql2))
                {
                                $zturl=$public_r[newsurl].$bqr2[ztpath];
                                $ztname=$bqr2[ztname];
                }//endwhile2

}//endwhile1

循环调用产品栏目数据,替代循环子栏目信息标签,可自由更改模版和调用条件:

<!--循环调用产品栏目数据,替代循环子栏目信息标签,可自由更改模版和调用条件-->
[e:loop={'select classid,classname,classpath from phome_enewsclass where bclassid=1 and showclass=0 order by classid asc',10,24,0,'',''}]
<?
$classurl=sys_ReturnBqClassname($bqr,9);//取得栏目地址
?>
<a href="<?=$classurl;?>"><?=$bqr[classname]?></a>
<?php
}

    $pro_new=$empire->query("select title,titlepic,titleurl from phome_ecms_newmaterial where classid = '".$bqr[classid]."' order by newstime desc");
    //取得该分类下的最新数据
    while($r=$empire->fetch($pro_new)) {        
        $url=sys_ReturnBqTitleLink($r);
?>
<a target="_blank" href="<?=$url;?>"><img class="img-responsive center-block" alt="<?=$r[title]?>" title="<?=$r[title]?>" src="<?=$r[titlepic];?>" ></a><a target="_blank"  href="<?=$url?>"><?=$r[title]?></a>
<?php
     }
?>  
[/e:loop]

全站SEO标题懒人格式:

"网页标题"+"文章内页优化用自定义字段"或者"栏目或专题页优化用自定字段"+网站名称(首页不显示)

<title>[!--pagetitle--]<?=$navinfor[id]?'/'.$navinfor[tuijie]:''//如果在文章内页显示自定义字段tuijie内容?><?=($GLOBALS[navclassid]  and !$navinfor[id])?'/'.ReturnClassAddField($GLOBALS[navclassid],'tuijie').ReturnZtAddField($GLOBALS[navclassid],'tuijie'):''//如果在栏目内页显示自定义字段tuijie内容,专题自定义字段函数并列一起但不会同时调用?><?=$GLOBALS[navclassid]?'/'.$public_r[sitename]:''//如果在不在首页显示后台设置的网站标题?></title>

多访问端换域名后必须执行的SQL语句(全):

update phome_ecms_news_data_1 set newstext=REPLACE(newstext,'老域名','新域名'); update phome_ecms_news set titlepic=REPLACE(titlepic,'老域名','新域名'); update phome_ecms_newmaterial set newstext=REPLACE(newstext,'老域名','新域名'),titlepic=REPLACE(titlepic,'老域名','新域名'); update phome_enewsclass set classimg=REPLACE(classimg,'老域名','新域名'); update phome_enewsclassadd set eclasspagetext=REPLACE(eclasspagetext,'老域名','新域名'); update phome_enewspublic set fileurl=REPLACE(fileurl,'老域名','新域名'); update phome_enewsmoreport set purl=REPLACE(purl,'m.老域名','m.新域名');

都是平时自己会用到的,上不了什么台面,也是为了方便自己查阅,肯定还有很多其他的,如果你也有很好用的代码,不妨跟大家分享。

文章评论