Add comment moderation in admin

core/helpers.asp

@@ -350,6 +350,10 @@ Function PostUrl(ByVal slug)
     PostUrl = "/posts/" & Server.URLEncode(NormalizeSlug(slug))
 End Function
 
+Function PostPath(ByVal slug)
+    PostPath = "/posts/" & NormalizeSlug(slug)
+End Function
+
 Function PostsUrl()
     PostsUrl = "/posts"
 End Function
@@ -382,6 +386,22 @@ Function AdminPostAIUrl(ByVal postId)
     AdminPostAIUrl = "/admin/posts/" & Server.URLEncode(CStr(postId)) & "/ai"
 End Function
 
+Function AdminCommentsUrl()
+    AdminCommentsUrl = "/admin/comments"
+End Function
+
+Function AdminCommentApproveUrl(ByVal commentId)
+    AdminCommentApproveUrl = "/admin/comments/" & Server.URLEncode(CStr(commentId)) & "/approve"
+End Function
+
+Function AdminCommentUnapproveUrl(ByVal commentId)
+    AdminCommentUnapproveUrl = "/admin/comments/" & Server.URLEncode(CStr(commentId)) & "/unapprove"
+End Function
+
+Function AdminCommentDeleteUrl(ByVal commentId)
+    AdminCommentDeleteUrl = "/admin/comments/" & Server.URLEncode(CStr(commentId)) & "/delete"
+End Function
+
 Function AdminAIPromptUrl()
     AdminAIPromptUrl = "/admin/ai-prompt"
 End Function