<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
'=========================================================
' File: wish.asp
' Version:3.0
' Date: 2005-10-22
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="祈愿专区"
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("祈愿专区","wish.asp")
	Select Case Trim(Request("action"))
		Case "add"
			Stats="发送祈愿"
			Call creat_wish()
		Case "addsave"
			Stats="发送祈愿"
			Call save_wish()	
		Case "view"
			Stats="查看祝愿"
			Call view_wish()
		case else
			call main()
End Select
if founderr then call Mslove_error()
end if
call activeonline()
call footer()

sub main()%>
<TABLE width=750 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR vAlign=top> 
      <TD width=624 height=47><IMG height=47 
      src="images/wish/plp_217_02.gif" width=624></TD>
      <TD width=126><a href="help_view.asp?id=4" target="_blank"><IMG height=47 src="images/wish/plp_217_03.gif" 
      width=126 border=0></a></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width=750 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD vAlign=top width=202 height=447> 
        <TABLE cellSpacing=0 cellPadding=0 border=0>
          <TBODY>
            <TR> 
              <TD align=right width=202><IMG height=60 
            src="images/wish/plp_217_04.gif" width=157><IMG height=71 
            src="images/wish/plp_217_05.gif" width=202></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width=202 border=0>
          <TBODY>
            <TR> 
              <TD width=4 bgColor=#d1e6ff></TD>
              <TD class=l15 vAlign=top align=center width=193> 
                <TABLE cellSpacing=0 cellPadding=0 width=179 border=0>
                  <TBODY>
                    <TR> 
                      <TD width="179" height="224"> 
                        <P><FONT 
                  color=#ff0000>有一个古老的传说：如果我们把心愿写在纸条上，装进一个透明的瓶子里，放入大海中，让它随着海浪漂向远方，当瓶子里装载的愿望被跟多人看到时，你的愿望能够实现。后来，人们就把这样的瓶子叫做-漂流瓶。<BR>
                          拾起一个成满心愿的瓶子，来自远方的问候，让我们在打开瓶盖的瞬间，有种暖暖的感动萦绕心中，久久不能释怀……</FONT> 
                        </P></TD>
                    </TR>
                  </TBODY>
                </TABLE>
              </TD>
              <TD width=5 bgColor=#d1e6ff><IMG height=272 
            src="images/wish/plp_217_06.gif" width=5></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width=202 
      background=images/wish/plp_217_09.gif border=0>
          <TBODY>
            <TR> 
              <TD width=19 height=19><IMG height=19 
            src="images/wish/plp_217_07.gif" width=19></TD>
              <TD align=right><IMG height=19 src="images/wish/plp_217_08.gif" 
            width=19></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <TD width=548 align="left" valign="top"> 
        <div align="center">
          <table width="545" height="447" border="0" align="left" cellpadding="0" cellspacing="0" background="images/wish/bg.jpg">
            <tr>
              <td width="408" height=447> 
                <table width="408" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="77">&nbsp;</td>
                    <td width="312">&nbsp;</td>
                    <td width="19">&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="156">&nbsp;</td>
                    <td><%
					dim i,typeid,titlebank,rndtemp,curorrnd,countrs
set rs=server.createobject("adodb.recordset")
  sql="select Typeid,id from Ms_wish order by id"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
	countrs=rs.recordcount
	if countrs>=6 then
		countrs=6
	else
		countrs=countrs
	end if
randomize
for i= 1 to countrs
rndtemp=rs.recordcount-1
curorrnd=Int(((rndtemp-1+1)*Rnd+1))
rs.move curorrnd,1
typeid=rs(0)
Select Case typeid
	Case 1
		titlebank="爱情"
	case 2
		titlebank="学业"
	case 3
		titlebank="健康"
	case 4
		titlebank="家庭"
	case 5
		titlebank="事业"
	case 6
		titlebank="未来"
	case 7
		titlebank="财富"
	case 8
		titlebank="生活"
	case 9
		titlebank="情人节"
End Select							
Response.Write "<marquee scrollamount="&i&" delay=0 onmouseover=""stop()"" onmouseout=""start()"">"&chr(13)&_
"<a href=""wish.asp?action=view&id="&Rs(1)&""" title="&titlebank&"><img src=""images/wish/w_"&typeid&".gif"" border=0></a>"&chr(13)&_
"</marquee>"&chr(13)
next
End IF
Rs.Close
Set Rs=Nothing
%></td>
                    <td>&nbsp;</td>
                  </tr>
                  <tr>
                    <td>&nbsp;</td>
                    <td>&nbsp;</td>
                    <td>&nbsp;</td>
                  </tr>
                </table>
              <td width="137" align="right" valign="top"><table width="90%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="302">&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="137" align="center"><a href="wish.asp?action=add"><img src="images/wish/bghit.jpg" width="119" height="120" border="0"></a></td>
                  </tr>
                </table> </td>
</tr>
</table>
        </div>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
          <TBODY>
            <TR> 
              <TD width=145 background=images/wish/back1.gif 
            height=32>　　<FONT color=#4281b9><STRONG>精彩祈愿</STRONG></FONT></TD>
              <TD align=middle 
        background=images/wish/back2.gif>&nbsp;</TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width=560 background="" border=0>
          <TBODY>
            <TR> 
              <TD width=277> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><A 
                  href="wish_list.asp?sort=3"><IMG 
                  height=72 src="images/wish/father.jpg" width=76 
                  border=0></A></TD>
                      <TD><STRONG><A class=memail 
                  href="wish_list.asp?sort=3">亲爱的爸爸</A></STRONG><BR>
                        虽然您不向母亲那样照料叮嘱我，但我知道您是爱我的，是您给了我坚强的意志，是您给了我许多许多，我爱您--爸爸！</TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
              <TD background=images/wish/tiao2.gif rowSpan=5>&nbsp;</TD>
              <TD width=277> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><A 
                  href="wish_list.asp?sort=3"><IMG 
                  height=72 src="images/wish/health1.jpg" width=72 
                  border=0></A></TD>
                      <TD><STRONG><A class=memail 
                  href="wish_list.asp?sort=4">健康每一天</A></STRONG><BR>
                        <FONT 
                  color=#666666>人人都说生命在于运动，健康是“1”，只有这个“1”还在，才会有后面的无数个“0”。</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><A 
                  href="wish_list.asp?sort=1"><IMG 
                  height=72 src="images/wish/family.jpg" width=72 
                  border=0></A></TD>
                      <TD><STRONG><A class=memail 
                  href="wish_list.asp?sort=1">温馨的小窝</A></STRONG><BR>
                        <FONT 
                  color=#666666>真想有个温馨甜蜜的小窝，享受爱人的温存体贴，孩子的调皮，父母的慈爱......</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
              <TD> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><A 
                  href="wish_list.asp?sort=2"><IMG 
                  height=72 src="images/wish/study2.jpg" width=72 
                  border=0></A></TD>
                      <TD><FONT color=#666666><STRONG><A class=memail 
                  href="wish_list.asp?sort=2">天天向上</A></STRONG><BR>
                        再加把油吧，希望我能如愿以偿的考上向往的学府，也不妄母亲多年的照料和期盼......</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><A 
                  href="wish_list.asp?sort=6"><IMG 
                  height=72 src="images/wish/future1.jpg" width=72 
                  border=0></A></TD>
                      <TD><FONT color=#666666><STRONG><A class=memail 
                  href="wish_list.asp?sort=6">未知的未来</A></STRONG><BR>
                        每一天的太阳都是新的太阳，而每一天又是一个新的开始，未来......我的未来会是什么样呢？</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
              <TD> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><A 
                  href="wish_list.asp?sort=5"><IMG 
                  height=72 src="images/wish/work.jpg" width=72 
                  border=0></A></TD>
                      <TD><FONT color=#666666><STRONG><A class=memail 
                  href="wish_list.asp?sort=5">快乐的工作</A></STRONG><BR>
                        虽然工作是生活的一种手段，但我爱我的工作，就向爱我新买的那套西装，呵呵！</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><A 
                  href="wish_list.asp?sort=8"><IMG 
                  height=72 src="images/wish/life.jpg" width=72 
                  border=0></A></TD>
                      <TD><FONT color=#666666><STRONG><A class=memail 
                  href="wish_list.asp?sort=8">舒适的生活</A></STRONG><BR>
                        有人说生活就是一杯白开水，让我的祝福把它变成可乐、红茶、咖啡、美年达！总之，想什么有什么！</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
              <TD> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><IMG height=72 
                  src="images/wish/20050121_loverday_tu15.gif" width=72 
                  border=0></TD>
                      <TD><FONT color=#666666><STRONG><A class=memail 
                  href="wish_list.asp?sort=9">情人节的愿望</A></STRONG><BR>
                        爱你，无需理由，爱你，没有动机，但，爱你，需要言语……99个字，让你明白你是我的命中情人。99个字，让你明白，我是你的天赐爱侣！font&gt;</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><A 
                  href="wish_list.asp?sort=7"><IMG 
                  height=72 src="images/wish/wealth.jpg" width=72 
                  border=0></A></TD>
                      <TD><FONT color=#666666><STRONG><A class=memail 
                  href="wish_list.asp?sort=7">财源滚滚来</A></STRONG><BR>
                        我喜欢烤肉串（$）,还喜欢烤羊头（￥），还喜欢......，口水都出来了，不是在做梦吧！</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
              <TD> <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center 
border=0>
                  <TBODY>
                    <TR> 
                      <TD><IMG 
                  height=72 src="images/wish/mother.jpg" width=72 
                  border=0></TD>
                      <TD><FONT color=#666666><STRONG><A class=memail 
                  href="wish_list.asp?sort=10">我最爱的母亲</A></STRONG><BR>
                        妈妈，多想在您耳边轻轻地唤着，多想帮您梳梳花白的头发，多想握着您扭曲的长满老茧的双手，多想......</FONT></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
          <TBODY>
            <TR> 
              <TD width=145 background=images/wish/back1.gif 
            height=32>　　<FONT color=#4281b9><STRONG>愿望天使</STRONG></FONT></TD>
              <TD class=f14 align=middle 
          background=images/wish/back2.gif>&nbsp;</TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=2 cellPadding=5 width="85%" align=center border=0>
          <TBODY>
            <TR> 
              <TD vAlign=center align=middle><IMG height=125 
            src="images/wish/memorialday.jpg" width=100></TD>
              <TD> <P><FONT 
            color=#666666><BR>
                  还记得新婚的那一天吗？我们感动的哭了，多少的风风雨雨，多少的坎坎坷坷，终于换来了这一天，真想时间就停在那一刻......</FONT><FONT 
            color=#666666> <BR>
                  <BR>
                  父母年近花甲了，可他们仍然恩爱得让我们年轻人都羡慕不已，再过几天就是他们的金婚纪念日了，送点什么让他们永远留住那一天呢？<BR>
                  <BR>
                  暗恋她/他已经很久了，真恨自己这张嘴，每次话到嘴边就又咽了回去，唉！！！怎么告诉他/她才好呢？<BR>
                  <BR>
                  有了，就送一个精彩的网页吧，让我们值得留恋的日子永远的留在这无边的网际吧！！<BR>
                  <BR>
                  <FONT 
            color=#ff0000><BR>
                  注</FONT>：愿望天使是我们开办的网上祝福栏目，为大家提供一个在网上表达意愿和祝福的机会 ，来信请写明双方姓名、10位交友（ID）社区身份证号，您的祝福的话语，多张照片和您其他的要求，我们将为您发布特别的心愿。</FONT></P></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD> <P>&nbsp;</P></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <TD vAlign=top width=190>&nbsp; </TD>
    </TR>
  </TBODY>
</TABLE>
<%
end sub

sub creat_wish()''创建祝福
if not founduser then
	Errmsg=Errmsg+"<br>"+"<li>您还没有<a href=login.asp>登陆</a>，不能发布祈愿！"
	Founderr=true
	exit sub
end if
%>
<TABLE width=600 border=0 align="center" cellPadding=0 cellSpacing=0>
  <FORM name=bottle action=wish.asp method=post>
    <TBODY>
      <TR> 
        <TD height="525" align=middle> 
          <TABLE cellSpacing=0 cellPadding=0 width=477 border=0>
            <TBODY>
              <TR vAlign=bottom> 
                <TD width=150 height=103><BR></TD>
                <TD width=234><IMG height=86 src="images/wish/xmas_001a.gif" 
            width=167></TD>
                <TD width=93><a href="help_view.asp?id=4"><IMG height=26 src="images/wish/xmas_002.gif" 
            width=66 border=0></a></TD>
              </TR>
              <TR> 
                <TD colSpan=3 height=52><IMG height=52 
            src="images/wish/xmas_003.gif" width=477></TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width=477 border=0>
            <INPUT type=hidden value=addsave name=action>
            <TBODY>
              <TR> 
                <TD align=middle background=images/wish/xmas_004.gif colSpan=3 
          height=46><FONT 
            style="FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #f02b8c">愿望类别：</FONT>
                  <SELECT name=typeid>
                    <OPTION value=0>请选择
                    <OPTION value=1 selected>爱情</OPTION>
                    <OPTION value=2>学业</OPTION>
                    <OPTION value=3>健康</OPTION>
                    <OPTION 
              value=4>家庭</OPTION>
                    <OPTION value=5>事业</OPTION>
                    <OPTION 
              value=6>未来</OPTION>
                    <OPTION value=7>财富</OPTION>
                    <OPTION 
              value=8>生活</OPTION>
                    <OPTION 
        value=9>情人节</OPTION>
                  </SELECT></TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width=477 border=0>
            <TBODY>
              <TR> 
                <TD width=65 height=185><IMG height=185 
            src="images/wish/xmas_005.gif" width=65></TD>
                <TD align=middle width=349> <TABLE cellSpacing=0 cellPadding=0 width=border=0>
                    <TBODY>
                      <TR> 
                        <TD class=f14 align=middle height=30><B>发出我的愿望</B></TD>
                      </TR>
                      <TR> 
                        <TD><TEXTAREA style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; OVERFLOW: hidden; BORDER-LEFT: 0px; WIDTH: 300px; BORDER-BOTTOM: 0px; HEIGHT: 120px" name=Content></TEXTAREA>
                          <BR>
                          <FONT 
                  color=#cccccc>只限256个汉字。</FONT></TD>
                      </TR>
                    </TBODY>
                  </TABLE></TD>
                <TD width=63><IMG height=185 src="images/wish/xmas_006.gif" 
            width=63></TD>
              </TR>
              <TR> 
                <TD colSpan=3 height=16><IMG height=16 
            src="images/wish/xmas_007.gif" width=477></TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width=477 border=0>
            <TBODY>
              <TR vAlign=top> 
                <TD width=186 height=106><IMG height=74 
            src="images/wish/xmas_008.gif" width=186></TD>
                <TD width=106><INPUT src=images/wish/xmas_009.gif type=image name=send class="notinput"></TD>
                <TD width=185><IMG height=74 src="images/wish/xmas_010.gif" 
            width=185></TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
  </FORM>
</TABLE>
<%
end sub

sub view_wish()''查看祝福
dim id,typeid,titlebank,UserInfo
id=checkStr(Request("id"))
if id="" or not isnumeric(id) then
errmsg=errmsg+"<br>"+"<li>参数错误！"
	founderr=true
	exit sub
end if
sql="select w.username,w.content,w.typeid,w.hits,u.usersex,u.UserBirthday,u.UserInfo from Ms_wish w inner join Ms_user u on w.username=u.username where w.ID="&ID&""
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
typeid=rs(2)
UserInfo=rs(6)
Select Case typeid
	Case 1
		titlebank="爱情"
	case 2
		titlebank="学业"
	case 3
		titlebank="健康"
	case 4
		titlebank="家庭"
	case 5
		titlebank="事业"
	case 6
		titlebank="未来"
	case 7
		titlebank="财富"
	case 8
		titlebank="生活"
	case 9
		titlebank="情人节"
End Select
%>
<TABLE width=600 border=0 align="center" cellPadding=0 cellSpacing=0>
    <TBODY>
      <TR> 
        <TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width=477 border=0>
            <TBODY>
              <TR vAlign=bottom> 
                <TD width=150 height=103><BR></TD>
                <TD width=234><IMG height=86 src="images/wish/xmas_001a.gif" 
            width=167></TD>
                
              <TD width=93><a href="help_view.asp?id=4"><IMG height=26 src="images/wish/xmas_002.gif" 
            width=66 border=0></a></TD>
              </TR>
              <TR> 
                <TD colSpan=3 height=52><IMG height=52 
            src="images/wish/xmas_003.gif" 
width=477></TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE 
      style="BORDER-RIGHT: #f02b8c 10px solid; BORDER-LEFT: #f02b8c 10px solid" 
      cellSpacing=0 cellPadding=0 width=477 border=0>
            <TBODY>
              <TR> 
                <TD align=middle> <TABLE 
            style="BORDER-RIGHT: #e2e2e2 0px solid; BORDER-TOP: #e2e2e2 0px solid; BORDER-LEFT: #e2e2e2 0px solid; BORDER-BOTTOM: #e2e2e2 0px solid; BACKGROUND-COLOR: #ffffff" 
            cellSpacing=0 cellPadding=0 width=366 border=0>
                    <TBODY>
                      <TR> 
                        <TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
                            <TBODY>
                              <TR> 
                                <TD class=f14 align=middle height=25><B>漂流瓶的传说</B></TD>
                              </TR>
                              <TR> 
                                <TD class=l15 
                        height=25>　　有一个很古老的传说。如果把心愿或者想告诉某人的一段话写在纸条上，放到一个透明的瓶子里，让它飘向很远很远的远方，当这个瓶子的愿望被越多的人看到，你的愿望就越有实现的可能。</TD>
                              </TR>
                              <TR> 
                                <TD class=f14 vAlign=center align=middle height=50><A href="wish.asp?action=add"><IMG 
                        src="images/wish/xmas_015.gif" 
                    border=0></A></TD>
                              </TR>
                            </TBODY>
                          </TABLE></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  <TABLE 
            style="BORDER-RIGHT: #e2e2e2 1px solid; TABLE-LAYOUT: fixed; BORDER-TOP: #e2e2e2 1px solid; BORDER-LEFT: #e2e2e2 1px solid; BORDER-BOTTOM: #e2e2e2 1px solid; BACKGROUND-COLOR: #f4f4f4; WORD-WRAP: break-word" 
            cellSpacing=0 cellPadding=0 width=366 border=0>
                    <TBODY>
                      <TR> 
                        <TD 
                style="BACKGROUND: url(images/wish/xmas_011.gif) no-repeat right center" 
                align=middle> 
				<TABLE cellSpacing=0 cellPadding=0 width=316 border=0>
                            <TBODY>
                              <TR> 
                                <TD height=15></TD>
                                <TD height=15></TD>
                              </TR>
                              <TR> 
                                <TD class=f14 align=middle colSpan=2 
                        height=25><B><%=rs(0)%>的愿望　[<%=titlebank%>类]</B></TD>
                              </TR>
                              <TR> 
                                <TD height=15></TD>
                                <TD></TD>
                              </TR>
                              <TR> 
                                <TD class=f14 vAlign=top align=right width=70 
                        height=25><SPAN class=l15>愿　望：</SPAN></TD>
                                <TD class=l15 vAlign=top><SPAN class=f14><FONT 
                        color=#f02b8c><B><%=rs(1)%></B></FONT></SPAN></TD>
                              </TR>
                              <TR> 
                                <TD class=f14 align=right width=70 height=25>发送者：</TD>
                                <TD class=f14><A href="dispuser.asp?username=<%=rs(0)%>" target=_blank><%=rs(0)%></A>　<%if rs(4)=1 then
				response.write("男")
				else
				response.write("女")
				end if%>　<%=datediff("yyyy",rs(5),Now())%>岁 人气&nbsp;<%=rs(3)%> </TD>
                              </TR>
                              <TR> 
                                <TD class=f14 align=right width=70 height=25>所在地：</TD>
                                
                              <TD class=f14><%=split(userinfo,"|||")(4)%><%=split(userinfo,"|||")(5)%></TD>
                              </TR>
                              <TR> 
                                <TD height=15></TD>
                                <TD></TD>
                              </TR>
                            </TBODY>
                          </TABLE></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  <BR>
                  <IMG 
            height=25 src="images/wish/xmas_016.gif" width=25 
            align=absMiddle border=0> &nbsp;如果您想帮助她实现这个愿望，快快告诉她吧！ </TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width=477 border=0>
            <TBODY>
              <TR vAlign=bottom> 
                <TD width=43 height=42><IMG height=42 
            src="images/wish/xmas_013.gif" width=43></TD>
                <TD width=391> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                      <TR> 
                        <TD vAlign=top align=middle height=25><FONT 
                  color=#f02b8c><B>:::你跟他很有缘，希望能珍惜缘分，帮祝他早日实现 愿望:::</B></FONT> 
                        </TD>
                      </TR>
                      <TR> 
                        <TD bgColor=#f02b8c height=10></TD>
                      </TR>
                    </TBODY>
                  </TABLE></TD>
                <TD width=43><IMG height=42 src="images/wish/xmas_014.gif" 
            width=43></TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width=330 border=0>
            <TBODY>
              <TR> 
                <TD width=330 bgColor=#f02b8c height=13></TD>
              </TR>
              <TR> 
                <TD height=3></TD>
              </TR>
              <TR> 
                <TD bgColor=#f02b8c 
  height=2></TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
</TABLE>
<%
conn.execute("Update Ms_wish set hits=hits+1 where id="&id&"")
end if
rs.close
end sub

sub save_wish()''保存
if not founduser then
	Errmsg=Errmsg+"<br>"+"<li>您还没有<a href=login.asp>登陆</a>，不能发布祈愿！"
	Founderr=true
end if
if Not ChkPost then'查检提交数据
	ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
   	FoundErr=True
end if
dim typeid,Content
typeid=checkStr(Request("typeid"))
Content=checkStr(Request("Content"))
	if typeid="" or not isnumeric(typeid) then
		errmsg=errmsg+"<br>"+"<li>请选择祝福类别。"
		founderr=true
	end if
	if Content="" or strLength(request("Content"))>256 then
		errmsg=errmsg+"<br>"+"<li>请输入祝福内容(长度不能大于256汉字)。"
		founderr=true
	end if
	if Chkvalue(1,GroupSetting(201),Cint(GroupSetting(202)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的金币不够请确认。"
	founderr=true
end if
if Chkvalue(2,GroupSetting(203),Cint(GroupSetting(204)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的魅力值不够请确认。"
	founderr=true
end if
if Chkvalue(3,GroupSetting(205),Cint(GroupSetting(206)))=false then
	errmsg=errmsg+"<br>"+"<li>对不起，您的经验值不够请确认。"
	founderr=true
end if
if founderr=true then exit sub
sql="Insert into Ms_wish (Username,typeid,Content,Addtime) VALUES ('"&trim(MemberName)&"',"&Typeid&",'"&Content&"','"&now()&"')"
conn.execute("update Ms_user set UserWealth=UserWealth "&GroupSetting(201)&Cint(GroupSetting(202))&"),UserEP=UserEP  "&GroupSetting(203)&(CintGroupSetting(204))&",UserCP=UserCP  "&GroupSetting(205)&Cint(GroupSetting(206))&" where Username='"&trim(MemberName)&"'")
conn.execute(sql)
	sucmsg=sucmsg+"<br>"+"<li><b>您已经成功发送祝福。"
	call Mslove_suc()
end sub
%>   
</body>
</html> 