<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/char.asp" -->
<!--#include file="IsLogin.asp" -->
<%
 m_ID = Session("CurUserID")
 m_username= Session("CurUsername")
 m_Sql = "SELECT F_id,f_sex,f_birthday,f_area,f_grade FROM T_Member WHERE F_ID=" & m_ID
 Set rs=Server.createobject("Adodb.RecordSet")
' Set rs = conn.Execute(m_Sql)
rs.open m_sql,conn
 if rs.Eof then
   Response.write "对不起，无此会员！"
   Response.end
 end if
 m_sex=rs("f_sex")
 if rs("f_sex")=1 then
 m_sex ="男"
 else
 m_sex="女"
 end if
 m_age=cint(year(date())-year(rs("f_birthday"))+1)
 m_area=rs("f_area")
 m_data=date()+time()
 m_grade=rs("f_grade")
 rs.close
 set rs=nothing
   '添加发送信息
if m_grade="" then m_grade=1
   if Request.ServerVariables("REQUEST_METHOD")="POST" then
   m_content= HTMLEncode(Request.Form("content"))
   Set rs=Server.createobject("Adodb.RecordSet")
   sql="select * from t_say"
   rs.open sql,conn,3,3
   rs.addnew
   rs("f_username")=m_username
   rs("f_sex")=m_sex
   rs("f_age")=m_age
   rs("f_regtime")=now()
   rs("f_area")=m_area
   rs("f_content")=m_content
   rs("f_grade")=m_grade
   rs.update
   rs.close
   set rs=nothing
 ' mSql = "insert into T_say (F_Username,F_sex,F_Content,F_regtime,F_age,F_area) values ("
 ' mSql = mSql+"'"&m_username&"',"
 ' mSql = mSql+"'"&m_sex&"',"
 ' mSql = mSql+"'"&m_Content&"',"
 ' mSql = mSql+""&m_date&","
'  mSql = mSql+""&m_age&",'"&m_area&"')"
 '  conn.execute(mSql)
   call MsgBox("祝贺您，您的真情告白已经成功发送!","club_saylist.asp")
   end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title> - 真情告白</title>
<link href="../css/member.css" rel="stylesheet" type="text/css">
<script>
function check() 	
{
        if (document.addtell.content.value == "")  {
               alert("请输入告白内容");
			   document.addtell.content.focus();
               return false;
        }
        if (document.addtell.content.value.length >255)  {
               alert("告白内容太长了，超过了255个字符");
			   document.addtell.content.focus();
               return false;
        }
		else {
		       return true;}
			}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css"></style>
</head>

<body onLoad="MM_preloadImages('images/hy_b_1b.gif','images/hy_b_3b.gif')">
<!--#include file="../include/top.asp" -->
<!--#include file="../Include/member_Top.asp" -->
<!--#include file="club_top.asp" -->
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center 
background=images/club_telltop.gif border=0>
  <TBODY>
    <TR> 
      <TD colSpan=3 height=45>&nbsp;</TD>
    </TR>
    <TR> 
      <TD width=154 height=52>&nbsp;</TD>
      <TD style="LINE-HEIGHT: 140%" vAlign=top width=497 
      height=52>　　茫茫人海中，我在找寻着你，冥冥中我在感觉着你，准备好了吗？缘或许就在你的面前……真情告白为您提供一个引人瞩目、展示自我风采的舞台，写上对自我、对人生、对梦想中的他(她)的真情告白，让缘分撒满天空，让知己遍及天下……赶紧行动吧！</TD>
      <TD width=129 height=52>&nbsp;</TD>
    </TR>
    <TR> 
      <TD height=25>&nbsp;</TD>
      <TD align=right height=25><A 
      href="club_saylist.asp"><IMG height=25 
      src="images/club_moretellbutton.gif" width=92 border=0></A></TD>
      <TD height=25>&nbsp;</TD>
    </TR>
    <TR> 
      <TD colSpan=3 height=28>&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0><TBODY>
  <TR> 
    <TD bgColor=#ffffff height=25>&nbsp;</TD>
    <TD bgColor=#ff9900 height=25></TD>
    <TD vAlign=top align=middle bgColor=#ffffff height=25>请不要在本栏目中发表无关的内容</TD>
    <TD bgColor=#ff9900 height=25></TD>
    <TD bgColor=#ffffff height=25>&nbsp;</TD>
  </TR>
  <TR> 
    <TD width=32 bgColor=#ffffff height=100>&nbsp;</TD>
    <TD width=5 bgColor=#ff9900 height=100></TD>
    <TD vAlign=top align=middle width=714 bgColor=#ffffff height=100> <TABLE cellSpacing=1 cellPadding=0 width=650 bgColor=#608000 border=0>
        <FORM name=addtell action=club_say.asp method=post>
          <TBODY>
            <TR> 
              <TD align=middle width=79 bgColor=#e4fd82 height=25>会员名</TD>
              <TD width=568 bgColor=#ffffff height=25>&nbsp;<%=m_username%></TD>
            </TR>
            <TR> 
              <TD align=middle bgColor=#e4fd82 height=130>告白内容<BR>
                <BR>
                （最多255个字符） </TD>
              <TD bgColor=#ffffff height=130>&nbsp;
                <TEXTAREA id=content style="BORDER-RIGHT: rgb(66,66,99) 1px solid; BORDER-TOP: rgb(66,66,99) 1px solid; FONT-SIZE: 12px; BORDER-LEFT: rgb(66,66,99) 1px solid; WIDTH: 555px; BORDER-BOTTOM: rgb(66,66,99) 1px solid" name=content rows=8></TEXTAREA></TD>
            </TR>
            <TR align=middle> 
              <TD bgColor=#f4fecf colSpan=2 height=30><INPUT name="image" type=image 
            onclick="return check();" 
            src="images/club_truebutton.gif" align=absMiddle width=80 height=22> 
                &nbsp;&nbsp;<A 
            href="javascript:document.addtell.reset()"><IMG height=22 
            src="images/club_resetbutton.gif" width=80 align=absMiddle 
            border=0></A></TD>
            </TR>
        </TBODY></FORM>
      </TABLE></TD>
    <TD width=6 bgColor=#ff9900 height=100></TD>
    <TD width=23 bgColor=#ffffff height=100>&nbsp;</TD>
  </TR>
  <TR> 
    <TD bgColor=#ffffff colSpan=5 height=29><IMG height=29 
      src="images/club_tellbottem.gif" width=780></TD>
  </TR>
</TABLE>
<!--#include file="../Include/Bottom.asp" -->
</body>
</html>
