gou.asp

网站购物车简单的原理代码 网站购物车简单的原理代码

<%'填写参数，包括数据库，用户名，密码，服务器名称
connstr="Driver={SQL Server};SERVER=stu9908f8;UID=sa;Password=;DATABASE=EBusiness"
'建立连接对象conn
set conn= Server.CreateObject("ADODB.Connection")
'连接数据库
conn.Open connstr
%>
<%
id=request("pid")
sql="select * from prodinfo where prodid='"&id&"'"
set rs=conn.execute(sql)
session("product")=session("product")&"<br>"&rs("prodname")
session("price")=session("price")+rs("prodprice")
conn.execute("update prodinfo set prodnum=prodnum-1 where prodid='"&id&"'")



%>
<script language="vbscript">
alert "购买成功"
window.location.href="index.asp"
</script>