宝宝起名网源码/取名网/姓名分析/名字打分/算命测算文章系统
演示地址：
https://s17.ryzlk.com/
手机端地址：
https://m.s17.ryzlk.com/
起名说明：
起名内容来源数据库，通过客户提交的姓名，出生年月日表单，计算出用户的五行缺旺，然后从数据库中调用五行相符的姓名提供给客户。并且包括：单字，双字，叠字的三种选择！
姓名测算说明：
通过三才五格算法得出名字的得分，做出分析，并通过调用数据库，给出每个字的字形字义，康熙字典数据库二开加入了字的起名寓意和诗词来源。
百家姓：
百家姓页面分字母排序，涵盖了几乎所有的姓氏。
姓氏页面：
给出了喜金，喜木，喜水，喜火，喜土的名字筛选，姓氏页面还包括姓氏的来源历史，变迁和姓氏名人。
文章系统：
1、响应速度快，完全开源，可二次开发！
2、送免登录发布插件+huo车tou头发布模块，适合批量怼文章，适合seoer。
3、完整的程序+数据库，自带1800多条数据+本地图片。
4、后台带采集，并带多条采集规则。
注意：
1、本程序不带付费测算内容，程序里的跳转外站的付费测算内容是调用的cps联盟链接！
部分代码展示：
/***
*姓名分析 作者：奥顺互联 微信：kkmp326
*/
//http://s17.ryzlk.com/qm/qm/xmfx/xing/王/ming/大陆
public function xmfx() {
$site = get_config();
$xing = $_GET['xing'];
$ming = $_GET['ming'];
$dbbx=D('xinglist');
$sql='select * from `yzm_xinglist` where `xing`="'.$xing.'"';
$xing_arr = $dbbx->fetch_array($dbbx->query($sql));
if(!$xing_arr[0]) {
header('HTTP/1.0 404 Not Found');
header('Location: /404.htm');
exit;
}
//$wh_bh_arr = M('mod_xingming')->get_bihua($x1);
$fullUrl = $_SERVER['REQUEST_URI'];
parse_str(parse_url($fullUrl, PHP_URL_QUERY), $params);
if(empty($params)) {
$y = date('Y',time());
$m = date('n',time());
$d = date('j',time());
$h = date('H',time());
$params = array('year'=>$y,'month'=>$m,'day'=>$d,'hour'=>$h);
}
$sizhu = M('mod_suanming')->getSizhu($params['year'],$params['month'],$params['day'],$params['hour'],0);
foreach($sizhu as $k=>$v) {
$sizhuwx[] = M('mod_xingming')->tgdzwh($v);
}
$nong = M('cls_nongli')->convertSolarToLunar($params['year'],$params['month'],$params['day']);
$mtwelve=array(NULL,"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥");
$nlhour=substr($mtwelve[ceil($params['hour']/2)%12+1],0,3);
//根据时间获得时辰！
$nongliymdh = array($nong[3],$nong[1],$nong[2],$nlhour);
$xing1=substr($xing,0,3);
$ming1=substr($ming,0,3);
$db=D('kangxi');
/*xing1*/
$xing1arr = $db->where(array('hanzi'=>'%'.$xing1.'%'))->find();
/*xing1*/
/*ming1*/
$ming1arr = $db->where(array('hanzi'=>'%'.$ming1.'%'))->find();
/*ming1*/
$bihua1 = $xing1arr['bihua'];
if($bihua1=='') {
$bihua1 = M('mod_xingming')->get_bihua($xing1)['bihua'];
}
$hzwh1 = $xing1arr['wuxing'];
if($hzwh1=='') {
$hzwh1 = M('mod_xingming')->get_bihua($xing1)['hzwh'];
}
$tiange=$bihua1+1;
$tiangee=$bihua1+1;
$renge1=$bihua1;
$xing2=substr($xing,3,3);
if($xing2!='') {
//$sql='select * from `kangxi` where hanzi like "%'.$xing2.'%"';
$xing2arr = $db->where(array('hanzi'=>'%'.$xing2.'%'))->find();
$bihua2 = $xing2arr['bihua'];
if($bihua2=='') {
$bihua2 = M('mod_xingming')->get_bihua($xing2)['bihua'];
}
$hzwh2 = $xing2arr['wuxing'];
if($hzwh2=='') {
$hzwh2 = M('mod_xingming')->get_bihua($xing2)['hzwh'];
}
$tiange=$bihua1+$bihua2;
$tiangee=$bihua1+$bihua2;
$renge1=$bihua2;
}
//print_r($bihua2);
$bihua3 = $ming1arr['bihua'];
if($bihua3=='') {
$bihua3 = M('mod_xingming')->get_bihua($ming1)['bihua'];
}
$hzwh3 = $ming1arr['wuxing'];
if($hzwh3=='') {
$hzwh3 = M('mod_xingming')->get_bihua($ming1)['hzwh'];
}
$dige=intval($bihua3)+1;
$digee=intval($bihua3)+1;
$renge2=$bihua3;
$ming2=substr($ming,3,3);
if($ming2!='') {
//$sql='select * from `kangxi` where hanzi like "%'.$ming2.'%"';
$ming2arr = $db->where(array('hanzi'=>'%'.$ming2.'%'))->find();
$bihua4 = $ming2arr['bihua'];
if($bihua4=='') {
$bihua4 = M('mod_xingming')->get_bihua($ming2)['bihua'];
}
$hzwh4 = $ming2arr['wuxing'];
if($hzwh4=='') {
$hzwh4 = M('mod_xingming')->get_bihua($ming2)['hzwh'];
}
$dige=$bihua3+$bihua4;
$digee=$bihua3+$bihua4;
}
//print_r($ming2arr);
$xm_arr = array('xing1'=>$xing1,'xing2'=>$xing2,'ming1'=>$ming1,'ming2'=>$ming2);
$bh_wh_arr = array('bihua1'=>$bihua1,'bihua2'=>$bihua2,'bihua3'=>$bihua3,'bihua4'=>$bihua4,'hzwh1'=>$hzwh1,'hzwh2'=>$hzwh2,'hzwh3'=>$hzwh3,'hzwh4'=>$hzwh4,'whpy1'=>M('mod_xingming')->whpy($hzwh1),'whpy2'=>M('mod_xingming')->whpy($hzwh2),'whpy3'=>M('mod_xingming')->whpy($hzwh3),'whpy4'=>M('mod_xingming')->whpy($hzwh4));
//print_r($bh_wh_arr);
$zhongge=intval($bihua1)+intval($bihua2)+intval($bihua3)+intval($bihua4);
$zhonggee=intval($bihua1)+intval($bihua2)+intval($bihua3)+intval($bihua4);
//计算三才
$renge=intval($renge1)+intval($renge2);
$rengee=intval($renge1)+intval($renge2);
$waige=intval($zhongge)-intval($renge);
$waigee=intval($zhonggee)-intval($rengee);
if($xing2=='') {
$waige=intval($waige)+1;
$waigee=intval($waigee)+1;
}
if($ming2=='') {
$waige=intval($waige)+1;
$waigee=intval($waigee)+1;
}
//天格 $bihua1=db::queryone($sql);
$db=D('sm_81');
$tiangearr = $db->where(array('num'=>$tiangee))->find();
$tiangearr['tiangee'] = $tiangee;
//人格 $bihua1=db::queryone($sql);
//$sql="select * from `sm_81` where num='".$rengee."'";
$rengearr=$db->where(array('num'=>$rengee))->find();
$rengearr['rengee'] = $rengee;
//地格 $bihua1=db::queryone($sql);
//$sql="select * from `sm_81` where num='".$digee."'";
$digearr=$db->where(array('num'=>$digee))->find();
$digearr['digee'] = $digee;
//外格 $bihua1=db::queryone($sql);
//$sql="select * from `sm_81` where num='".$waigee."'";
$waigearr=$db->where(array('num'=>$waigee))->find();
$waigearr['waigee'] = $waigee;
//总格 $bihua1=db::queryone($sql);
//$sql="select * from `sm_81` where num='".$zhongge."'";
$zonggearr=$db->where(array('num'=>$zhongge))->find();
$zonggearr['zonggee'] = $zhonggee;
$tian_sancai = M('mod_xingming')->getsancai($tiange);
$ren_sancai = M('mod_xingming')->getsancai($renge);
$di_sancai = M('mod_xingming')->getsancai($dige);
//print_r($ren_sancai);
//三才吉凶
$sancai=$tian_sancai.$ren_sancai.$di_sancai;
$db=D('sm_sancai');
//$sqlsancai="select * from `yzm_sm_sancai` where `title`='".$sancai."'";
$rssancai=$db->where(array('title'=>$sancai))->find();
$rssancai['sancai'] = $sancai;
$tdr_ge = array('renge'=>$renge,'tiange'=>$tiange,'dige'=>$dige,'tian_sancai'=>$tian_sancai,'ren_sancai'=>$ren_sancai,'di_sancai'=>$di_sancai,'waige'=>$waige,'waige_sancai'=>M('mod_xingming')->getsancai($waige),'zhongge'=>$zhongge,'zongge_sancai'=>M('mod_xingming')->getsancai($zhongge));
$xmdf=M('mod_xingming')->getpf($tiangearr['jx'])/10+M('mod_xingming')->getpf($rengearr['jx'])+M('mod_xingming')->getpf($digearr['jx'])+M('mod_xingming')->getpf($zonggearr['jx'])+M('mod_xingming')->getpf($waigearr['jx'])/10+M('mod_xingming')->getpf($rssancai['jx'])/4+M('mod_xingming')->getpf($rssancai['jx1'])/4+M('mod_xingming')->getpf($rssancai['jx2'])/4+M('mod_xingming')->getpf($rssancai['jx3'])/4;
if($zhonggee>60) {
$xmdf=$xmdf-4;
}
$xmdf=58+$xmdf;
$xmdf = round($xmdf);
if($xmdf>100) {
$xmdf = 100;
}
$allxing = $xing1.$xing2;
$allming = $ming1.$ming2;
$xingming = $allxing.$allming;
//print_r($xmdf);
$db=D('baijia_ming');
$minglist['name20']=$db->where(array('xid'=>rand(1,200)))->order('rand()')->limit('0,20')->select();
for ($i=0;$i<20;$i++) {
$minglist['mingname20'][$i] = substr($minglist['name20'][$i]['name'],3,6);
$zuixinming .= '<li><a href="/bjx/'.urlencode ($allxing).'/'.urlencode ($minglist['mingname20'][$i]).'.html" target="_blank">'.$allxing.$minglist['mingname20'][$i].'</a></li>';
}
$minglist['rand']=$db->where(array('xid'=>rand(1,200)))->order('rand()')->limit('0,20')->select();
$db=D('xinglist');
$xingarr20=$db->order('rand()')->limit('0,20')->select();
for ($i=0;$i<20;$i++) {
$randxingming20['ming'][$i]=substr($minglist['rand'][$i]['name'],3,6);
$qian20 .= '<li><a href="/bjx/'.urlencode ($xingarr20[$i]['xing']).'/'.urlencode ($randxingming20['ming'][$i]).'.html" target="_blank">'.$xingarr20[$i]['xing'].$randxingming20['ming'][$i].'</a></li>';
}
$xing1arr['yuyi'] = str_replace($xing1, '<span class="red">' . $xing1 . '</span>', $xing1arr['yuyi']);
$xing2arr['yuyi'] = str_replace($xing2, '<span class="red">' . $xing2 . '</span>', $xing2arr['yuyi']);
$ming1arr['yuyi'] = str_replace($ming1, '<span class="red">' . $ming1 . '</span>', $ming1arr['yuyi']);
$ming2arr['yuyi'] = str_replace($ming2, '<span class="red">' . $ming2 . '</span>', $ming2arr['yuyi']);
$xing1arr['jieshi'] = str_replace($xing1, '<span class="red">' . $xing1 . '</span>', $xing1arr['jieshi']);
$xing2arr['jieshi'] = str_replace($xing2, '<span class="red">' . $xing2 . '</span>', $xing2arr['jieshi']);
$ming1arr['jieshi'] = str_replace($ming1, '<span class="red">' . $ming1 . '</span>', $ming1arr['jieshi']);
$ming2arr['jieshi'] = str_replace($ming2, '<span class="red">' . $ming2 . '</span>', $ming2arr['jieshi']);
$db=D('baijia_xing');
$xingqiming=$db->order('rand()')->limit('0,18')->select();
for ($i=0;$i<18;$i++) {
$randqu[$i] = rand(0,60);
if($randqu[$i] > 50) {
$xingqiminghtml .= '<li><a href="/bjx/'.urlencode ($xingqiming[$i]['xing']).'/0-0.html" target="_blank">'.$xingqiming[$i]['xing'].'姓男孩名字单字</a></li>';
} elseif($randqu[$i] <10) {
$xingqiminghtml .= '<li><a href="/bjx/'.urlencode ($xingqiming[$i]['xing']).'/0-1.html" target="_blank">'.$xingqiming[$i]['xing'].'姓男孩名字双字</a></li>';
} elseif($randqu[$i] <20 && $randqu[$i] > 10) {
$xingqiminghtml .= '<li><a href="/bjx/'.urlencode ($xingqiming[$i]['xing']).'/0-2.html" target="_blank">'.$xingqiming[$i]['xing'].'姓男孩名字叠字</a></li>';
} elseif($randqu[$i] <30 && $randqu[$i] > 20) {
$xingqiminghtml .= '<li><a href="/bjx/'.urlencode ($xingqiming[$i]['xing']).'/1-0.html" target="_blank">'.$xingqiming[$i]['xing'].'姓女孩名字单字</a></li>';
} elseif($randqu[$i] <40 && $randqu[$i] > 30) {
$xingqiminghtml .= '<li><a href="/bjx/'.urlencode ($xingqiming[$i]['xing']).'/1-1.html" target="_blank">'.$xingqiming[$i]['xing'].'姓女孩名字双字</a></li>';
} else {
$xingqiminghtml .= '<li><a href="/bjx/'.urlencode ($xingqiming[$i]['xing']).'/1-2.html" target="_blank">'.$xingqiming[$i]['xing'].'姓女孩名字叠字</a></li>';
}
}
//print_r($xingqiminghtml);
$ismobile = ismobile() || isset($_GET['is_wap']) ? true : false;
if($ismobile) {
$targetDomain = "m.s17.ryzlk.com";
// 目标域名
$currentPath = $_SERVER['REQUEST_URI'];
// 获取当前页面路径
$_SERVER['HTTP_HOST'];
//=>s17.ryzlk.com
$_SERVER['REQUEST_SCHEME'];
//=> http
if($_SERVER['HTTP_HOST']!=$targetDomain) {
$newUrl = $_SERVER['REQUEST_SCHEME'].'://'.$targetDomain . "/" . ltrim($currentPath, '/');
header("Location: ".$newUrl);
}
include template('mobile','xmfx');
} else {
$targetDomain = "s17.ryzlk.com";
// 目标域名
$currentPath = $_SERVER['REQUEST_URI'];
// 获取当前页面路径
$_SERVER['HTTP_HOST'];
//=>s17.ryzlk.com
$_SERVER['REQUEST_SCHEME'];
//=> http
if($_SERVER['HTTP_HOST']!=$targetDomain) {
$newUrl = $_SERVER['REQUEST_SCHEME'].'://'.$targetDomain . "/" . ltrim($currentPath, '/');
header("Location: ".$newUrl);
}
include template('qm','xmfx');
}
}
相似程序（不带文章板块）：
诗词起名/姓名打分网源码/带康熙字典数据库/起名取名/汉字五行查询
起名网源码/取名姓名测算系统/带起名康熙字典数据库/姓名评分/百家姓系统