savexx.asp

图书销售系统,页面丰富,连接数据库,多个运行.

<!--#include file="connection.asp"-->
<!--#include file="Vchar.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.reload('login.asp')</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
dim action,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
rs("huikuanfangshi")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('付款方式修改成功');window.location.reload('editxx.asp')</script>"
response.End
'//////////////////////////////
case "jiaoyitiaokuan"
rs.Open "select jiaoyitiaokuan from shop_config",conn,1,3
rs("jiaoyitiaokuan")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('交易条款修改成功');window.location.reload('editxx.asp')</script>"
response.End
'//////////////////////////////
case "yunshushuoming"
rs.Open "select yunshushuoming from shop_config",conn,1,3
rs("yunshushuoming")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('运输说明修改成功');window.location.reload('editxx.asp')</script>"
response.End
'//////////////////////////////
case "gouwuliucheng"
rs.Open "select gouwuliucheng from shop_config",conn,1,3
rs("gouwuliucheng")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('购物流程修改成功');window.location.reload('editxx.asp')</script>"
response.End
'//////////////////////////////
case "changjianwenti"
rs.Open "select changjianwenti from shop_config",conn,1,3
rs("changjianwenti")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('常见问题修改成功');window.location.reload('editxx.asp')</script>"
response.End
'//////////////////////////////
case "baomi"
rs.Open "select baomi from shop_config",conn,1,3
rs("baomi")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('保密和安全修改成功');window.location.reload('editxx.asp')</script>"
response.End
'//////////////////////////////
case "shouhoufuwu"
rs.Open "select shouhoufuwu from shop_config",conn,1,3
rs("shouhoufuwu")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('商品销售和售后服务修改成功');window.location.reload('editxx.asp')</script>"
response.End
'//////////////////////////////
case "shiyongfalv"
rs.Open "select shiyongfalv from shop_config",conn,1,3
rs("shiyongfalv")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('适用法律和版权声明修改成功');window.location.reload('editxx.asp')</script>"
response.End
'//////////////////////////////
case "regtiaoyue"
rs.Open "select regtiaoyue from shop_config",conn,1,3
rs("regtiaoyue")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('注册条约修改成功');window.location.reload('editxx.asp')</script>"
response.End
case "songhuofeiyong"
rs.Open "select songhuofeiyong from shop_config",conn,1,3
rs("songhuofeiyong")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('送货方式及费率修改成功');window.location.reload('editxx.asp')</script>"
response.End
case "gongzuoshijian"
rs.Open "select gongzuoshijian from shop_config",conn,1,3
rs("gongzuoshijian")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('我们的工作时间修改成功');window.location.reload('editxx.asp')</script>"
response.End
case "guanyu"
rs.Open "select guanyu from shop_config",conn,1,3
rs("guanyu")=trim(request("content"))
rs.Update
response.Write "<script language=javascript>alert('书店介绍修改成功');window.location.reload('editxx.asp')</script>"
response.End
end select
%>