<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友情缘网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
-->
</style>
<script language="javascript">
<!--
function chkit(){
 if(frmmail.receiver.value.length==0){
  alert("请填写收信人！");
  frmmail.receiver.focus();
  return false;
 }
 if(frmmail.title.value.length==0){
  alert("请填写短信主题！");
  frmmail.title.focus();
  return false;
 }
 if(frmmail.content.value.length==0){
  alert("请填写信件内容！");
  frmmail.content.focus();
  return false;
 }
 return true;
}
//-->
</script>
</head>

<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="204" height="328" valign="top"><!--#include file="memberleft.asp"-->
&nbsp;</td>
    <td width="583" valign="top"><table width="565" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
              <TBODY>
                <TR>
                  <TD align=center width="2%"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                  <TD height="31" align=center background="image/tiao_4.gif"><TABLE width=531 height="23" border=0 cellPadding=0 cellSpacing=0>
                      <TBODY>
                        <TR>
                          <TD align=middle><div align="left" class="pgd">回复邮件 </div></TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                  <TD width="2%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                </TR>
              </TBODY>
          </TABLE></td>
        </tr>
        <tr>
          <td height="299" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
              <br>
              <table width="530" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td><%
dim mail_id
mail_id=request.QueryString("mail_id")
if mail_id="" or not isnumeric(mail_id) then
  response.Write "操作错误，须为数字！"
  response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from sd_ly where id="& mail_id &""
rs.open sql,conn,1
if not(rs.eof or rs.bof) then
%>
                      <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#FEE2F5" class="STYLE4" bordercolordark="#FFFFFF">
                        <form action="savemail.asp" method="post" onSubmit="return chkit()" name="frmmail">
                          <tr>
                            <td width="70" height="26" align="center"><div align="left">
                                <TABLE width=100 height="20" border=0 cellPadding=0 cellSpacing=0>
                                  <TBODY>
                                    <TR>
                                      <TD align=middle 
        bgColor=#76B8F4 class="STYLE4"><div align="center" class="STYLE3">回复邮件</div></TD>
                                    </TR>
                                  </TBODY>
                                </TABLE>
                            </div></td>
                          </tr>
                          <tr>
                            <td height="5" bgcolor="#dfdfdf"></td>
                          </tr>
                          <tr>
                            <td height="30" bgcolor="#EDF8FE"><table width="506" border="0" cellpadding="3" cellspacing="2" class="STYLE4">
                                <tr>
                                  <td width="71" height="28">发件人：</td>
                                  <td width="435"><%=MemberName%></td>
                                </tr>
                                <tr>
                                  <td height="28">收件人：</td>
                                  <td><input name="receiver" type="text" id="receiver" size="15" maxlength="20" value="<%=rs("postname")%>"></td>
                                </tr>
                                <tr>
                                  <td height="28">主　题：</td>
                                  <td><input name="title" type="text" id="title" size="30" maxlength="50" value="Re:<%=rs("title")%>"></td>
                                </tr>
                            </table></td>
                          </tr>
                          <tr>
                            <td height="30"><table width="532" border="0" cellspacing="2" cellpadding="3">
                                <tr>
                                  <td width="70" bgcolor="#CAE4FD">&nbsp;</td>
                                  <td width="85" bgcolor="#CAE4FD"><input type="submit" name="Submit" value="发送"></td>
                                  <td width="86" bgcolor="#CAE4FD"><input type="reset" name="Submit2" value="重写"></td>
                                  <td width="128" bgcolor="#CAE4FD">&nbsp;</td>
                                  <td width="121" bgcolor="#CAE4FD">&nbsp;</td>
                                </tr>
                                <tr>
                                  <td height="152" colspan="5"><textarea name="content" cols="69" rows="10" id="content"><%
response.Write ""&Vbcrlf	
response.Write ""&Vbcrlf	
response.Write ""&Vbcrlf	
response.Write ""&Vbcrlf	
response.Write "-------------------以下是原邮件内容------------------"&Vbcrlf
response.Write ""&Vbcrlf	
response.Write inconvert(rs("content"))	&Vbcrlf	
response.Write ""&Vbcrlf					  
response.Write "---------------------邮件内容结束--------------------"
						  %>
                </textarea></td>
                                </tr>
                            </table></td>
                          </tr>
                          <tr>
                            <td height="22">注：邮件正文内容不能超过3000字 </td>
                          </tr>
                          <tr>
                            <td height="22"><table width="532" border="0" cellspacing="2" cellpadding="3">
                                <tr bgcolor="#CAE4FD">
                                  <td width="70">&nbsp;</td>
                                  <td width="85"><input type="submit" name="Submit3" value="发送"></td>
                                  <td width="86"><input type="reset" name="Submit22" value="重写"></td>
                                  <td width="128">&nbsp;</td>
                                  <td width="121">&nbsp;</td>
                                </tr>
                            </table></td>
                          </tr>
                          <tr>
                            <td height="35">&nbsp;</td>
                          </tr>
                        </form>
                      </table>
                      <%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
                  </td>
                </tr>
              </table>
          </td>
        </tr>
    </table></td>
    <td width="163"><!--#include file="fenlei.asp"-->
&nbsp;</td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
