<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("/intonet_data/idee_solarrain_data.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql = "select product_id,product_name from products where sign='meizi' order by update_date,update_time desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "
目前没有商品
"
else
%>
<% do while not rs.eof
pid=rs("product_id")
%>
<%
if Cint(productid)=CInt(pid) then
%>
| ■ |
<% response.write rs("product_name")
%>
|
<% else
%>
■ |
<% response.write rs("product_name")
%>
|
<% end if
%>
<% rs.movenext
loop
%>
<% rs.close
end if
set rs=nothing
%>
|
常用花语
| 玫瑰 |
爱情、容光焕发 |
|
红玫瑰 |
热情，深爱你 |
| 白玫瑰 |
天真，纯洁，尊敬 |
粉玫瑰 |
感动，爱的宣言，铭记于心 |
| 康乃馨 |
感谢母亲，母亲我爱你 |
红康乃馨 |
相信你的爱 |
| 剑兰 |
用心，执著，步步高升 |
白康乃馨 |
真情，我爱永在 |
| 百合 |
百年好合，高贵，顺利，心想事成 |
粉康乃馨 |
热爱，亮丽 |
| 黄百合 |
胜利，荣誉，高贵 |
白百合 |
纯洁，庄严，心心相印 |
| 菊花 |
高洁，清净，长寿 |
橘红百合 |
财富，荣誉，高雅 |
| 扶郎 |
兴奋，友爱，欣欣向荣 |
郁金香 |
爱的表白，祝福永远，高贵，多情 |
| 向日葵 |
爱慕、光辉忠诚健康稳重 |
双色郁金香 |
美丽的你，喜相逢 |
| 翠菊 |
可靠的爱，请相信我 |
羽毛郁金香 |
情意绵绵 |
| 小仓兰 |
浓情，幸福 |
水仙 |
多情，想你，冰清玉洁 |
| 石斛兰 |
美人，喜悦，幸福 |
腊梅 |
不畏严寒，品格 |
| 马蹄莲 |
希望，高洁 |
满天星 |
衷心喜欢，清纯，浪漫，温柔 |
| 紫丁香 |
爱曲渐萌，初恋 |
波斯菊 |
野性之美 |
| 洋绣球 |
骄傲，自尊，酷 |
麦秆菊 |
永恒的记忆铭刻在心 |
| 凤梨 |
豪放，好运 |
黄莺 |
野趣 |
| 三色堇 |
沉思，请想念我 |
天堂鸟 |
潇洒，多情公子 |
| 矢车菊 |
纤细，优雅 |
鸢尾 |
好消息，想念你 |
| 白头翁 |
坚韧，追随 |
金盏花 |
惜别 |
| 晚香玉 |
寻找快乐 |
彩色海芋 |
爱心，真情 |
鲜花应季而开，人们看见不同的花卉会有不同的感受，于是就出现了花语。
不同的国家，不同的民族对花有不同的喜好，花语也因此而不同。
|
<%
'------------------------------------------------------------------------------------------
'显示用户评分及评论
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select count(*) from comments where product_id=" & product_id
RS.Open sql,conn
mycount=rs(0)
rs.close
set rs=nothing
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select avg(d_vote),avg(f_vote),avg(ui_vote),avg(fp_vote) from comments where product_id=" & product_id
RS.Open sql,conn
mark=Cint((rs(0)+rs(1)+rs(2)+rs(3))/4)
d_vote=rs(0)
f_vote=rs(1)
ui_vote=rs(2)
fp_vote=rs(3)
rs.close
set rs=nothing
%>
用户评分：
<% =mark %>
评分人次：
<% =mycount %>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 4 * from comments where product_id=" & product_id & " order by comment_id desc"
RS.Open sql,conn,1,1
if rs.eof and rs.bof then
%>
| 还没有用户评论 |
<% else
do while not rs.eof
%>
| ·
<% if Len(rs("comment"))>18 then
response.write Left(rs("comment"), 18) & "..." &"[" & rs("username") & "]"
else
response.write rs("comment")&"[" & rs("username") & "]"
end if
%>
|
<% rs.movenext
loop
%>
<% end if
rs.close
set rs=nothing
'-------------------------------------------------------------------------------------------
%>
|
