<%
'##################################################################                                                                 
'★         web08.net - 威博购物系统                                              
'★  版权所有: web08.net                                                                                                       
'★  程序制作: 威博网络技术公司                                     
'★           email:web08net@hotmail.com                           
'★            Q Q :645095280,475980829
'★	       电话:021-55520018                                                                                                         
'★  相关网址: [产品介绍] http://www.021web.com.cn/gwxt.html
'★            [支持论坛] http://bbs.web08.net/                                                                                     
'★  主页地址: http://www.web08.net/  
'★		http://www.021web.com.cn/			                                                                 
'###################################################################
%>
<%
'########################################
'添加库存函数
'########################################
 sub InsertStock(productid,stocknum)
	conndb
	if IsSqlDataBase =1 then
		productname=getonevalue("web_product","p_name","id='"&productid&"'")
	else
		productname=getonevalue("web_product","p_name","id="&productid&"")
	end if
	ttime=timeformat(now(),0)
	
	sql="insert into web_addstock(web_goodsid,web_goodsname,web_StockNum,web_adddate,web_del) values('"&productid&"','"&productname&"','"&stocknum&"','"&timeformat(now(),0)&"',0) "
	conn.execute(sql)
	sql="update Web_Product set P_Stock=P_Stock+"&trim(stocknum)&" where id="&productid&""
        conn.execute(sql)
	closedb
 end sub
%>