<%
CheckAdmin("AspCms_Comments.asp")
'定義類別ID，搜索關鍵詞，頁數，排序
dim action : action=getForm("action","get")
dim SortID,keyword,page,order,pic,ID
SortID =getForm("sort","get")
keyword=getForm("keyword","post")
if isnul(keyword) then keyword=getForm("keyword","get")
page=getForm("page","get")
order=getForm("order","get")
pic=getForm("pic","get")
ID=getForm("id","get")
select case action
case "edit" : editComment
case "del" : delComment
case "enable" :Enable
case "notenabled" :NotEnabled
end select
Dim CommentsID,CommentTitle,Contact,ContactWay,Content,Reply,AddTime,ReplyTime,CommentStatus,AuditStatus
Sub delComment
Dim id : id=getForm("id","both")
if isnul(id) then alertMsgAndGo "請選擇要刪除的內容","-1"
SortID =getForm("sort","get")
keyword=getForm("keyword","get")
page=getForm("page","get")
order=getForm("order","get")
pic=getForm("pic","get")
Conn.Exec "delete from {prefix}Comments where CommentsID in("&id&")","exe"
alertMsgAndGo "刪除成功","?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub CommentList
dim datalistObj,rsArray
dim m,i,orderStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage,searchStr
numPerPage=10
orderStr= " order by CommentStatus desc,a.AddTime desc"
if isNul(page) then page=1 else page=clng(page)
if page=0 then page=1
whereStr=" where a.ContentID=b.ContentID and c.SortID=b.SortID"
if not isNul(SortID) then whereStr=whereStr
if not isNul(keyword) then
whereStr = whereStr&" and (Commentator like '%"&keyword&"%' or CommentContent like '%"&keyword&"%')"
end if
sqlStr = "select CommentsID,Commentator,CommentContent,a.AddTime,CommentStatus,a.ContentID,b.SortID,SortType,SortFolder,ContentFolder,ContentFileName,b.PageFileName,b.GroupID,c.GroupID,b.ContentID,b.AddTime from {prefix}Comments as a,{prefix}Content as b,{prefix}Sort as c "&whereStr&orderStr
dim templateobj,templatePath : set templateobj = new TemplateClass
set rsObj = conn.Exec(sqlStr,"r1")
rsObj.pagesize = numPerPage
allRecordset = rsObj.recordcount : allPage= rsObj.pagecount
if page>allPage then page=allPage
if allRecordset=0 then
if not isNul(keyword) then
echo "
關鍵字 """&keyword&""" 沒有記錄
"
else
echo "
還沒有記錄!
"
end if
else
rsObj.absolutepage = page
for i = 1 to numPerPage
echo "
"&vbcrlf
end if
rsObj.close : set rsObj = nothing
set templateobj =nothing : terminateAllObjects
End Sub
Sub NotEnabled
SortID =getForm("sort","get")
keyword=getForm("keyword","get")
page=getForm("page","get")
order=getForm("order","get")
Dim id : id=getForm("ID","get")
Conn.Exec"update {prefix}Comments set CommentStatus=0 Where CommentsID="&id,"exe"
response.Redirect getPageName()&"?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub Enable
SortID =getForm("sort","get")
keyword=getForm("keyword","get")
page=getForm("page","get")
order=getForm("order","get")
Dim id : id=getForm("ID","get")
Conn.Exec"update {prefix}Comments set CommentStatus=1 Where CommentsID="&id,"exe"
response.Redirect getPageName()&"?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
%>