问题：

邮件订阅现在是发送所有订阅栏目中最新的文章，这样有一个弊端，假如其中一个栏目更新较多，别的栏目更新少的话，订阅邮件发送的就基本上是这一个栏目的内容了，能否改为按照订阅栏目自动发送每个栏目的最新几篇文章而不是全部栏目的最新文章？

解决：

打开admin/KS.UserMail.asp,找到405行左右

Sub GetMailContent()

    Dim Rs,SendNum,SendDay,Param,sql

    SendNum=KS.ChkClng(KS.S("SendNum"))

    SendDay=KS.ChkClng(KS.S("SendDay"))

    If SendNum=0 Then SendNum=10

    Param="Where I.Verific=1 And C.MailTF=1"

    If SendDay<>0 Then

      Param=Param & " and datediff(" & DataPart_D & ",i.adddate," & SQLNowString &")<" & SendDay

    End If

    sql="Select top " & SendNum & " i.id,i.title,i.adddate,i.tid,I.ChannelID,i.InfoID,I.Fname From KS_ItemInfo I Inner Join KS_Class C On I.Tid=C.ID "& Param & " Order By i.Id Desc"

    Set RS=Server.CreateObject("ADODB.RECORDSET")

    RS.Open sql,conn,1,1

    If Not RS.Eof Then

      BodySQL=RS.GetRows(-1)

    End If

    RS.Close

    Set RS=Nothing

  End Sub

将上面红色的改成

以下内容只有回复后才可以浏览,请先登录！

其中top 5限定每个栏目只取的条数