<%
dim action : action=getForm("action","get")
dim sortType:sortType=getForm("sortType","get")
dim sortTypeName,SpecCategory
Select case action
case "del" : DelSpec
case "add" : AddSpec
case "edit" : EditSpec
case "editsave" : EditSpecSave
case "save" :SaveSpec
case "order" :updateOrder
End Select
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
Dim SpecID, SpecName, SpecOrder, SpecField
Dim SpecOptions,SpecDiversification,SpecControlType,SpecNotNull
Sub EditSpec
dim sql,rsObj
sql = "select * from {prefix}SpecSet where SpecID="&CInt(getForm("ID","get"))
Set rsObj=conn.Exec(sql,"r1")
if rsObj.eof then exit sub
SpecID = rsObj("SpecID")
SpecName = rsObj("SpecName")
SpecField = rsObj("SpecField")
SpecCategory = rsObj("SpecCategory")
rsObj.close :Set rsObj = nothing
End Sub
Sub EditSpecSave
dim sql,rsObj
SpecField=getForm("SpecField","post")
SpecName=getForm("SpecName","post")
SpecCategory=getForm("SpecCategory","post")
SpecID =getForm("SpecID","post")
sql = "select * from {prefix}SpecSet where SpecID="&SpecID
Set rsObj=conn.Exec(sql,"r1")
sql = "Alter table aspcms_content drop Column "&rsObj("SpecCategory")&"_"&rsObj("SpecField") &""
conn.Exec sql,"exe"
sql="ALTER TABLE aspcms_Content ADD column "& SpecCategory&"_"& SpecField &" text"
conn.Exec sql,"exe"
sql = "update {prefix}SpecSet set SpecName='"&SpecName&"',SpecField='"&SpecField&"',SpecCategory='"&SpecCategory&"' where SpecID="&SpecID
conn.Exec sql,"exe"
alertMsgAndGo "修改成功","AspCms_Spec.asp"
End Sub
Sub AddSpec
Dim rsObj,sql,tmpCount,i,fName
SpecField=getForm("SpecField","post")
SpecOptions=getForm("SpecOptions","post")
SpecDiversification=getForm("SpecDiversification","post")
SpecControlType=getForm("SpecControlType","post")
SpecName=getForm("SpecName","post")
SpecCategory=getForm("SpecCategory","post")
SpecOrder=getForm("SpecOrder","post")
SpecNotNull=getForm("SpecNotNull","post")
if SpecNotNull = "on" then
SpecNotNull = true
else
SpecNotNull = false
end if
SpecOptions = encode(SpecOptions)
fName = SpecCategory & "_" & SpecField
if isnul(SpecDiversification) then SpecDiversification = 0
if isnul(SpecName) then alertMsgAndGo "參數名稱不能為空，請修改","-1"
if isnul(SpecField) then alertMsgAndGo "字段名稱不能為空，請修改","-1"
sql = "select count(*) from {prefix}SpecSet where SpecField='"&SpecField&"'"
Set rsObj=conn.Exec(sql,"r1")
tmpCount = rsObj(0)
rsObj.close :Set rsObj = nothing
sql = "select count(*) from {prefix}content"
Set rsObj=conn.Exec(sql,"r1")
for i=0 to rsObj.Fields.Count-1
if rsObj.Fields(i).Name = fName then
tmpCount = tmpCount + 1
end if
next
rsObj.close :Set rsObj = nothing
if tmpCount > 0 then alertMsgAndGo "字段名稱已存在，請修改","-1"
'0 文本,1 數字,2 編輯器,3 附件,4 日期,5 顏色,6 單選,7 多選
Select Case CInt(SpecControlType)
Case 2
sql = "ALTER TABLE {prefix}Content ADD column "&fName&" memo"
Case Else
sql = "ALTER TABLE {prefix}Content ADD column "&fName&" Text(255)"
End Select
conn.Exec sql,"exe"
if Err then alertMsgAndGo "添加字段失敗,請聯系管理員","-1"
sql = "insert into {prefix}SpecSet(SpecName,SpecField,SpecOrder,SpecControlType,SpecCategory,SpecOptions,SpecNotNull,SpecDiversification) values('"&SpecName&"','"&SpecField&"',"&SpecOrder&",'"&SpecControlType&"','"&SpecCategory&"','"&SpecOptions&"',"&SpecNotNull&","&SpecDiversification&")"
conn.Exec sql,"exe"
alertMsgAndGo "添加成功","AspCms_Spec.asp"
End Sub
Sub specList
dim SpecID, SpecName, SpecOrder, SpecField, sortType
sortType = getForm("sortType","get")
dim sql, msg, rsObj
if sortType<>"" then
Set rsObj=conn.Exec("select SpecID,SpecName,SpecField,SpecOrder,SpecCategory from {prefix}SpecSet where SpecCategory='"&SpecCategory&"' Order by SpecOrder Asc,SpecID","r1")
else
Set rsObj=conn.Exec("select SpecID,SpecName,SpecField,SpecOrder,SpecCategory from {prefix}SpecSet Order by SpecOrder Asc,SpecID","r1")
end if
If rsObj.Eof Then
echo"
"
rsObj.MoveNext
Loop
End If
rsObj.close : Set rsObj = nothing
End Sub
Sub DelSpec
dim m_SpecField
Dim sql,tmp
dim ID : ID = getForm("id","both")
SpecField=getForm("SpecField","both")
SpecCategory=getForm("SpecCategory","both")
m_SpecField=replace(SpecField,"'","")
SpecField = replace(SpecField,"'","")
'die m_SpecField
tmp = m_SpecField
if m_SpecField="P_Price" then alertMsgAndGo "該參數在訂購中固定使用，不可刪除","AspCms_Spec.asp"
if SpecCategory <> "" then tmp = SpecCategory & "_" & m_SpecField
sql = "ALTER TABLE {prefix}Content drop column "&m_SpecField
'die sql
conn.Exec sql,"exe"
if instr(m_SpecField,"'")=0 then m_SpecField = "'"&m_SpecField&"'"
sql = "Delete from {prefix}SpecSet where SpecID in ("&ID&")"
'echo sql & " "
conn.Exec sql,"exe"
alertMsgAndGo "刪除成功","AspCms_Spec.asp"
if Err then echo err.description 'alertMsgAndGo "刪除字段失敗,請聯系管理員","-1"
End Sub
Sub updateOrder
dim sql, msg
Dim ids : ids=split(getForm("SpecIDs","post"),",")
Dim orders : orders=split(getForm("SpecOrders","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}SpecSet Set SpecOrder="&trim(orders(i))&" Where SpecID="&trim(ids(i)),"exe"
else
Conn.Exec "update {prefix}SpecSet Set SpecOrder=0 Where SpecID="&trim(ids(i)),"exe"
end if
Next
alertMsgAndGo "更新排序成功","AspCms_Spec.asp"
End Sub
%>