'参数 username 用户 note 备注 ico图标 1评论 2添加文章 0通用
  Sub AddLog(username,note,ico)

   if groupid=1 then exit sub
    Conn.Execute("Insert Into KS_UserLog([username],[note],[adddate],[ico]) values('" & UserName & "','" & replace(note,"'","""") & "'," & SqlNowString & "," & ico & ")")
  End Sub

增加上面红色的那行即可