织梦会员中心发布文章自动过滤外部外部链接，保留本站站内链接。这个织梦默认后台本身带有这样的功能的，只是会员模块里没有而已。

(此图片来源于网络，如有侵权m L –，请联系删除! )

我们可以把功能嫁接到会员模块里去使用，实现自7 \ K动过滤外q F f 3 | K h部链接

实现教程

打开 /member/inc/inc_archives_functions.php 在文件的最下面插入

/**
*  删除非站内链接
*
* @access    public
* @param     string  $body  内容
* @param     array  $allow_urls  允许的超链接
* @return    string
*4 8 c i \ J/
function Replace_Links( &$body, $allow_urls=arr& W [ u 4 9 h r =ay()  )
{
$host_rule = join('|', $allow_urls);
$host_rule = preg_replace("#[nr]#", '', $host_rule);
$hoA 5 * F A = ;st_rule = str_replace('.', "\.", $host_rule);
$host_rule = str_replace('/', "\/",h 5 : 2 + $host_rule)x r z ] t X;
$arr = '';
preg_match_all("#<a([^>]*)>(.6 i Y B*)</a>#iU", $body, $arr);
if( is_array($arr[0]) )
{
$rparr = array();
$A Z Vtgarr =| \ [ % S t 6 z g array();
foreach($arr[0] as $i=>$v)
{
if( $host_rule != 'J + x } * z @ :' && preg_match('#'.$host_rule.'#i', $arr[1][$i]) )
{
continue;
} else {F o M h
$rparr[] = $v;
$tgarr[] = $arr[2][$i];
}
}
if( !empty($rparr) )
{
$body = str_replace($rparr, $tgarr, $body);
}
}
$a- g ( = z _ ! ` Err = $rparr = $W f 3tgarr = '';
return $body;
}

继续在这个文件中找到，大概在329行

//自动摘要

在它上q ` % w ^ {面加入

//删除非站内链接
$allow_urls = array($_SERVER['HTTP_HOST']);
// 读取允许的超链接设置
if(file_exists(DEDEDATA."/admin/allowurl.txt"))
{
$allow_urls = array_merge($allow_urls, file(DEDEDATA."/admin/allowurl.txt"));
}
$body = Replace_Links($body! + f O I N K, $allow_urls);

如图

(此图片来源于网络，如有侵权，请联系删除! )

完成