<%
'die debugmode
dim action : action=getForm("action","get")
dim ContentID, LanguageID, SortID, GroupID, Exclusive, Title, Title2, TitleColor, IsOutLink, OutLink, Author, ContentSource, ContentTag, Content, ContentStatus, IsTop, IsRecommend, IsImageNews, IsHeadline, IsFeatured, ContentOrder, IsGenerated, Visits, AddTime, ImagePath, IndexImage,ShoujiImage, DownURL, PageTitle, PageKeywords, PageDesc, PageFileName, spec, EditTime,DownGroupID,IsNoComment,Star,Timeing,TimeStatus,VideoGroupID,CHvalue,SpecCategory
'SpecCategory用於判斷是哪個類型的自定義參數
dim sortType, keyword, page, psize, order, ordsc, sortTypeName
sortType=getForm("sortType","get")
if isnul(sortType) then sortType=0
sortid=getForm("sortid","post")
if isnul(sortid) then sortid=getForm("sortid","get")
keyword=getForm("keyword","post")
if isnul(keyword) then keyword=getForm("keyword","get")
page=getForm("page","get")
psize=getForm("psize","get")
order=getForm("order","get")
ordsc=getForm("ordsc","get")
DownGroupID=getForm("DownGroupID","post")
VideoGroupID=getForm("VideoGroupID","post")
select case sortType
case "2"
sortTypeName ="文章"
SpecCategory = "C"
case "3"
sortTypeName ="持續課程"
SpecCategory = "P"
case "4"
sortTypeName ="課程"
SpecCategory = "DL"
case "5"
sortTypeName ="招聘"
SpecCategory = "HR"
case "6"
sortTypeName ="相冊"
SpecCategory = "FO"
case "8"
sortTypeName = "視頻"
SpecCategory = "VI"
end select
'單篇1,文章2,產品3,下載4,招聘5,相冊6,鏈接7，視頻8
Select case action
case "add" : addContent
case "adds" : addsContent
case "edit" : editContent
case "move" : moveContent
case "copy" : copyContent
case "rpost" : rpostContent
case "del" : delContent
case "recovery" : Recovery
case "tdel" : trueDelContent
case "on" : onOff "on", "Content", "ContentID", "ContentStatus", "", getPageName()&"?sortType="&sortType&"&sortid="&sortid&"&keyword="&keyword&"&page="&page&"&psize="&psize&"&order="&order&"&ordsc="&ordsc
case "off" : onOff "off", "Content", "ContentID", "ContentStatus", "", getPageName()&"?sortType="&sortType&"&sortid="&sortid&"&keyword="&keyword&"&page="&page&"&psize="&psize&"&order="&order&"&ordsc="&ordsc
case "order" : UpdateOrder
End Select
Sub getSpec(Contentid)
Dim oFCKeditor,sql,k
Dim kvArr
Dim dicType
Set dicType = Server.CreateObject(DICTIONARY_OBJ_NAME)
'取消只有產品
Dim rsObj,specFields,rsObj1,i,SpecNames
specFields=""
sql = "select SpecName,SpecCategory+'_'+SpecField,SpecControlType,SpecOptions from {prefix}SpecSet where SpecCategory = '"&SpecCategory&"' order by SpecOrder,SpecID"
kvArr = Conn.Exec(sql,"arr")
if getDataCount("select Count(*) from {prefix}SpecSet where SpecCategory = '"&SpecCategory&"'")>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('SpecControlType')=" & kvArr(2,i) & "】"
'echo "【dicType('"&kvArr(1,i)&"')="&dicType(kvArr(1,i))&"】"
echo ""&kvArr(0,i)&" "
echo ""
EchoControlType kvArr(2,i),kvArr(1,i),"",CHvalue
echo " "
echo " "
end if
specFields=specFields&kvArr(1,i)&","
SpecNames=SpecNames&kvArr(0,i)&","
next
if Contentid<>0 and not isnul(specFields) then
sql = "select "&specFields&"Contentid from {prefix}Content where Contentid="&Contentid
Set rsObj1=Conn.Exec(sql,"r1")
SpecNames=split(SpecNames,",")
specFields=split(specFields,",")
Do While not rsObj1.Eof
for i=0 to ubound(SpecNames)-1
if kvArr(3,i)="" then
CHvalue=""
else
CHvalue=kvArr(3,i)
end if
echo ""
echo ""&trim(SpecNames(i))&"： "
echo ""
'echo " "
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,CHvalue)
'0 文本,1 數字,2 編輯器,3 附件,4 日期,5 顏色,6 單選,7 多選
dim splitValue,i,ii,strr
select case ct
case 0
echo "查看附件 "
case 4
echo "關鍵字 """&keyword&""" 沒有記錄 還沒有記錄! 定時發布:"& rsObj("Timeing") &" ]"
if not isnul(rsObj("IndexImage")) then getIndexImage=""&vbcrlf& _
""&rsObj(0)&" "&vbcrlf& _
""&rsObj(1)&" 頭 ]","")&getStr(rsObj("IsFeatured"),"[特 ]","")&getStr(rsObj("IsTop"),"[首頁Banner ]","")&getStr(rsObj("IsRecommend"),"[藏 ]","")&getStr(rsObj("IsImageNews"),"[焦點 ]","")&getStr(rsObj("IsOutLink"),"[鏈 ]","")&getIndexImage&rpoststr&""&rsObj("SortName")&" "&vbcrlf& _
""&rsObj(5)&" "&vbcrlf& _
""&getStr(rsObj(3)," "&vbcrlf& _
" "&vbcrlf
rsObj.movenext
if rsObj.eof then exit for
next
echo""&vbcrlf& _
""&vbcrlf& _
"頁數："&page&"/"&allPage&" 每頁"&numPerPage &" 總記錄數"&allRecordset&"條 首頁 上一頁 "&vbcrlf
dim pageNumber
pageNumber=makePageNumber_(page, 10, allPage, "newslist",sortID, order,keyword)
echo pageNumber
echo"下一頁 尾頁 "&vbcrlf
echo"每頁顯示"&getPageSize("10",psize)&getPageSize("20",psize)&getPageSize("30",psize)&getPageSize("50",psize)
echo"條"&vbcrlf& _
" "&vbcrlf& _
" "&vbcrlf
end if
rsObj.close : set rsObj = nothing
End Sub
Sub listContent_
dim i,orderStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage
numPerPage=psize
if not isnum(numPerPage) then numPerPage=10
if isnul(order) then order="ContentID"
if isnul(ordsc) then ordsc="desc"
if isNul(page) then page=1 else page=clng(page)
if page=0 then page=1
orderStr=" order by "&order&" "&ordsc
whereStr=" where a.LanguageID="&rCookie("languageID")
if not isNul(sortid) and sortid<>"0" then whereStr=whereStr&" and a.SortID="&SortID
if not isNul(keyword) then whereStr = whereStr&" and Title like '%"&keyword&"%'"
sqlStr = "select ContentID,Title,visits,ContentStatus,a.SortID,a.AddTime,IsTop,a.IndexImage,ContentOrder,SortName,IsRecommend,TitleColor from {prefix}Content as a, {prefix}Sort as b"&whereStr&" and a.SortID=b.SortID and ContentStatus=2 "&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&""" 沒有記錄 還沒有記錄! "&vbcrlf& _
""&rsObj(0)&" "&vbcrlf& _
""&rsObj(1)&" "&""&rsObj("SortName")&" "&vbcrlf& _
""&rsObj(5)&" "&vbcrlf& _
""&" "&vbcrlf& _
" 恢復 刪除 "&vbcrlf& _
" "&vbcrlf
rsObj.movenext
if rsObj.eof then exit for
next
echo""&vbcrlf& _
""&vbcrlf& _
"頁數："&page&"/"&allPage&" 每頁"&numPerPage &" 總記錄數"&allRecordset&"條 首頁 上一頁 "&vbcrlf
dim pageNumber
pageNumber=makePageNumber_(page, 10, allPage, "newslist",sortID, order,keyword)
echo pageNumber
echo"下一頁 尾頁 "&vbcrlf
echo"每頁顯示"&getPageSize("10",psize)&getPageSize("20",psize)&getPageSize("30",psize)&getPageSize("50",psize)
echo"條"&vbcrlf& _
" "&vbcrlf& _
" "&vbcrlf
end if
rsObj.close : set rsObj = nothing
End Sub
'"&sortid="&sortid&"&keyword="&keyword&"&page="&page&"&psize="&psize&"&order="&order&"&ordsc="&ordsc&""
Function getPageSize(ps,nps)
if isnul(nps) then nps="10"
if ps=nps then
getPageSize=""&ps&" "
else
getPageSize=""&ps&" "
end if
End Function
Sub updateOrder
Dim ids : ids=split(getForm("nid","post"),",")
Dim orders : orders=split(getForm("order","post"),",")
If Ubound(ids)=-1 Then '防止有值為空時下標越界
ReDim ids(0)
ids(0)=""
End If
If Ubound(orders)=-1 Then
ReDim orders(0)
orders(0)=0
End If
Dim i
For i=0 To Ubound(ids)
if isnum(trim(orders(i))) then
Conn.Exec "update {prefix}Content Set ContentOrder="&trim(orders(i))&" Where ContentID="&trim(ids(i)),"exe"
else
Conn.Exec "update {prefix}Content Set ContentOrder=0 Where ContentID="&trim(ids(i)),"exe"
end if
Next
alertMsgAndGo "更新排序成功",getPageName()&"?sortType="&sortType&"&sortid="&sortid&"&keyword="&keyword&"&page="&page&"&psize="&psize&"&order="&order&"&ordsc="&ordsc
End Sub
Function addTags(tags)
dim sql,rs,tag,tagIDs
tags=split(tags,",")
for each tag in tags
if not isnul(tag) then
sql="select TagID from {prefix}Tag where TagName='"&tag&"'"
set rs=conn.exec(sql,"r1")
if not rs.eof then
tagIDs=tagIDs&"{"&rs(0)&"}"
else
sql="insert into {prefix}Tag(TagName, TagCount, SortType, SortID, TagVisits, LanguageID, AddTime) values('"&tag&"',0,"&SortType&","&SortID&",0,"&LanguageID&",'"&now()&"')"
conn.exec sql,"exe"
tagIDs=tagIDs&"{"&conn.exec("select @@identity","r1")(0)&"}"
end if
end if
next
addTags=tagIDs
End Function
%>