upproduct.asp

来自「小型网上购物网站」· ASP 代码 · 共 21 行

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
selectid=request.form("selectid")
if selectid <> "" then
	sql="select id from product where id in ("&selectid&")"
	set mrs=conn.execute(sql)
	if not (mrs.eof and mrs.bof) then
		do while not mrs.eof
			msql="update product set recommend = 1 where id="&mrs(0)
			'response.write msql&"<br>"
			conn.execute(msql)
			mrs.movenext	
		loop
	end if
end if

response.write "<script>alert('商品上架成功！');window.location.href='b2b_kuclist.asp';</Script>"
response.end
%>