<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');location.href='index.asp' ;</script>"
response.End
else
if request.cookies("sundxshop")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');location.href='index.asp' ;</script>"
response.End
end if
end if
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权管理网站设置！');history.go(-1);</script>"
response.End
end if
%>
<%


dim action,html
%>
<!--#include file="../func.asp"-->
<%
html=request.form("html")
action=FormatSQL(SafeRequest("action",0))
set rs=server.CreateObject("adodb.recordset")
select case action
case "paymethord"
rs.Open "select paymethord from sdx_other",conn,1,3
Dim strpaymethord
For i = 1 To Request.Form("paymethord").Count 
strpaymethord = strpaymethord & Request.Form("paymethord")(i) 
Next 
rs("paymethord")=strpaymethord
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('付款方式修改成功');history.go(-1);</script>"
response.End

case "clause"
rs.Open "select clause from sdx_other",conn,1,3
Dim strclause
For i = 1 To Request.Form("clause").Count 
strclause = strclause & Request.Form("clause")(i) 
Next 
rs("clause")=strclause
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('交易条款修改成功');history.go(-1);</script>"
response.End

case "transport"
rs.Open "select transport from sdx_other",conn,1,3
Dim strtransport
For i = 1 To Request.Form("transport").Count 
strtransport = strtransport & Request.Form("transport")(i) 
Next 
rs("transport")=strtransport
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('运输说明修改成功');history.go(-1);</script>"
response.End

case "process"
rs.Open "select process from sdx_other",conn,1,3
Dim strprocess
For i = 1 To Request.Form("process").Count 
strprocess = strprocess & Request.Form("process")(i) 
Next 
rs("process")=strprocess
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('购物流程修改成功');history.go(-1);</script>"
response.End

case "faq"
rs.Open "select faq from sdx_other",conn,1,3
Dim strfaq
For i = 1 To Request.Form("faq").Count 
strfaq = strfaq & Request.Form("faq")(i) 
Next 
rs("faq")=strfaq
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('常见问题修改成功');history.go(-1);</script>"
response.End

case "secret"
rs.Open "select secret from sdx_other",conn,1,3
Dim strsecret
For i = 1 To Request.Form("secret").Count 
strsecret = strsecret & Request.Form("secret")(i) 
Next 
rs("secret")=strsecret
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('保密协议修改成功');history.go(-1);</script>"
response.End

case "support"
rs.Open "select support from sdx_other",conn,1,3
Dim strsupport
For i = 1 To Request.Form("support").Count 
strsupport = strsupport & Request.Form("support")(i) 
Next 
rs("support")=strsupport
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('商品销售和售后服务修改成功');history.go(-1);</script>"
response.End

case "law"
rs.Open "select law from sdx_other",conn,1,3
Dim strlaw
For i = 1 To Request.Form("law").Count 
strlaw = strlaw & Request.Form("law")(i) 
Next 
rs("law")=strlaw
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('适用法律和版权声明修改成功');history.go(-1);</script>"
response.End

case "regrule"
rs.Open "select regrule from sdx_other",conn,1,3
Dim strregrule
For i = 1 To Request.Form("regrule").Count 
strregrule = strregrule & Request.Form("regrule")(i) 
Next 
rs("regrule")=strregrule
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('注册条约修改成功');history.go(-1);</script>"
response.End

case "eregrule"
rs.Open "select eregrule from sdx_other",conn,1,3
Dim streregrule
For i = 1 To Request.Form("eregrule").Count 
streregrule = streregrule & Request.Form("eregrule")(i) 
Next 
rs("eregrule")=streregrule
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('英文注册条约修改成功');history.go(-1);</script>"
response.End

case "deliveryfee"
rs.Open "select deliveryfee from sdx_other",conn,1,3
Dim strdeliveryfee
For i = 1 To Request.Form("deliveryfee").Count 
strdeliveryfee = strdeliveryfee & Request.Form("deliveryfee")(i) 
Next 
rs("deliveryfee")=strdeliveryfee
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('送货方式及费率修改成功');history.go(-1);</script>"
response.End

case "businesstime"
rs.Open "select businesstime from sdx_other",conn,1,3
Dim strbusinesstime
For i = 1 To Request.Form("businesstime").Count 
strbusinesstime = strbusinesstime & Request.Form("businesstime")(i) 
Next 
rs("businesstime")=strbusinesstime
rs.Update
rs.close
set rs = Nothing
conn.close
set conn = nothing
response.Write "<script language=javascript>alert('工作时间修改成功');history.go(-1);</script>"
response.End
end select
%>