此文章整理自动易论坛.

原文网址

http://bbs.powereasy.net/dispbbs.asp?boardid=67&replyid=200465&id=351920&page=1&skin=0&Star=1

在此感谢razxy还有rhongsheng版主 的无私提供

1.先完成下面几个步骤

第一步：在后台任一文章频道 自定义字段管理中，添加一个新字段，配置如下：
    使用范围：所有同类频道
    字段名称：MY_upart
    字段标题：顶
    字段说明：任意
    调用标签：{$MY_upart}
    字段类型：单行文本
    默认值：0
    是否必填：是

确认输入无错后，保存修改。

第二步：下载附件一，得到2个文件，分别是:install_ding.asp  ding.asp，这两个文件都放在与conn.asp同级目录下。

第三步：如果你的网站目前没有录入文章是一个空表，可以跳过此步。如果你的文章模块已有数据，请执行此操作，在浏览器执行install_ding.asp，操作完成后务必删除该文件！(操作前最好备份数据库防止意外发生)

2、完成以上步骤后，再建立一个自定义函数标签：

标签名称：{$MY_channelarticlelist(查询数量,频道ID,文章字数,栏目ID)}

查询语句：select top {input(0)} ArticleID,ClassID,Title,Author,CopyFrom,UpdateTime,Hits,Keyword,CommentCount,MY_upart from PE_Article Where ChannelID={input(1)} and Status=3 and Deleted=False Order by MY_upart Desc

网页表格：

{Loop}{Infobegin}
  <table cellSpacing=0 cellPadding=0 width="100%" border=0>
    <tr>
      <td class=uline align=middle width="7%"><B>{$AutoID}</B></td>
      <td class=uline align=left width="30%" height=28><A class=x href="{$InstallDir}{$Field(0,GetUrl,Article,1)}" target=_blank>{$Field(2,Text,{input(2)},2,0)}</A></td>
      <td class=uline align=middle width="16%">{$Field(3,Text,0,0,0)}</td>
      <td align=middle class=uline><iframe src="/ding1.asp?articleid={$Field(0,Text,0,0,0)}" width="100" height="22" scrolling="no" frameborder="0"></iframe></td>
      <td class=uline align=middle width="8%">{$Field(8,Num,0,0)}</td>
      <td class=uline align=middle width="15%">{$Field(5,Time,0,{year}-{month}-{day})}</td>
    </tr>
{Infoend}{/Loop}
    <tr>
      <td align=right colSpan=7 height=10></td>
    </tr>
  </table>

上面那个红字就是投票和显示票数的地方

按以上代码建成一个函数标签后，比如{$MY_channelarticlelistfc(100,{$ChannelID},30,{$ClassID})}

如果要使用自动刷新及分页功能的话,模板里一定要有<SCRIPT src="/JS/prototype.js"></SCRIPT><SCRIPT src="/JS/scriptaculous.js"></SCRIPT><SCRIPT src="/JS/checklogin.js"></SCRIPT>这三个JS文件,否则会script报错,如果不要分页和自动刷新,可以去掉以加速访问速度。

插入到你想要的地方！

3、下载附件二解压后将ding1.asp传入根目录！

4、手工将数据库的MY_upart自定义字段变成数字型

--------------------------------------------------------------------------------------

另外提醒大家，注意打开SQL防注入开关。

--------------------------------------------------------------------------------------

将文件放在频道目录的修改方法,

方法1.将文件放置在频道目录中，然后将ding1.asp第1、2行修改为
<!--#include file="../conn.asp" -->
<!--#include file="../inc/function.asp" -->

方法2：文件仍放在根目录，修改sql = "select MY_upart from PE_Article where Deleted=" & PE_False & " and Status=3 and ArticleID=" & ArticleID & ""
修改为
sql = "select PE_Article.MY_upart,PE_Channel.ChannelDir from PE_Article,PE_Channel where PE_Article.ChannelID=PE_Channel.ChannelID and PE_Article.Deleted=" & PE_False & " and PE_Article.Status=3 and PE_Article.ArticleID=" & ArticleID & ""

效果图:

附件一下载

附件二下载