savexx.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 116 行

<!--#include file="conn.asp"-->
<%
function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function

dim action,html
    action= request.QueryString("action")

    

select case action

'//////////////////////////////
       case "gonggao" 
set rs=server.CreateObject("adodb.recordset")
    rs.open "select gonggao from shop_config",conn,1,3
    rs("gonggao")=trim(request("gonggao"))
    rs.update
    set rs=nothing
    response.Write "<script language=javascript>alert('公告修改成功！');window.location.reload('editxx.asp?action=gonggao')</script>"
    response.End

'//////////////////////////////
       case "huikuanfangshisave"
rs.Open "select * from shop_config",conn,1,3
rs("huikuanfangshi")=trim(request("huikuanfangshi"))
rs.Update
response.Write "<script language=javascript>alert('支付帐号修改成功！');window.location.reload('editxx.asp?action=huikuanfangshi')</script>"
response.End

'//////////////////////////////
       case "jiaoyitiaokuan"
rs.Open "select jiaoyitiaokuan from shop_config",conn,1,3
rs("jiaoyitiaokuan")=trim(request("jiaoyitiaokuan"))
rs.Update
response.Write "<script language=javascript>alert('交易条款修改成功');window.location.reload('editxx.asp?action=jiaoyitiaokuan')</script>"
response.End

'//////////////////////////////
       case "yunshushuoming"
rs.Open "select yunshushuoming from shop_config",conn,1,3
rs("yunshushuoming")=trim(request("yunshushuoming"))
rs.Update
response.Write "<script language=javascript>alert('运输说明修改成功');window.location.reload('editxx.asp?action=yunshushuoming')</script>"
response.End

'//////////////////////////////
       case "gouwuliucheng"
rs.Open "select gouwuliucheng from shop_config",conn,1,3
rs("gouwuliucheng")=trim(request("gouwuliucheng"))
rs.Update
response.Write "<script language=javascript>alert('购物流程修改成功');window.location.reload('editxx.asp?action=gouwuliucheng')</script>"
response.End

'//////////////////////////////
       case "changjianwenti"
rs.Open "select changjianwenti from shop_config",conn,1,3
rs("changjianwenti")=trim(request("changjianwenti"))
rs.Update
response.Write "<script language=javascript>alert('常见问题修改成功');window.location.reload('editxx.asp?action=changjianwenti')</script>"
response.End

'//////////////////////////////
       case "baomi"
rs.Open "select baomi from shop_config",conn,1,3
rs("baomi")=trim(request("baomi"))
rs.Update
response.Write "<script language=javascript>alert('保密和安全修改成功');window.location.reload('editxx.asp?action=baomi')</script>"
response.End

'//////////////////////////////
       case "shouhoufuwu"
rs.Open "select shouhoufuwu from shop_config",conn,1,3
rs("shouhoufuwu")=trim(request("shouhoufuwu"))
rs.Update
response.Write "<script language=javascript>alert('商品销售和售后服务修改成功');window.location.reload('editxx.asp?action=shouhoufuwu')</script>"
response.End

'//////////////////////////////
       case "shiyongfalv"
rs.Open "select shiyongfalv from shop_config",conn,1,3
rs("shiyongfalv")=trim(request("shiyongfalv"))
rs.Update
response.Write "<script language=javascript>alert('适用法律和版权声明修改成功');window.location.reload('editxx.asp?action=shiyongfalv')</script>"
response.End

'//////////////////////////////
       case "regtiaoyue"
rs.Open "select regtiaoyue from shop_config",conn,1,3
rs("regtiaoyue")=trim(request("regtiaoyue"))
rs.Update
response.Write "<script language=javascript>alert('注册条约修改成功');window.location.reload('editxx.asp?action=regtiaoyue')</script>"
response.End

'//////////////////////////////
       case "songhuofeiyong"
rs.Open "select songhuofeiyong from shop_config",conn,1,3
rs("songhuofeiyong")=trim(request("songhuofeiyong"))
rs.Update
response.Write "<script language=javascript>alert('送货方式及费率修改成功');window.location.reload('editxx.asp?action=songhuofeiyong')</script>"
response.End

'//////////////////////////////
       case "gongzuoshijian"
rs.Open "select gongzuoshijian from shop_config",conn,1,3
rs("gongzuoshijian")=trim(request("gongzuoshijian"))
rs.Update
response.Write "<script language=javascript>alert('我们的工作时间修改成功');window.location.reload('editxx.asp?action=gongzuoshijian')</script>"
response.End

end select
%>