婚礼图片 婚礼专栏导航
<% '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 %>
婚礼预定
留言
婚庆
  鲜 花 (Flower)

[用途]

 <% '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 %>

焦点图标题层

  花车小图片 时尚花车 Marriage vehicle + 更多

<% keyword="花车" set rs=server.CreateObject("adodb.recordset") rs.open "select top 8 bookid,yeshu,isbn,bookzz,shichangjia from shop_books where banci=0 and class like '%"&keyword&"%' 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.movenext loop %> <% loop rs.close set rs=nothing %>
<% response.Write "" if trim(rs("yeshu"))<>"" then response.Write "&trim(rs(" else response.Write "" end if %>
><%=rs("bookzz")%>
价格：￥<%=rs("shichangjia")%>

手捧花
西式捧花
 欧式手捧花
洋兰胸花
 百合胸花
百合腕花
 玫瑰腕花
  婚礼现场 Wedding Flower + 更多
<% keyword="婚场" set rs=server.CreateObject("adodb.recordset") rs.open "select top 4 bookid,yeshu,isbn,bookzz,shichangjia,bookname from shop_books where banci=0 and class like '%"&keyword&"%' 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.movenext loop %> <% loop rs.close set rs=nothing %>
<% response.Write "" if trim(rs("yeshu"))<>"" then response.Write "&trim(rs(" else response.Write "" end if %>
><%=rs("bookzz")%>
价格：￥<%=rs("shichangjia")%>

婚礼手册图片
<% set rs=server.createobject("adodb.recordset") rs.open "select ntype,ntypeid,typeid from ntype where typeid=14 ",conn,1,3 do while not rs.eof ntype=rs("ntype") %> &ntype=<%=rs("ntype")%>&ntypeid=<%=rs("ntypeid")%> class="f"><%=ntype%> | <% rs.movenext loop rs.close set rs=nothing %>
婚事动态
婚事动态

人类历史上首个太空婚礼,新娘叶卡特林娜....
<% set rs=server.createobject("adodb.recordset") rs.open "select top 4 title,selectpic,dateandtime,newsid from article where shenghe=1 and typeid=14 and ntypeid=15 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") %>
·
class="a" target="_blank"><%=left(title,14)%> <% syfl="" if rs("selectpic") = 1 then syfl=syfl & "[图]" response.write syfl end if %> <% rs.movenext loop rs.close set rs=nothing %>
婚纱相册
婚纱相册

那定格在婚纱照里的甜美笑容作为爱情的见证！
<% set rs=server.createobject("adodb.recordset") rs.open "select title,selectpic,dateandtime,newsid from article where shenghe=1 and typeid=14 and ntypeid=19 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") %>
·
class="a"><%=left(title,14)%> <% syfl="" if rs("selectpic") = 1 then syfl=syfl & "[图]" response.write syfl end if %> <% rs.movenext loop rs.close set rs=nothing %>
新婚指南
新婚指南

由于新婚夫妇忙于应酬，生活没有规律...
<% set rs=server.createobject("adodb.recordset") rs.open "select title,selectpic,dateandtime,newsid from article where shenghe=1 and typeid=14 and ntypeid=20 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") %>
·
class="a"><%=left(title,14)%> <% syfl="" if rs("selectpic") = 1 then syfl=syfl & "[图]" response.write syfl end if %> <% rs.movenext loop rs.close set rs=nothing %>