邮件订阅,两个以上的订阅用户时, 所有的订阅用户发送的内容一样。
解决办法:增加红字部分
在admin/ks_usermail.asp中
大约21行左右
- Private Title, Content,sendername,senderemail, Numc,groupid,sendfile,Temp_Content
大约364行
- Content = Request.Form("mailtemplate")
- Content = Replace(Content,"{$GetSiteName}",KS.Setting(0))
- Content = Replace(Content,"{$GetSiteUrl}",KS.GetDomain)
- Content = Replace(Content,"{$SendDate}",Now)
-
Temp_Content=Content- GetMailContent
大约450行
- if Not KS.ISNul(SQL(0,i)) then
- ReturnInfo=SendMail(KS.Setting(12), KS.Setting(13), KS.Setting(14), Title, SQL(0,i),sendername, Replace(Content,"{$GetCancelUrl}",KS.GetDomain & "plus/mailsub.asp?action=del&id=" & sql(1,i) & "&activecode=" & sql(2,i)),senderemail)
- Content=Temp_Content
- IF ReturnInfo="OK" Then Numc=Numc+1
- end if