<%
CheckAdmin("AspCms_Label.asp")
dim action : action=getForm("action","get")
Select case action
case "del" : delLabel
case "add" : addLabel
case "edit" : editLabel
case "save" :saveLabel
End Select
dim LabelID, LabelName, LabelDesc, LabelContent, Content
dim sql, msg
Sub getLabel
dim id : id=getForm("id","get")
if not isnul(ID) then
sql ="select * from {prefix}Labels where LabelID="&id
dim rs : set rs = conn.exec(sql,"r1")
if rs.eof then
alertMsgAndGo "沒有這條記錄","-1"
else
LabelID=rs("LabelID")
LabelName=rs("LabelName")
LabelDesc=rs("LabelDesc")
LabelContent=rs("LabelContent")
Content=rs("LabelContent")
end if
rs.close : set rs=nothing
else
alertMsgAndGo "沒有這條記錄","-1"
end if
End Sub
Sub addLabel
LabelName=getForm("LabelName","post")
LabelDesc=getForm("LabelDesc","post")
LabelContent=getForm("content","post")
if isnul(LabelName) then alertMsgAndGo "標簽名稱不能為空，請修改","-1"
Dim rsObj : Set rsObj=conn.Exec("select count(*) from {prefix}Labels where LabelName='"&LabelName&"'","r1")
if rsObj(0) >0 then alertMsgAndGo "標簽名稱已存在，請修改","-1"
rsObj.close : Set rsObj = nothing
conn.Exec "insert into {prefix}Labels(LabelName,LabelDesc,LabelContent) values('"&LabelName&"','"&LabelDesc&"','"&LabelContent&"')","exe"
alertMsgAndGo "修改成功","AspCms_Label.asp"
End Sub
Sub editLabel
LabelID=getForm("LabelID","post")
LabelName=getForm("LabelName","post")
LabelDesc=getForm("LabelDesc","post")
LabelContent=getForm("content","post")
if isnul(LabelName) then alertMsgAndGo "標簽名稱不能為空，請修改","-1"
Dim rsObj : Set rsObj=conn.Exec("select count(*) from {prefix}Labels where LabelName='"&LabelName&"' and LabelID<>"&LabelID,"r1")
if rsObj(0) >0 then alertMsgAndGo "標簽名稱已存在，請修改","-1"
rsObj.close : Set rsObj = nothing
sql="update {prefix}Labels set LabelName='"&LabelName&"', LabelDesc='"&LabelDesc&"', LabelContent='"&LabelContent&"' where LabelID="&LabelID
conn.Exec sql,"exe"
alertMsgAndGo "修改成功","AspCms_Label.asp"
End Sub
Sub LabelList
Dim rsObj : Set rsObj=conn.Exec("select LabelID,LabelName,LabelDesc from {prefix}Labels Order by LabelID","r1")
If rsObj.Eof Then
echo""&vbcrlf& _
"沒有數據"&vbcrlf& _
"
"&vbcrlf
Else
Do while not rsObj.Eof
echo""&vbcrlf& _
"- "&rsObj(2)&"
"&vbcrlf& _
"![]()
修改 ![]()
刪除 - "&vbcrlf& _
"
"&vbcrlf
rsObj.MoveNext
Loop
End If
rsObj.close : Set rsObj = nothing
End Sub
Sub LabelList1
Dim rsObj : Set rsObj=conn.Exec("select LabelID,LabelName,LabelDesc from {prefix}Labels Order by LabelID","r1")
If rsObj.Eof Then
echo""&vbcrlf& _
"沒有數據"&vbcrlf& _
"
"&vbcrlf
Else
Do while not rsObj.Eof
echo""&vbcrlf& _
"- "&rsObj(2)&"
"&vbcrlf& _
"![]()
修改
"&vbcrlf
rsObj.MoveNext
Loop
End If
rsObj.close : Set rsObj = nothing
End Sub
Sub delLabel
dim ID : ID = getForm("id","both")
conn.Exec "delete from {prefix}Labels where LabelID in("&ID&")","exe"
alertMsgAndGo "刪除成功","AspCms_Label.asp"
End Sub
%>