'**************************************************
  '函数名：Published
  '作  用：取得发布时间及版权信息
  '参  数：无
  '**************************************************
  Function Published()
   On Error Resume Next
    Published=vbcrlf &"<script src=""" & domainstr & "ks_inc/ajax.js""></script>" & vbcrlf
   If SysVer = 0 Then 
    Published = Published & "<!-- published at " & Now() & " by Kesion CMS  V4.0 Powered By Kesion.Com  -->" & vbCrLf
   Else
    Dim PublishInfo:PublishInfo = KS.Setting(15)
    If PublishInfo <> "0" Then
     Published = Published & "<!-- published at " & Now() & " " & PublishInfo & " -->" & vbCrLf
    End If
   End If
  End Function