一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

一个简单的网上书城的例子(三)!

时间:2008-01-18 编辑:简简单单 来源:一聚教程网

buy.asp:显示商品和用户购物!

<%
DbPath = SERVER.MapPath("ShopBag.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
CategoryID=Request("CategoryID")
Description=Request("Description")
Head="会文书城[" & Description & "] 区"
sql = "Select * From Products Where CategoryID=" & CategoryID
sql = sql & " Order By ProductID"
Set rs = conn.Execute( sql )
%>
>
<%=Head%>

<%=Head%>







<%
     While Not rs.EOF
     IsCheck=""
     If InStr(Session("ProductList"), rs("ProductID")) > 0 Then
        IsCheck="Checked"
     End If
%>






挑选书刊编号书刊名称价格书刊简介

" <%=IsCheck%>>
<%=rs("ProductID")%><%=rs("ProductName")%><%=rs("Price")%>><%=rs("Description")%>