KesionCMS X1.0后台批量退稿邮件通知给文章加链接的修改-领先建站CMS提供服务商我们专注于CMS建站产品的研发

1876 查看	2 回复

主题：[分享]KesionCMS X1.0后台批量退稿邮件通知给文章加链接的修改 [收藏主题]

科汛官方当前离线

47268 主题	145 广播	405 粉丝

级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
创始人

科汛官方发表于：2015/1/12 9:43:34 | 只看该作者查看该作者主题楼主

做官网就用科汛智能建站系统!

需求如题

修改方法

第一步：打开ks_cls/ks.administratorcls.asp

找到820行左右

'批量退稿
Sub Tuigao(ChannelID)
Dim RS,Content
Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select a.*,b.mobile From " & KS.C_S(ChannelID,2) & " a left join KS_User b on a.inputer=b.username Where a.Verific<>1 And a.ID In(" & KS.FilterIDs(KS.G("ID")) & ")",conn,1,3
Do While Not RS.Eof
   RS("Verific")=3
   RS.Update
   '发站内短信通知
   If Request("Email")="1" Then
   Content=Request("MailContent")
   Content=Replace(Content,"{$Title}",RS("Title"))
   Content=Replace(Content,"{$Url}",KS.GetDomain &"Item/Show.asp?m=" & channelid &"&d=" & rs("id"))
   Content=Replace(Content,"{$UserName}",RS("Inputer"))
   Call KS.SendInfo(RS("Inputer"),KS.Setting(0),"退稿通知",Content)
   End If
   '发手机短信通知
   If Request("sms")="1" And KS.Setting(157)="1" Then
      Dim Mobile:Mobile=RS("Mobile")
   If Not KS.IsNul(Mobile) Then
   Content=Request("SmsContent")
   Content=Replace(Content,"{$Title}",RS("Title"))
   Content=Replace(Content,"{$Url}",KS.GetDomain &"Item/Show.asp?m=" & channelid &"&d=" & rs("id"))
   Content=Replace(Content,"{$UserName}",RS("Inputer"))
   Call KS.SendMobileMsg(Mobile,Content)
   End If
   End If
   RS.MoveNext
Loop
RS.Close
Set RS=Nothing

增加以上红色代码。

第二步，打开admin/system/ks.iteminfo.asp

找到文件最后，如下代码，红色部分为修改的地方，请根据实际情况做修改

Sub TG()
  %>
  <!DOCTYPE html><html>
  <head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <link href="../Include/Admin_Style.CSS" rel="stylesheet" type="text/css">
  </head>
  <body>
  <form name='rform' action="KS.ItemInfo.asp" method='post'>
  <div style='margin-top:10px;text-align:center'>
  <input type="hidden" name="action" value="Tuigao"/>
  <input type='hidden' name='channelid' value='<%=ChannelID%>'>
  <input type='hidden' name='Id' value='<%=request("IDs")%>'>
  <div style="text-align:left;padding-left:10px;"><strong>站内短信内容：</strong><label><input type='checkbox' value='1' name='Email' checked>发送站内短信通知</label></div> <br/>
<textarea name='MailContent' id='MailContent' style='width:450px;height:130px'>您好{$UserName}，您发布的稿件“<a href="{$Url}" target="_blank">{$Title}</a>”不符合本站要求，请修改后再重新提交！</textarea>
  <%If KS.Setting(157)="1" Then%>
  <div style="text-align:left;padding-left:10px;"><br/><strong>手机短信内容：</strong><label><input type='checkbox' value='1' name='sms' checked>发送手机短信通知</label></div> <br/>
  <textarea name='SmsContent' id='SmsContent' style='width:450px;height:100px'>您好{$UserName}，在网站{$sitename}发表的稿件“{$Title}”不符合本站要求，请修改后再重新提交！</textarea>
  <br/>
   <%End If%>
  <input type='submit' value='确定退稿' class='button'>
  </div>
  </form>
  </body>
  </html>
  <%
  End Sub