DEDECMS 获取当前文档地址

　　我是在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'){