 |
|
 |
|
 蛋糕美食专栏导航 |
|
蛋糕系列
<%
'dim anclassid
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclassid from shop_anclass where anclass='蛋糕'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
其他
<%
'dim anclassid
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclassid from shop_anclass where anclass='其他食品'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
|
|
 |
|
 |
|
[用途] |
<%
'dim anclassid
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclass,anclassid from shop_anclass where anclass='用途'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
[对象] |
<%
'dim anclassid
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclass,anclassid from shop_anclass where anclass='对象'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
[花材] |
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclass,anclassid from shop_anclass where anclass='品种'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=3 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
[节日] |
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclass,anclassid from shop_anclass where anclass='节日'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
[价格] |
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclass,anclassid from shop_anclass where anclass='价格'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=2 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
| |
创意花礼： |
更多>> |
| |
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclass,anclassid from shop_anclass where anclass='创意花礼'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=2 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
| |
商务鲜花： |
更多>> |
| |
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclass,anclassid from shop_anclass where anclass='商务'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=2 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
| |
美食： |
更多>> |
| |
| |
蛋糕
<%
'dim anclassid
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclassid from shop_anclass where anclass='蛋糕'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
其他
<%
'dim anclassid
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclassid from shop_anclass where anclass='其他食品'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
|
| |
礼 品： |
更多>> |
| |
| |
玩具
<%
'dim anclassid
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclassid from shop_anclass where anclass='礼品'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=3 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
饰品
<%
'dim anclassid
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select anclassid from shop_anclass where anclass='饰品'",conn,1,1
if rs1.bof and rs1.eof then
response.write "分类中没有内容！"
else
anclassid=rs1("anclassid")
rs1.close
set rs1=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclass,nclassid from shop_nclass where anclassid="&anclassid,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=3 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
|
|
|
|
| |
 新鲜上市 Today's Cake |
|
|
|
|
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 8 bookid,yeshu,isbn,bookzz,shichangjia,bookname from shop_books where banci=1 order by adddate desc",conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
|
价格：￥<%=rs("shichangjia")%> |
|
|
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
 |
|
|
蛋糕有“磅数”和“英寸”的计算单位2种，对照如下：
2磅＝8寸 ；3磅＝10寸 ；4磅＝12寸 ；6磅＝14寸 ；
8磅＝16寸 ；12磅＝18寸 ；15磅＝20寸 ；20磅＝22寸 |
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 4 title,selectpic,dateandtime,newsid from article where shenghe=1 and typeid=18 and ntypeid=13 order by dateandtime desc",conn,1,3
i=1
do while not rs.eof and i<=4
i=i+1
title=rs("title")
title=left(title,15)
date=rs("dateandtime")
%>
|
| |
|
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 4 title,selectpic,dateandtime,newsid from article where shenghe=1 and typeid=18 and ntypeid=14 order by dateandtime desc",conn,1,3
i=1
do while not rs.eof and i<=4
i=i+1
title=rs("title")
title=left(title,15)
date=rs("dateandtime")
%>
|
| |
|
<%
class1="巧克力"
set rs=server.CreateObject("adodb.recordset")
sql="select top 4 bookid,yeshu,isbn,bookzz,shichangjia,bookname from shop_books where banci=3 order by adddate desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=4 and not rs.eof
i=i+1
%>
|
|
价格：￥<%=rs("shichangjia")%> |
|
|
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
|
|
|
 水果篮专区 |
|
|
|
|
| 深深的祝福，道不尽心中的千言万语，送上精美果篮带上我衷心的问候...
|
<%
class1="果篮"
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 bookid,bookzz from shop_books where class like '%"&class1&"%' order by dazhe,adddate",conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=2 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
|
|
|
|
茶叶专区 |
|
|
|
|
| 浓茶淡水，细斟慢酌，品的是茶，品的也是人生。清淡日子，就在茶中..
|
<%
class1="茶"
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 bookid,bookzz from shop_books where banci=4 and class like '%"&class1&"%' order by dazhe,adddate",conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=2 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
|
|
|
|
蛋糕鲜花组合 |
|
|
|
|
| 带给你蛋糕香甜滋味之时，同时伴着鲜花的芳香，只愿你“甜”和“美”...
|
<%
class1="蛋糕鲜花组合"
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 bookid,bookzz from shop_books where banci=0 and class like '%"&class1&"%' order by dazhe,adddate",conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=2 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
|
|
|
|
水晶之恋鲜花组合 |
|
|
|
|
| 果冻鲜花组合，爽滑细腻的果冻布丁,丝丝水果香甜的香味...
|
<%
class1="水晶之恋"
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 bookid,bookzz from shop_books where banci=0 and class like '%"&class1&"%' order by dazhe,adddate",conn,1,1
do while not rs.eof
%>
<%
i=1
do while i<=2 and not rs.eof
i=i+1
%>
|
<%
rs.movenext
loop
%>
<%
loop
rs.close
set rs=nothing
%>
|
|
|
|
"
end if
%>
介绍>
