<%
if isnul(rCookie("adminName")) then response.Redirect("login.asp"):response.End()
dim id, rsObj
id=getForm("id","get")
if not isnul(id) then
set rsObj=conn.exec("select * from {prefix}Language where LanguageID="&id,"exe")
if not rsObj.eof then
wCookie"languageID",id
wCookie"languagePath",rsObj("LanguagePath")
wCookie"LanguageAlias",rsObj("Alias")
else
alertMsgAndGo "沒有這個語言","-1"
end if
rsObj.close : set rsObj=nothing
response.Redirect("index.asp")
end if
dim SceneID
SceneID=getForm("SceneID","get")
if not isnul(SceneID) then
set rsObj=conn.exec("select * from {prefix}Scene where SceneID="&SceneID,"exe")
if not rsObj.eof then
'wCookie"SceneID",id
wCookie"SceneMenu",rsObj("SceneMenu")
else
alertMsgAndGo "沒有這個場景","-1"
end if
rsObj.close : set rsObj=nothing
response.Redirect("index.asp")
end if
%>
管理中心<body>
</body>