<!--#include file="../../Common/Config.asp"-->
<!--#include file="../../Common/Function/Function.asp"-->
<!--#include file="../../Common/Function/Sub.asp"-->
<!--#include file="../Include/Check.asp"-->
<%


'  -------      Flash Class Manage        ----------------------------------------
if Trim(Request.QueryString("action"))="classAdd" then
	conn.execute "insert into [Jin_FlashClass] (SortID) values ("&Trim(Request.QueryString("SortID"))&")"
end if
if Trim(Request.QueryString("action"))="classDel" then
	conn.execute "delete from [Jin_FlashClass] where SysID = " & Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="SortID" then
	conn.execute "UPDATE [Jin_FlashClass] SET SortID = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Name" then
	conn.execute "UPDATE [Jin_FlashClass] SET Name = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Name_en" then
	conn.execute "UPDATE [Jin_FlashClass] SET Name_en = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Content" then
	conn.execute "UPDATE [Jin_FlashClass] SET Content = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if

if Trim(Request.QueryString("action"))="flashDel" then
	conn.execute "delete from [Jin_Flash] where SysID = " & Trim(Request.QueryString("id"))
end if
if Trim(Request.Form("action"))="flashplsc" then
	conn.execute "delete from [Jin_Flash] where SysID in (" & replace(Trim(Request.Form("ids"))," ",", ") & ")"
end if

'  -------      Custom Manage        ----------------------------------------
if Trim(Request.QueryString("action"))="CustomAdd" then
	conn.execute "insert into [Jin_Custom] (Ctype,Cname,Remark) values ('"&Trim(Request.QueryString("id"))&"','Cust_','备注说明')"
end if
if Trim(Request.QueryString("action"))="CustomDel" then
	conn.execute "delete from [Jin_Custom] where SysID = " & Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Cname" then
	conn.execute "UPDATE [Jin_Custom] SET Cname = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Ccontent" then
	conn.execute "UPDATE [Jin_Custom] SET Ccontent = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Ccontent_en" then
	conn.execute "UPDATE [Jin_Custom] SET Ccontent_en = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="CRemark" then
	conn.execute "UPDATE [Jin_Custom] SET Remark = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if

'  -------      Article Manage        ----------------------------------------
if Trim(Request.QueryString("action"))="articleDel" then
	conn.execute "delete from [Jin_Article] where SysID = " & Trim(Request.QueryString("id"))
end if
if Trim(Request.Form("action"))="articleplsc" then
	conn.execute "delete from [Jin_Article] where SysID in (" & replace(Trim(Request.Form("ids"))," ",", ") & ")"
end if

'  -------      Email Manage        ----------------------------------------
if Trim(Request.QueryString("action"))="Web_SendDomain" then
	conn.execute "UPDATE [Jin_Config] SET Web_SendDomain = '"&Trim(Request.QueryString("value"))&"' where exists(select top 1 sysID from Jin_Config)"
end if
if Trim(Request.QueryString("action"))="Web_SendEmail" then
	conn.execute "UPDATE [Jin_Config] SET Web_SendEmail = '"&Trim(Request.QueryString("value"))&"' where exists(select top 1 sysID from Jin_Config)"
end if
if Trim(Request.QueryString("action"))="Web_SendPwd" then
	conn.execute "UPDATE [Jin_Config] SET Web_SendPwd = '"&Trim(Request.QueryString("value"))&"' where exists(select top 1 sysID from Jin_Config)"
end if
if Trim(Request.QueryString("action"))="Web_SendName" then
	conn.execute "UPDATE [Jin_Config] SET Web_SendName = '"&Trim(Request.QueryString("value"))&"' where exists(select top 1 sysID from Jin_Config)"
end if
if Trim(Request.QueryString("action"))="Web_ToEmail" then
	conn.execute "UPDATE [Jin_Config] SET Web_ToEmail = '"&Trim(Request.QueryString("value"))&"' where exists(select top 1 sysID from Jin_Config)"
end if
'cookies记录时间设置
if Trim(Request.QueryString("action"))="Web_CookDate" then
	If Trim(Request.QueryString("value"))>1 And Trim(Request.QueryString("value"))<365 Then
	conn.execute "UPDATE [Jin_Config] SET Web_CookDate = "&Trim(Request.QueryString("value"))&" where exists(select top 1 sysID from Jin_Config)"
	End If
end if



'  -------      IndexNav Manage        ----------------------------------------
if Trim(Request.QueryString("action"))="BNavAdd" then	'添加一级分类
	conn.execute "insert into [Jin_BackNav] (SortID) values ('"&Trim(Request.QueryString("id"))&"')"
end if
if Trim(Request.QueryString("action"))="BNavAdd1" then	'添加二级分类
	conn.execute "insert into [Jin_BackNav] (Pid,SortID) values ("&Trim(Request.QueryString("id"))&",99)"
	session("BNavID")=Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="BNavDel" then
	conn.execute "delete from [Jin_BackNav] where SysID = " & Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="SortID" then
	conn.execute "UPDATE [Jin_BackNav] SET SortID = "&Trim(Request.QueryString("value"))&" WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Title" then
	conn.execute "UPDATE [Jin_BackNav] SET Title = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Url" then
	conn.execute "UPDATE [Jin_BackNav] SET Url = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if
if Trim(Request.QueryString("action"))="Remark" then
	conn.execute "UPDATE [Jin_BackNav] SET Remark = '"&Trim(Request.QueryString("value"))&"' WHERE SysID = "&Trim(Request.QueryString("id"))
end if

if trim(Request("action"))="sysset" then
	Web_Logo = sub_str(Trim(request_Form("Web_Logo")),"Upload")
	Set Rs=server.createobject("adodb.recordSet")
	Sql="select top 1 * from Jin_Config"
	Rs.open Sql,conn,1,3
	Rs("Web_Name")=unescape(request_Form("Web_Name"))
	Rs("Web_Url")=unescape(request_Form("Web_Url"))
	Rs("Web_Logo")=unescape(Web_Logo)
	Rs("Web_Keyword")=unescape(replace(replace(request_Form("Web_Keyword"),"，",",")," ",","))
	Rs("Web_Switch")=unescape(request_Form("Web_Switch"))
	Rs("Web_Description")=unescape(request_Form("Web_Description"))
	Rs("Web_Foottext")=unescape(request_Form("Web_Foottext"))
	Rs.Update
	Rs.close
	Set Rs=nothing
	Response.Write escape("OK")
end if

if trim(Request("action"))="sysset1" then
	Set Rs=server.createobject("adodb.recordSet")
	Sql="select top 1 * from Jin_Config"
	Rs.open Sql,conn,1,3
	Rs("Web_PageType")=unescape(request_Form("Web_PageType"))
	Rs("Web_HtmlType")=unescape(request_Form("Web_HtmlType"))
	Rs("Web_PageSizeA")=unescape(request_Form("Web_PageSizeA"))
	Rs("Web_PageSizeB")=unescape(request_Form("Web_PageSizeB"))
	Rs("Web_PageSizeC")=unescape(request_Form("Web_PageSizeC"))
	Rs("Web_GetMsgEmail")=unescape(request_Form("Web_GetMsgEmail"))
	Rs("Web_ToMsgEmail")=unescape(request_Form("Web_ToMsgEmail"))
	Rs("Web_GetEmail")=unescape(request_Form("Web_GetEmail"))
	Rs("s_EndFlag")=unescape(request_Form("s_EndFlag"))
	Rs.Update
	Rs.close
	Set Rs=nothing
	Response.Write escape("OK")
end if




conn.close
set conn=nothing
%>