<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="byshop_conn.asp"-->
<!--#include file="session.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 "about"
rs.Open "select about from xingxi",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 "map"
rs.Open "select map from xingxi",conn,1,3
rs("map")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('网站地图修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "ad"
rs.Open "select ad from xingxi",conn,1,3
rs("ad")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('广告服务修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "bank"
rs.Open "select bank from xingxi",conn,1,3
rs("bank")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('银行汇款修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "contant"
rs.Open "select contant from xingxi",conn,1,3
rs("contant")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('联系我们修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "pay"
rs.Open "select pay from xingxi",conn,1,3
rs("pay")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('为何付款修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "help"
rs.Open "select help from  xingxi",conn,1,3
rs("help")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('帮助中心修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "zxpay"
rs.Open "select zxpay from  xingxi",conn,1,3
rs("zxpay")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('在线支付修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "hzhb"
rs.Open "select hzhb from  xingxi",conn,1,3
rs("hzhb")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('合作伙伴修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////
case "tiaoyue"
rs.Open "select tiaoyue from  xingxi",conn,1,3
rs("tiaoyue")=content
rs.Update
session("content")=""
response.Write "<script language=javascript>alert('会员条约修改成功');window.location.href='editxx.asp';</script>"
response.End
'//////////////////////////////


end select
%> 
  