我是在DEDECMS2007下做的，不知道这篇文章是否多余，DEDECMS调用很方便，但是我找了很久没有
找到调用当前文档的方法，故做了以下教程：DEDECMS 获取当前文档地址。
修改方法如下：
修改include/inc_archives_view.php
找到
//--------------------------
//获取上一篇，下一篇链接
//--------------------------
function GetPreNext($gtype='')
{
$rs = "";
if(count($this->PreNext)<2)
{
$aid = $this->ArcID;
$next = " xkzzz_archives.ID>'$aid' And xkzzz_archives.arcrank>-1 order by xkzzz_archives.ID asc ";
$pre = " xkzzz_archives.ID<'$aid' And xkzzz_archives.arcrank>-1 order by xkzzz_archives.ID desc ";
$query = "Select xkzzz_archives.ID,xkzzz_archives.title,
xkzzz_archives.typeid,xkzzz_archives.ismake,xkzzz_archives.senddate,
xkzzz_archives.arcrank,xkzzz_archives.money,
xkzzz_arctype.typedir,xkzzz_arctype.typename,xkzzz_arctype.namerule,xkzzz_arctype.namerule2,
xkzzz_arctype.ispart,
xkzzz_arctype.moresite,xkzzz_arctype.siteurl
from xkzzz_archives left join xkzzz_arctype on xkzzz_archives.typeid=xkzzz_arctype.ID
where ";
$nextRow = $this->dsql->GetOne($query.$next);
$preRow = $this->dsql->GetOne($query.$pre);
if(is_array($preRow)){
$mlink = GetFileUrl($preRow['ID'],$preRow['typeid'],$preRow['senddate'],$preRow['title'],
$preRow['ismake'],$preRow['arcrank'],$preRow['namerule'],$preRow['typedir'],
$preRow['money'],true,$preRow['siteurl']);
$this->PreNext['pre'] = "上一篇：<a href='$mlink'>{$preRow['title']}</a> ";
}
else{
$this->PreNext['pre'] = "上一篇：没有了 ";
}
if(is_array($nextRow)){
$mlink = GetFileUrl($nextRow['ID'],$nextRow['typeid'],$nextRow['senddate'],
$nextRow['title'],$nextRow['ismake'],
$nextRow['arcrank'],$nextRow['namerule'],$nextRow['typedir'],
$nextRow['money'],true,$nextRow['siteurl']);
$this->PreNext['next'] = "下一篇：<a href='$mlink'>{$nextRow['title']}</a> ";
}
else{
$this->PreNext['next'] = "下一篇：没有了 ";
}
}
if($gtype=='pre'){
欢迎使用微视媒-源码测试 经验教程 小程序源码 设计资源, 该资源来自用户分享，如果损害了你的权利，请提交站内信由技术处理。
1:此资源为内部分享交流，仅供学习参考借鉴使用，请勿用于其他用途。请以学习技术参考理念为目的使用该资源，如果想商用，请自行联系版权方获取授权后使用。任何未获取授权的商业使用与本站无关，请自行承担相应责任。
2：本站所有资源仅供技术人员研究学习使用，本站不存储任何资源文件！
3：本站信息若非特殊注明均为会员搜集发布，本站不对资源提供任何技术支持，请自行研究学习。
4：本站客服仅对站点使用提供咨询解答，不涉及任何资源内容信息。
5：本站不销售任何资源，我们仅提供技术交流分享服务。
6：如果此资源信息对你的权益造成困扰，请提交站内信由技术处理，我们会及时处理相关信息并且通知相关会员。
