<%
CheckAdmin("AspCms_Scene.asp")
dim action : action=getForm("action","get")
Select case action
case "add" : addScene
case "edit" : editScene
case "del" : delScene
case "on" : onOff "on", "Scene", "SceneID", "SceneStatus", "", getPageName()
case "off" : onOff "off", "Scene", "SceneID", "SceneStatus", "", getPageName()
End Select
dim SceneID, SceneName, SceneMenu, SceneOrder, SceneDesc, SceneStatus
dim sql, msg
Sub getScene
dim id : id=getForm("id","get")
if not isnul(ID) then
sql ="select * from {prefix}Scene where SceneID="&id
dim rs : set rs = conn.exec(sql,"r1")
if rs.eof then
alertMsgAndGo "沒有這條記錄","-1"
else
SceneID=rs("SceneID")
SceneName=rs("SceneName")
SceneMenu=rs("SceneMenu")
SceneOrder=rs("SceneOrder")
SceneDesc=rs("SceneDesc")
SceneStatus=rs("SceneStatus")
end if
rs.close : set rs=nothing
else
alertMsgAndGo "沒有這條記錄","-1"
end if
End Sub
Sub sceneList
sql="select SceneID, SceneName, SceneDesc, SceneOrder, SceneStatus from {prefix}Scene order by SceneOrder ,SceneID"
dim rs
set rs=conn.exec(sql,"r1")
if rs.eof then
echo "
"&vbcrlf
rs.moveNext
loop
end if
rs.close : set rs=nothing
End Sub
Sub addScene
SceneID=getForm("SceneID", "post")
SceneName=getForm("SceneName", "post")
SceneMenu=getForm("SceneMenu", "post")
SceneOrder=getForm("SceneOrder", "post")
SceneDesc=getForm("SceneDesc", "post")
SceneStatus=getCheck(getForm("SceneStatus", "post"))
if isnul(SceneName) then alertMsgAndGo "場景名稱不能為空","-1"
if not isnum(SceneOrder) then SceneOrder=9
sql="insert into {prefix}Scene(SceneName, SceneMenu, SceneDesc, SceneOrder, SceneStatus) values('"&SceneName&"', '"&SceneMenu&"', '"&SceneDesc&"', "&SceneOrder&", "&SceneStatus&")"
'echo sql
conn.exec sql, "exe"
alertMsgAndGo "添加成功", "AspCms_Scene.asp"
End Sub
Sub editScene
SceneID=getForm("SceneID", "post")
SceneName=getForm("SceneName", "post")
SceneMenu=getForm("SceneMenu", "post")
SceneOrder=getForm("SceneOrder", "post")
SceneDesc=getForm("SceneDesc", "post")
SceneStatus=getCheck(getForm("SceneStatus", "post"))
if isnul(SceneName) then alertMsgAndGo "場景名稱不能為空","-1"
if not isnum(SceneOrder) then SceneOrder=9
sql="update {prefix}Scene set SceneName='"&SceneName&"', SceneMenu='"&SceneMenu&"', SceneDesc='"&SceneDesc&"', SceneOrder="&SceneOrder&", SceneStatus="&SceneStatus&" where SceneID="&SceneID
'echo sql
conn.exec sql, "exe"
alertMsgAndGo "修改成功", "AspCms_Scene.asp"
End Sub
Sub delScene
dim id : id=getForm("id","both")
if isnul(id) then alertMsgAndGo "請選擇要操作的內容","-1"
conn.exec "delete from {prefix}Scene where SceneID in("&id&")","exe"
alertMsgAndGo "刪除成功",getPageName()
End Sub
%>