织梦CMS程序输出上下篇文章的方法

移动端上一篇下一篇文章调用如下：

<li>{dede:prenext get=pre runphp=yes}
$preurl = @me;
preg_match(‘/aid=(\d*)/‘,$preurl,$match);
$result = GetOneArchive($match[1]);
@me = !empty($result) ? "上一篇：<a href=\"/m{$result[‘arcurl‘]}\">{$result[‘title‘]}</a>" : "上一篇：没有了";
{/dede:prenext}</li><li>{dede:prenext get=next runphp=yes}
$preurl = @me;
preg_match(‘/aid=(\d*)/‘,$preurl,$match);
$result = GetOneArchive($match[1]);
@me = !empty($result) ? "下一篇：<a href=\"/m{$result[‘arcurl‘]}\">{$result[‘title‘]}</a>" : "下一篇：没有了";
{/dede:prenext}</li>

电脑版上一篇下一篇文章调用如下：

<li>
<a href="{dede:prenext get=pre runphp=yes}$url = @me;preg_match(‘/href=[\‘\"]?([^\‘\"]+)/‘, $url, $match);@me = $match[1];{/dede:prenext}">上一篇</a>
</li>
<li>
<a href="{dede:prenext get=next runphp=yes}$url = @me;preg_match(‘/href=[\‘\"]?([^\‘\"]+)/‘, $url, $match);@me = $match[1];{/dede:prenext}">上一篇</a>
</li>