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

解决：

打开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

将上面红色的改成

学习

kankan