<!--#include file="setting/conn.asp"--><%:SoonBiz.geturl:SoonBiz.chklogin(2):pagemain():SetAllNothing:Sub pagemain():Dim rs:Dim buycar :Set rs=SoonBiz.execute("select price from "& sheethead &"_article where id=" & id )
If rs.eof Then
ShowErr(1018) 
End If:rs.close:Set rs=Nothing:Set rs=SoonBiz.execute("select user_buycar from "& sheethead &"_user where id=" & SoonBiz.user_id)
If rs.bof And rs.eof Then 
ShowErr(1005) 
End If:buycar=rs(0):rs.close:Set rs=Nothing
If Not SoonBiz.ins(buycar,id) Then
buycar=buycar & "," & id:SoonBiz.execute("update "& sheethead &"_user set user_buycar='"& buycar &"' where id="&SoonBiz.user_id)
End If:SoonBiz.AdSuccess("<li>此商品成功加入到购物车</li><li>请进入购物车进行支付</li>"):End Sub
%>