<%
CheckAdmin("AspCms_Language.asp")
dim action : action=getForm("action","get")
Select case action
case "add" : addLanguage
case "edit" : editLanguage
case "del" : delLanguage
case "on" : onOff "on", "Language", "LanguageID", "LanguageStatus", "", getPageName()
case "off" : onOff "off", "Language", "LanguageID", "LanguageStatus", "", getPageName()
case "default" : setDefault
End Select
dim LanguageID, LanguageName, LanguagePath, defaultTemplate, Alias, htmlFilePath, LanguageOrder, IsDefault, LanguageStatus
dim sql, msg
dim SiteTitle, AdditionTitle, SiteLogoUrl, SiteUrl, CompanyName, CompanyAddress, CompanyPostCode, CompanyContact, _
CompanyPhone, CompanyMobile, CompanyFax, CompanyEmail, CompanyICP, StatisticalCode, CopyRight, SiteKeywords, SiteDesc
Sub getLanguage
dim id : id=getForm("id","get")
if not isnul(ID) then
sql ="select * from {prefix}Language where LanguageID="&id
dim rs : set rs = conn.exec(sql,"r1")
if rs.eof then
alertMsgAndGo "沒有這條記錄","-1"
else
LanguageID=rs("LanguageID")
LanguageName=rs("LanguageName")
LanguagePath=rs("LanguagePath")
defaultTemplate=rs("defaultTemplate")
Alias=rs("Alias")
htmlFilePath=rs("htmlFilePath")
LanguageOrder=rs("LanguageOrder")
IsDefault=rs("IsDefault")
LanguageStatus=rs("LanguageStatus")
end if
rs.close : set rs=nothing
else
alertMsgAndGo "沒有這條記錄","-1"
end if
End Sub
Sub languageList
sql="select LanguageID, LanguageName, Alias, LanguagePath, defaultTemplate, LanguageOrder, IsDefault, LanguageStatus from {prefix}Language order by LanguageOrder ,LanguageID"
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 addLanguage
LanguageID=getForm("LanguageID", "post")
LanguageName=getForm("LanguageName", "post")
LanguagePath=getForm("LanguagePath", "post")
defaultTemplate=getForm("defaultTemplate", "post")
Alias=getForm("Alias", "post")
htmlFilePath=getForm("htmlFilePath", "post")
LanguageOrder=getForm("LanguageOrder", "post")
IsDefault=getCheck(getForm("IsDefault", "post"))
LanguageStatus=getCheck(getForm("LanguageStatus", "post"))
if isnul(LanguageName) then alertMsgAndGo "語言名稱不能為空","-1"
if isnul(defaultTemplate) then alertMsgAndGo "模板目錄不能為空","-1"
if isnum (Alias) then alertMsgAndGo "語言別名不能為空","-1"
if not isnum(LanguageOrder) then LanguageOrder=9
if IsDefault="1" then conn.exec "update {prefix}Language set IsDefault=0","exe"
sql="insert into {prefix}Language(LanguageName, LanguagePath, defaultTemplate, Alias, htmlFilePath, LanguageOrder, IsDefault, LanguageStatus) values('"&LanguageName&"', '"&LanguagePath&"', '"&defaultTemplate&"', '"&Alias&"', '"&htmlFilePath&"', "&LanguageOrder&", "&IsDefault&", "&LanguageStatus&")"
'echo sql
conn.exec sql, "exe"
alertMsgAndGo "添加成功", "AspCms_Language.asp"
End Sub
Sub editLanguage
LanguageID=getForm("LanguageID", "post")
LanguageName=getForm("LanguageName", "post")
LanguagePath=getForm("LanguagePath", "post")
defaultTemplate=getForm("defaultTemplate", "post")
Alias=getForm("Alias", "post")
htmlFilePath=getForm("htmlFilePath", "post")
LanguageOrder=getForm("LanguageOrder", "post")
IsDefault=getCheck(getForm("IsDefault", "post"))
LanguageStatus=getCheck(getForm("LanguageStatus", "post"))
if isnul(LanguageName) then alertMsgAndGo "語言名稱不能為空","-1"
if isnul(defaultTemplate) then alertMsgAndGo "模板目錄不能為空","-1"
if isnum (Alias) then alertMsgAndGo "語言別名不能為空","-1"
if not isnum(LanguageOrder) then LanguageOrder=9
'sql="insert into {prefix}Language(LanguageName, LanguagePath, defaultTemplate, Alias, htmlFilePath, LanguageOrder, IsDefault, LanguageStatus) values('"&LanguageName&"', '"&LanguagePath&"', '"&defaultTemplate&"', '"&Alias&"', '"&htmlFilePath&"', "&LanguageOrder&", "&IsDefault&", "&LanguageStatus&")"
if IsDefault="1" then conn.exec "update {prefix}Language set IsDefault=0","exe"
sql="update {prefix}Language set LanguageName='"&LanguageName&"', LanguagePath='"&LanguagePath&"', defaultTemplate='"&defaultTemplate&"', Alias='"&Alias&"', htmlFilePath='"&htmlFilePath&"', LanguageOrder="&LanguageOrder&", IsDefault="&IsDefault&", LanguageStatus="&LanguageStatus&" where LanguageID="&LanguageID
'echo sql
conn.exec sql, "exe"
alertMsgAndGo "修改成功", "AspCms_Language.asp"
End Sub
Sub setDefault
dim id : id=getForm("id","get")
if isnul(id) then alertMsgAndGo "請選擇要操作的內容","-1"
conn.exec "update {prefix}Language set IsDefault=0","exe"
conn.exec "update {prefix}Language set IsDefault=1 where LanguageID="&id,"exe"
response.Redirect getPageName()
End Sub
Sub delLanguage
dim id : id=getForm("id","both")
if isnul(id) then alertMsgAndGo "請選擇要操作的內容","-1"
conn.exec "delete from {prefix}Language where IsDefault=0 and LanguageID in("&id&")","exe"
alertMsgAndGo "刪除成功",getPageName()
End Sub
%>