send_save.asp

一套很早的多用户电子商务程序

<%@ language="vbscript"%>
<%response.Expires = 0%>

<!--#include file="conn.asp"-->
<!--#include file="check_user.asp"-->
<%
sp_name=request.cookies("sp_name")
set rs=server.createobject("adodb.recordset")
sqltext="select * from payment where sp_name='"&sp_name&"' "
rs.open sqltext,conn,3,3
if rs.eof then
rs.addnew
rs("sp_name")=sp_name
end if
'开始更新商家支付信息 
rs("send1")=request.form("send1")
rs("send1_a")=request.form("send1_a")
if IsNumeric("send1_b")=False then
Response.Write ("<script>alert('对不起！配送费价格有不法字符！');javascript:history.back(1)</script>")
response.end()
end if
rs("send1_b")=request.form("send1_b")
rs("send1_c")=request.form("send1_c")

rs("send2")=request.form("send2")
rs("send2_a")=request.form("send2_a")
rs("send2_b")=request.form("send2_b")
rs("send2_c")=request.form("send2_c")

rs("send3")=request.form("send3")
rs("send3_a")=request.form("send3_a")
rs("send3_b")=request.form("send3_b")
rs("send3_c")=request.form("send3_c")

rs("send4")=request.form("send4")
rs("send4_a")=request.form("send4_a")
rs.update
rs.close
conn.close
response.write"<script>alert('成功更新了配送方式！');window.location.href='send.asp'</script>"
%>