|
|
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("shopping.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};Pwd=;"
Conn.Open connstr
%>
<%
lb=request("llbb")
if lb="" then lb="工业品"
SQL="SELECT menua FROM menu where menua<>'' and menua<>'a' order by id"
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
set men=rs("menua")
SQL="SELECT menud FROM menua where menud<>'' order by id "
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sql,conn,1,1
set menl=rs1("menud")
'session("abc")=idb&id
SQL="SELECT name,产地,单位,价1,价2,厂商,简介,id,日期,tu FROM sp order by 日期 desc,id desc "
Set rs3=Server.CreateObject("ADODB.RecordSet")
rs3.Open sql,conn,1,1
set na=rs3("name")
set DW=rs3("单位")
set j1=rs3("价1")
set j2=rs3("价2")
set tu=rs3("TU")
set jj=rs3("简介")
set gg=rs3("厂商")
set dat=rs3("日期")
set cd=rs3("产地")
set idabc=rs3("id")
zs=rs3.RECORDCOUNT
%>
| |
|
共有商品<%=zs%>种 |
|
|
<%
if lb="" then lb="工业品"
SQL="SELECT menub,menub1 FROM menu where menub1='"&lb&"' and menub<>'' and menub<>'a'"
Set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.Open sql,conn,1,1
set menl=rs2("menub")
set menua=rs2("menub1")
%>
|
<%for i=1 to 5 %>
 |
品名：<%Response.Write na%> |
| 单位：<%Response.Write dw%> |
| 价格：<%Response.Write j1%>元 |
| 优惠价：<%Response.Write j2%>元 |
| 简介：<%Response.Write jj%> |
| 详细资料 |
购买 |
<%rs3.movenext%>
|
<%if rs3.eof then exit for%>
<%if rs3.eof then exit for
next%>
|
|
|
|
