saveothers.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if session("rank")>1 then
response.Write "<div align=center><font size=5 color=red><b>你的权限不够！</b></font></div>"
response.End
end if
end if
dim action,html,ubbcode
%>
<!--#include file="../func.asp"-->
<%
html=request("html")
action=request.QueryString("action")
set rs=server.CreateObject("adodb.recordset")
select case action
case "paymethord"
rs.Open "select paymethord from config",conn,1,3
if html="" then
rs("paymethord")=trim(request("paymethord"))
else
rs("paymethord")=trim(request("paymethord"))
end if
rs.Update
response.Write "<script language=javascript>alert('付款方式修改成功');history.go(-1);</script>"
response.End

case "clause"
rs.Open "select clause from config",conn,1,3
if html="" then
rs("clause")=ubbcode(trim(request("clause")))
else
rs("clause")=trim(request("clause"))
end if
rs.Update
response.Write "<script language=javascript>alert('交易条款修改成功');history.go(-1);</script>"
response.End

case "transport"
rs.Open "select transport from config",conn,1,3
if html="" then
rs("transport")=ubbcode(trim(request("transport")))
else
rs("transport")=trim(request("transport"))
end if
rs.Update
response.Write "<script language=javascript>alert('运输说明修改成功');history.go(-1);</script>"
response.End

case "process"
rs.Open "select process from config",conn,1,3
if html="" then
rs("process")=ubbcode(trim(request("process")))
else
rs("process")=trim(request("process"))
end if
rs.Update
response.Write "<script language=javascript>alert('购物流程修改成功');history.go(-1);</script>"
response.End

case "faq"
rs.Open "select faq from config",conn,1,3
if html="" then
rs("faq")=ubbcode(trim(request("faq")))
else
rs("faq")=trim(request("faq"))
end if
rs.Update
response.Write "<script language=javascript>alert('常见问题修改成功');history.go(-1);</script>"
response.End

case "secret"
rs.Open "select secret from config",conn,1,3
if html="" then
rs("secret")=ubbcode(trim(request("secret")))
else
rs("secret")=trim(request("secret"))
end if
rs.Update
response.Write "<script language=javascript>alert('保密和安全修改成功');history.go(-1);</script>"
response.End

case "support"
rs.Open "select support from config",conn,1,3
if html="" then
rs("support")=ubbcode(trim(request("support")))
else
rs("support")=trim(request("support"))
end if
rs.Update
response.Write "<script language=javascript>alert('商品销售和售后服务修改成功');history.go(-1);</script>"
response.End

case "law"
rs.Open "select law from config",conn,1,3
if html="" then
rs("law")=ubbcode(trim(request("law")))
else
rs("law")=trim(request("law"))
end if
rs.Update
response.Write "<script language=javascript>alert('适用法律和版权声明修改成功');history.go(-1);</script>"
response.End

case "rule"
rs.Open "select rule from config",conn,1,3
if html="" then
rs("rule")=ubbcode(trim(request("rule")))
else
rs("rule")=trim(request("rule"))
end if
rs.Update
response.Write "<script language=javascript>alert('注册条约修改成功');history.go(-1);</script>"
response.End
case "deliveryfee"
rs.Open "select deliveryfee from config",conn,1,3
if html="" then
rs("deliveryfee")=ubbcode(trim(request("deliveryfee")))
else
rs("deliveryfee")=trim(request("deliveryfee"))
end if
rs.Update
response.Write "<script language=javascript>alert('送货方式及费率修改成功');history.go(-1);</script>"
response.End
case "businesstime"
rs.Open "select businesstime from config",conn,1,3
if html="" then
rs("businesstime")=ubbcode(trim(request("businesstime")))
else
rs("businesstime")=trim(request("businesstime"))
end if
rs.Update
response.Write "<script language=javascript>alert('工作时间修改成功');history.go(-1);</script>"
response.End
end select
%>