问题如题：

解决方法：

打开ks_cls/kesion.membercls.asp

找到

'刷新添加时间
     Sub RefreshInfo(TableName)
     If KS.ChkClng(Split(KS.C_S(KS.G("ChannelID"),46)&"||||","|")(3))="0" Then
      KS.AlertHintScript "对不起，本频道没有开通此功能!"
     End If
   If KS.ChkClng(KS.U_S(GroupID,12))=0 Then
     KS.AlertHintScript "对不起，您没有使用此功能的权限，请联系本站管理员!"
   End If
     Dim rsf:set rsf=server.createobject("adodb.recordset")
      rsf.open "select top 1 adddate from [" & TableName & "] where inputer='" & UserName & "' and id=" & ks.chkclng(ks.g("id")),conn,1,3
      if rsf.eof then
        rsf.close:set rsf=nothing
       KS.AlertHintScript "参数传递出错！"
      end if
      Dim refreshtime:refreshtime=rsf(0)
      Dim NextTime:NextTime=DateAdd("n",KS.U_S(GroupID,12),refreshtime)
      if datediff("s",NextTime,now)<1 then
       rsf.close:set rsf=nothing
                KS.AlertHintScript "对不起，每次刷新间隔" & KS.U_S(GroupID,12) & "分钟，本条信息下次的刷新时间为" & NextTime & "以后!"
      else
        rsf(0)=now
     rsf.update
      end if
      rsf.close:set rsf=nothing
      KS.AlertHintScript "恭喜，刷新成功!"
  End Sub

修改为：

'刷新添加时间
     Sub RefreshInfo(TableName)
     If KS.ChkClng(Split(KS.C_S(KS.G("ChannelID"),46)&"||||","|")(3))="0" Then
      KS.Die "<script language=JavaScript>$.dialog.alert('对不起，本频道没有开通此功能!',function(){location.replace('" & Request.ServerVariables("HTTP_REFERER") &"');});</script>"
     End If
   If KS.ChkClng(KS.U_S(GroupID,12))=0 Then
      KS.Die "<script language=JavaScript>$.dialog.alert('对不起，您没有使用此功能的权限，请联系本站管理员!',function(){location.replace('" & Request.ServerVariables("HTTP_REFERER") &"');});</script>"
   End If
     Dim rsf:set rsf=server.createobject("adodb.recordset")
      rsf.open "select top 1 adddate from [" & TableName & "] where inputer='" & UserName & "' and id=" & ks.chkclng(ks.g("id")),conn,1,3
      if rsf.eof then
        rsf.close:set rsf=nothing
     KS.Die "<script language=JavaScript>$.dialog.alert('参数传递出错！',function(){location.replace('" & Request.ServerVariables("HTTP_REFERER") &"');});</script>"
      end if
      Dim refreshtime:refreshtime=rsf(0)
      Dim NextTime:NextTime=DateAdd("n",KS.U_S(GroupID,12),refreshtime)
      if datediff("s",NextTime,now)<1 then
       rsf.close:set rsf=nothing
      KS.Die "<script language=JavaScript>$.dialog.alert('对不起，每次刷新间隔" & KS.U_S(GroupID,12) & "分钟，本条信息下次的刷新时间为" & NextTime & "以后!',function(){location.replace('" & Request.ServerVariables("HTTP_REFERER") &"');});</script>"
      else
        rsf(0)=now
     rsf.update
      end if
      rsf.close:set rsf=nothing
      KS.Die "<script language=JavaScript>$.dialog.alert('恭喜，刷新成功!',function(){location.replace('" & Request.ServerVariables("HTTP_REFERER") &"');});</script>"
  End Sub