<!--#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 config",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 config",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 config",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 config",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 config",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 config",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 config",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 config",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 "rule"
rs.Open "select [rule] from config",conn,1,3
Dim strrule
For i = 1 To Request.Form("rule").Count 
strrule = strrule & Request.Form("rule")(i) 
Next 
rs("rule")=strrule
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 config",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 config",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

case "jmzc"
rs.Open "select jmzc from config",conn,1,3
Dim strjmzc
For i = 1 To Request.Form("jmzc").Count 
strjmzc = strjmzc & Request.Form("jmzc")(i) 
Next 
rs("jmzc")=strjmzc
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 "jmpifa"
rs.Open "select jmpifa from config",conn,1,3
Dim strjmpifa
For i = 1 To Request.Form("jmpifa").Count 
strjmpifa = strjmpifa & Request.Form("jmpifa")(i) 
Next 
rs("jmpifa")=strjmpifa
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 "jmdaili"
rs.Open "select jmdaili from config",conn,1,3
Dim strjmdaili
For i = 1 To Request.Form("jmdaili").Count 
strjmdaili = strjmdaili & Request.Form("jmdaili")(i) 
Next 
rs("jmdaili")=strjmdaili
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 "jmshop"
rs.Open "select jmshop from config",conn,1,3
Dim strjmshop
For i = 1 To Request.Form("jmshop").Count 
strjmshop = strjmshop & Request.Form("jmshop")(i) 
Next 
rs("jmshop")=strjmshop
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
%>
