<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="conn.asp"-->

<!--#include file="../md5.asp"-->
<%#@~^9AEAAA==r6Ph9*vD+$EdYcp;+MXjOMkxTcJmmYbGUJ*#{J^0*+0N6{Fl*Xf1JPO4x@#@&knk/rKxvJl9:bUJ*'Em062E@#@&/d/bWxvEWVmor#xF@#@&M+dwKU/R]n9kDn^DPEk	[6 m/aJ@#@&+	[Pb0@#@&b0~d//bGxvJl9hrxr#{JEPO4x@#@&Mn/aWUdR.rD+~J@!d1DraY,Vl	o!Co'vLm\Cd1DkaOB@*lV.O`E网络超时或您还没有登陆！B*iAkU[Kh VK^lDkGUcD+sGmNcB^GTkUclkwB*@!JdmMk2Y@*J@#@&M+/aGxk+RAU[@#@&+^/n@#@&r6Pd+kdkKxcE6VlLE*@*qPD4x@#@&D/wKxknRqDrYPE@!9k\,CVbox{^nxD+M@*@!0GUDPdk.n'R!~^KVW.xM+[@*@!8@*您没有此项目管理权限！@!&(@*@!z0KxD@*@!JNr\@*J@#@&M+/aGxk+RAU[@#@&+	N~kW@#@&+UN,r01o8AAA==^#~@
dim action,html
html=request("html")
action=request.QueryString("action")
set rs=server.CreateObject("adodb.recordset")
select case action
case "huikuanfangshi"
rs.Open "select huikuanfangshi from shop_config",conn,1,3
if html="" then
rs("huikuanfangshi")=ubbcode(trim(request("huikuanfangshi")))
else
rs("huikuanfangshi")=trim(request("huikuanfangshi"))
end if
rs.Update
response.Write "<script language=javascript>alert('付款方式修改成功');history.go(-1);</script>"
response.End
'//////////////////////////////
case "jiaoyitiaokuan"
rs.Open "select jiaoyitiaokuan from shop_config",conn,1,3
if html="" then
rs("jiaoyitiaokuan")=ubbcode(trim(request("jiaoyitiaokuan")))
else
rs("jiaoyitiaokuan")=trim(request("jiaoyitiaokuan"))
end if
rs.Update
response.Write "<script language=javascript>alert('交易条款修改成功');history.go(-1);</script>"
response.End
'//////////////////////////////
case "yunshushuoming"
rs.Open "select yunshushuoming from shop_config",conn,1,3
if html="" then
rs("yunshushuoming")=ubbcode(trim(request("yunshushuoming")))
else
rs("yunshushuoming")=trim(request("yunshushuoming"))
end if
rs.Update
response.Write "<script language=javascript>alert('运输说明修改成功');history.go(-1);</script>"
response.End
'//////////////////////////////
case "gouwuliucheng"
rs.Open "select gouwuliucheng from shop_config",conn,1,3
if html="" then
rs("gouwuliucheng")=ubbcode(trim(request("gouwuliucheng")))
else
rs("gouwuliucheng")=trim(request("gouwuliucheng"))
end if
rs.Update
response.Write "<script language=javascript>alert('购物流程修改成功');history.go(-1);</script>"
response.End
'//////////////////////////////
case "changjianwenti"
rs.Open "select changjianwenti from shop_config",conn,1,3
if html="" then
rs("changjianwenti")=ubbcode(trim(request("changjianwenti")))
else
rs("changjianwenti")=trim(request("changjianwenti"))
end if
rs.Update
response.Write "<script language=javascript>alert('常见问题修改成功');history.go(-1);</script>"
response.End
'//////////////////////////////
case "baomi"
rs.Open "select baomi from shop_config",conn,1,3
if html="" then
rs("baomi")=ubbcode(trim(request("baomi")))
else
rs("baomi")=trim(request("baomi"))
end if
rs.Update
response.Write "<script language=javascript>alert('保密和安全修改成功');history.go(-1);</script>"
response.End
'//////////////////////////////
case "shouhoufuwu"
rs.Open "select shouhoufuwu from shop_config",conn,1,3
if html="" then
rs("shouhoufuwu")=ubbcode(trim(request("shouhoufuwu")))
else
rs("shouhoufuwu")=trim(request("shouhoufuwu"))
end if
rs.Update
response.Write "<script language=javascript>alert('商品销售和售后服务修改成功');history.go(-1);</script>"
response.End
'//////////////////////////////
case "shiyongfalv"
rs.Open "select shiyongfalv from shop_config",conn,1,3
if html="" then
rs("shiyongfalv")=ubbcode(trim(request("shiyongfalv")))
else
rs("shiyongfalv")=trim(request("shiyongfalv"))
end if
rs.Update
response.Write "<script language=javascript>alert('适用法律和版权声明修改成功');history.go(-1);</script>"
response.End
'//////////////////////////////
case "regtiaoyue"
rs.Open "select regtiaoyue from shop_config",conn,1,3
if html="" then
rs("regtiaoyue")=ubbcode(trim(request("regtiaoyue")))
else
rs("regtiaoyue")=trim(request("regtiaoyue"))
end if
rs.Update
response.Write "<script language=javascript>alert('注册条约修改成功');history.go(-1);</script>"
response.End
case "songhuofeiyong"
rs.Open "select songhuofeiyong from shop_config",conn,1,3
if html="" then
rs("songhuofeiyong")=ubbcode(trim(request("songhuofeiyong")))
else
rs("songhuofeiyong")=trim(request("songhuofeiyong"))
end if
rs.Update
response.Write "<script language=javascript>alert('送货方式及费率修改成功');history.go(-1);</script>"
response.End
case "gongzuoshijian"
rs.Open "select gongzuoshijian from shop_config",conn,1,3
if html="" then
rs("gongzuoshijian")=ubbcode(trim(request("gongzuoshijian")))
else
rs("gongzuoshijian")=trim(request("gongzuoshijian"))
end if
rs.Update
response.Write "<script language=javascript>alert('我们的工作时间修改成功');history.go(-1);</script>"
response.End
end select
%>