my_order_modi_number.asp

来自「一套集网上购物和商品管理为一体的强大的网上商店(商城)系统」· ASP 代码 · 共 29 行

<!--#include file="conn.asp"-->
<%
j=trim(Request.form("j"))
buynumber_modi=trim(Request.form("buynumber"))
id=trim(Request.QueryString("id"))

sql="select * from Net008_orderlist where id="&cint(id)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2
response.write rs("buynumber")&"<br>"

buynumberArray=split(rs("buynumber"),"|")
For i = LBound(buynumberArray) To UBound(buynumberArray)
	if i=cint(j) then
		buynumberArray(i)=buynumber_modi
	end if
	buynumber=buynumber+buynumberArray(i)+"|"
next
buynumber_len=len(buynumber)-1
buynumber=left(buynumber,buynumber_len)


rs("buynumber")=buynumber
rs.update
rs.close
set rs=nothing

response.redirect "my_orderlist_show.asp?id="&id
%>