index.asp

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

<%'填写参数，包括数据库，用户名，密码，服务器名称
connstr="Driver={SQL Server};SERVER=stu9908f8;UID=sa;Password=;DATABASE=EBusiness"
'建立连接对象conn
set conn= Server.CreateObject("ADODB.Connection")
'连接数据库
conn.Open connstr
sql="select * from prodinfo"
set rs=conn.execute(sql)
nsql="select count(*) as num from prodinfo"
set nrs=conn.execute(nsql)

%>
<table border=1 bordercolor=green align=center>
<tr><td>产品名</td><td>产品价格</td><td>产品品牌</td><td>产品数量</td><td>操作</td></tr>
<%for i=1 to nrs("num")%>
<tr><td><%=rs("prodname")%></td><td><%=rs("prodprice")%></td><td><%=rs("prodcompany")%></td><td><%=rs("prodnum")%></td><td><a href="gou.asp?pid=<%=rs("prodid")%>">放入购物车</a></td></tr>

<%
rs.movenext
next
%>
</table>
<a href="lookup.asp">查看购物车</a>