<%CheckAdmin("AspCms_Custom.asp")%>
<%
dim action : action=getForm("action","get")
'定義類別ID，搜索關鍵詞，頁數，排序
dim SortID,keyword,page,order,pic,ID,aForm
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" : editCustom
case "del" : delCustom
case "enable" :Enable
case "notenabled" :NotEnabled
end select
Dim CustomID,CustomTitle,Contact,ContactWay,Content,Reply,AddTime,ReplyTime,CustomStatus,AuditStatus
Sub getaForm(Customid)
Dim oFCKeditor,sql,k
Dim kvArr
Dim dicType
Set dicType = Server.CreateObject(DICTIONARY_OBJ_NAME)
'取消只有產品
Dim rsObj,FormFields,rsObj1,i,FormNames
FormFields=""
sql = "select FormName,FormField,FormControlType from {prefix}FormSet order by FormOrder,FormID"
kvArr = Conn.Exec(sql,"arr")
if getDataCount("select Count(*) from {prefix}FormSet")>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 Customid=0 then
'添加
echo "
"
echo "
"&kvArr(0,i)&"
"
echo "
"
EchoControlType kvArr(2,i),kvArr(1,i),""
echo "
"
echo "
"
end if
FormFields=FormFields&kvArr(1,i)&","
FormNames=FormNames&kvArr(0,i)&","
next
if Customid<>0 and not isnul(FormFields) then
sql = "select "&FormFields&"Customid from {prefix}Custom where Customid="&Customid
Set rsObj1=Conn.Exec(sql,"r1")
FormNames=split(FormNames,",")
FormFields=split(FormFields,",")
Do While not rsObj1.Eof
for i=0 to ubound(FormNames)-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 delCustom
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}Custom where CustomID 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}Custom where CustomID="&ID,"r1")
if not rs.eof then
CustomID=rs("CustomID")
AddTime=rs("AddTime")
CustomStatus=rs("CustomStatus")
AuditStatus=rs("AuditStatus")
end if
else
alertMsgAndGo "沒有這條記錄","-1"
end if
End Sub
Sub editCustom
CustomID=getForm("CustomID","post")
AddTime=now()
CustomStatus=getCheck(getForm("CustomStatus","post"))
AuditStatus=getCheck(getForm("AuditStatus","post"))
if isnul(getForm("aForm","post")) then
aForm=split(",",",")
else
aForm=split(getForm("aForm","post"),",")
end if
dim FormStr : FormStr=""
dim sql
dim i :i=0
sql = "select FormField,FormControlType from {prefix}FormSet order by FormOrder,FormID"
dim rsObj : Set rsObj=Conn.Exec(sql,"r1")
Do While not rsObj.Eof
if rsObj(1) = 2 then
FormStr = FormStr & ","&rsObj(0)&"='" &encode(getForm(rsObj(0),"post")) & "'"
else
FormStr = FormStr & ","&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}Custom set CustomStatus="&CustomStatus&",AuditStatus="&AuditStatus&""&FormStr&" where CustomID="&CustomID,"exe"
alertMsgAndGo "修改成功","AspCms_Message.asp?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub CustomList
dim datalistObj,rsArray
dim m,i,orderStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage,searchStr
numPerPage=10
orderStr= " order by CustomID 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 (CustomTitle like '%"&keyword&"%' or Content like '%"&keyword&"%')"
end if
sqlStr = "select CustomID,AddTime,CustomStatus,AuditStatus from {prefix}Custom "&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}Custom set CustomStatus=0 Where CustomID="&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}Custom set CustomStatus=1 Where CustomID="&id,"exe"
response.Redirect getPageName()&"?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
%>