<%
CheckAdmin("AspCms_Message.asp")
dim action : action=getForm("action","get")
'定義類別ID，搜索關鍵詞，頁數，排序
dim SortID,keyword,page,order,pic,ID,tab
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" : editFaq
case "del" : delFaq
case "enable" :Enable
case "notenabled" :NotEnabled
end select
Dim FaqID,FaqTitle,Contact,ContactWay,Content,Reply,AddTime,ReplyTime,FaqStatus,AuditStatus
Sub gettab(faqid)
Dim oFCKeditor,sql,k
Dim kvArr
Dim dicType
Set dicType = Server.CreateObject(DICTIONARY_OBJ_NAME)
'取消只有產品
Dim rsObj,tabFields,rsObj1,i,tabNames
tabFields=""
sql = "select tabName,tabField,tabControlType from {prefix}tabSet order by tabOrder,tabID"
kvArr = Conn.Exec(sql,"arr")
if getDataCount("select Count(*) from {prefix}tabSet")>0 then
for i=0 to ubound(kvArr,2)
if dicType.Exists(kvArr(1,i)) then
dicType(kvArr(1,i)) = kvArr(2,i)
'echo "【rsObj(1)="&kvArr(1,i)&"】"
'echo "【rsObj('tabControlType')=" & kvArr(2,i) & "】"
'echo "【dicType('"&kvArr(1,i)&"')="&dicType(kvArr(1,i))&"】 "
else
'echo "添加" & kvArr(1,i) & " "
dicType.add kvArr(1,i),kvArr(2,i)
end if
if faqid=0 then
'添加
echo "
"
echo "
"&kvArr(0,i)&"
"
echo "
"
EchoControlType kvArr(2,i),kvArr(1,i),""
echo "
"
echo "
"
end if
tabFields=tabFields&kvArr(1,i)&","
tabNames=tabNames&kvArr(0,i)&","
next
if faqid<>0 and not isnul(tabFields) then
sql = "select "&tabFields&"faqid from {prefix}GuestBook where faqid="&faqid
Set rsObj1=Conn.Exec(sql,"r1")
tabNames=split(tabNames,",")
tabFields=split(tabFields,",")
Do While not rsObj1.Eof
for i=0 to ubound(tabNames)-1
echo "
"
next
rsObj1.MoveNext
Loop
rsObj1.Close : Set rsObj1=Nothing
end if
end if
set dicType = nothing
End Sub
'2011年7月21日
'by amysimple
'輸出控件類型
' ct 類型 cn 字段名 cv 值
Sub EchoControlType(ct,cn,cv)
'0 文本,1 數字,2 編輯器,3 附件,4 日期,5 顏色,6 單選,7 多選
select case ct
case 0
echo ""
case 1
echo ""
case 2
Set oFCKeditor = New FCKeditor:oFCKeditor.BasePath="../../editor/":oFCKeditor.ToolbarSet="AdminMode":oFCKeditor.Width="615":oFCKeditor.Height="300":oFCKeditor.Value=cv:oFCKeditor.Create ""&cn&""
case 3
echo ""
echo ""
if cv<>"" then echo "查看附件"
case 4
echo ""
case 5
echo ""
case 6
echo ""
case 7
echo ""
case else
echo ""
end select
End Sub
Sub delFaq
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}GuestBook where FaqID in("&id&")","exe"
alertMsgAndGo "刪除成功","?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub getContent
if not isnul(ID) then
Dim rs : Set rs = Conn.Exec("select * from {prefix}GuestBook where FaqID="&ID,"r1")
if not rs.eof then
FaqID=rs("FaqID")
FaqTitle=rs("FaqTitle")
Contact=rs("Contact")
ContactWay=rs("ContactWay")
Content=decode(rs("Content"))
Reply=rs("Reply")
AddTime=rs("AddTime")
FaqStatus=rs("FaqStatus")
AuditStatus=rs("AuditStatus")
end if
else
alertMsgAndGo "沒有這條記錄","-1"
end if
End Sub
Sub editFaq
FaqID=getForm("FaqID","post")
FaqTitle=getForm("FaqTitle","post")
Contact=getForm("Contact","post")
ContactWay=getForm("ContactWay","post")
Content=encode(getForm("Content","post"))
Reply=getForm("Reply","post")
AddTime=now()
ReplyTime=now()
FaqStatus=getCheck(getForm("FaqStatus","post"))
AuditStatus=getCheck(getForm("AuditStatus","post"))
if isnul(getForm("tab","post")) then
tab=split(",",",")
else
tab=split(getForm("tab","post"),",")
end if
dim tabStr : tabStr=""
dim sql
dim i :i=0
sql = "select tabField,tabControlType from {prefix}tabSet order by tabOrder,tabID"
dim rsObj : Set rsObj=Conn.Exec(sql,"r1")
Do While not rsObj.Eof
if rsObj(1) = 2 then
tabStr = tabStr & ","&rsObj(0)&"='" &encode(getForm(rsObj(0),"post")) & "'"
else
tabStr = tabStr & ","&rsObj(0)&"='" &getForm(rsObj(0),"post") & "'"
end if
i=i+1
rsObj.MoveNext
Loop
rsObj.Close : set rsObj=Nothing
if not isnul(Reply) then AuditStatus=1 else AuditStatus=0 end if
Conn.Exec"update {prefix}GuestBook set FaqTitle='"&FaqTitle&"',Content='"&Content&"',Reply='"&Reply&"',ReplyTime='"&ReplyTime&"',FaqStatus="&FaqStatus&",AuditStatus="&AuditStatus&""&tabStr&" where FaqID="&FaqID,"exe"
alertMsgAndGo "修改成功","AspCms_Message.asp?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub FaqList
dim datalistObj,rsArray
dim m,i,orderStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage,searchStr
numPerPage=10
orderStr= " order by FaqID desc"
if isNul(page) then page=1 else page=clng(page)
if page=0 then page=1
whereStr=" where 1=1 "
if not isNul(SortID) then whereStr=whereStr
if not isNul(keyword) then
whereStr = whereStr&" and (FaqTitle like '%"&keyword&"%' or Content like '%"&keyword&"%')"
end if
sqlStr = "select FaqID,Contact,FaqTitle,AddTime,FaqStatus,AuditStatus,ContactWay,Content,Reply,ReplyTime from {prefix}GuestBook "&whereStr&orderStr
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
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}GuestBook set FaqStatus=0 Where FaqID="&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}GuestBook set FaqStatus=1 Where FaqID="&id,"exe"
response.Redirect getPageName()&"?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
%>