savexx.asp

网上购物,不错的购物系统,花了好长时间来改的

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="conn.asp"-->
<!--#include file="session2.asp"-->
<%dim action,html
html=request("html")
action=request.QueryString("action")

Content=Request.Form("Content")

'将里面的链接换成本地链接
 aa="http://"&Request.ServerVariables("server_name")&Request.ServerVariables("path_info")
 'response.write aa&"<br>"
 'bb=request.servervariables("http_referer")
 'response.write aa&"<br>"
 'response.write bb&"<br>"
 'response.end
 'aa= mid(aa,1,len(aa)-12)
 aa= mid(aa,1,len(aa)-16)		'16=admin/savexx.asp
 'response.write aa&"<br>"
 'response.write bb&"<br>"
 'response.end
content=replace(content,aa,"")

session("content")=content

set rs=server.CreateObject("adodb.recordset")
select case action
case "huikuanfangshi"
rs.Open "select huikuanfangshi from config",conn,1,3
rs("huikuanfangshi")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('付款方式修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "clause"
rs.Open "select clause from config",conn,1,3
rs("clause")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('交易条款修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "carry"
rs.Open "select carry from config",conn,1,3
rs("carry")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('运输说明修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "flow"
rs.Open "select flow from config",conn,1,3
rs("flow")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('购物流程修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "question"
rs.Open "select question from config",conn,1,3
rs("question")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('常见问题修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "safety"
rs.Open "select safety from config",conn,1,3
rs("safety")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('保密和安全修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "afterservice"
rs.Open "select afterservice from config",conn,1,3
rs("afterservice")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('商品销售和售后服务修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "law"
rs.Open "select law from config",conn,1,3
rs("law")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('适用法律和版权声明修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "regtiaoyue"
rs.Open "select regtiaoyue from config",conn,1,3
rs("regtiaoyue")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('注册条约修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "regtiaoyue2"
rs.Open "select regtiaoyue2 from config",conn,1,3
rs("regtiaoyue2")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('注册条约修改成功');window.location.href='editxx.asp';</script>"
response.End
case "expense"
rs.Open "select expense from config",conn,1,3
rs("expense")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('送货方式及费率修改成功');window.location.href='editxx.asp';</script>"
response.End
case "workinghours"
rs.Open "select workinghours from config",conn,1,3
rs("workinghours")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('工作时间修改成功');window.location.href='editxx.asp';</script>"
response.End
case "point"
rs.Open "select point from config",conn,1,3
rs("point")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('积分奖励修改成功');window.location.href='editxx.asp';</script>"
response.End
case "vip"
rs.Open "select vip from config",conn,1,3
rs("vip")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('VIP特惠修改成功');window.location.href='editxx.asp';</script>"
response.End
case "about"
rs.Open "select about from config",conn,1,3
rs("about")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('关于本站修改成功');window.location.href='editxx.asp';</script>"
response.End
case "contact"
rs.Open "select contact from config",conn,1,3
rs("contact")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('联系我们修改成功');window.location.href='editxx.asp';</script>"
response.End
case "aggregative"
rs.Open "select aggregative from config",conn,1,3
rs("aggregative")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('集团采购修改成功');window.location.href='editxx.asp';</script>"
response.End
end select
%>