<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="../mywp.asp"-->
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT w7 FROM 用户 where 姓名='"&zhbg_name&"'",conn,2,2
hua=rs("w7")
%>
<html>
<head>
<title>〖<%=Application("zhbg_chatroomname")%>〗</title>
<link rel="stylesheet" href="../css.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body topmargin="6"
leftmargin="0" >
<p align="center"><font color="#FF0000">[ <%=zhbg_name%>  
],您的鲜花 <img border="0" src="../chat/img/FRIEND07.GIF"></font></p>
<%
Response.Write "<div align='center'>"
if hua="" or isnull(hua) then
 Response.Write "<font size=+2 color=red>对不起，您没有任何鲜花！</font>"
else
data1=split(hua,";")
data2=UBound(data1)
rs.close
for y=0 to data2-1
	data3=split(data1(y),"|")
rs.open "select i FROM b WHERE a='" & data3(0) &"'",conn,3,3
%>
<img src='jhjs/images/<%=rs("i")%>' alt="<%=data3(0)%>&nbsp;&nbsp;<%=data3(1)%>个"> 
<%x=x+1 
if x/5=int(x/5) then Response.Write "<br>"
rs.close
next
end if
Response.Write "<br><br>"
Response.Write " <font size=2 color=red>鼠标停要花将会有说明！</font>"
Response.Write "</div>"
set rs=nothing
conn.close
set conn=nothing
%>
<p>　</p>
