<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/md5.asp"-->
<script language="JavaScript" Src="/web/qq/qq1.Js"></script>
 <%
if session("user")="" then
response.write "<script language='javascript'>"
response.write "alert('您没还有登录，请登录后再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
end if
if session("id")="" then 
response.write "<script language='javascript'>"
response.write "alert('您没还有登录，请登录后再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>交易助手管理操作平台_<%=webname%></title>
<link rel="stylesheet" href="/css.css" type="text/css">
</head>
<body><!--#include file="../../top.asp"-->

<table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
    <td width="970"><table width="970"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="10"><img src="/img/m_left.gif" width="10" height="20"></td>
          <td width="950" bgcolor="#FFFFFF"></td>
          <td width="10"><img src="/img/m_right.gif" width="10" height="20"></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td height="188" colspan="3"><table width="950"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="1" bgcolor="efefef"></td>
                <td width="200" height="77" valign="top"><!--#include file="../left.asp"--></td>
                <td width="1" bgcolor="efefef"></td>
                <td valign="top"><p>&nbsp;</p>
                    <%
if isChkInteger(request("id")) then
id=request("id")
else
response.write "<script language='javascript'>"
response.write "alert('非法操作，正在返回！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
end if

sql="select snsn_getprice.*,snsn_user.* from snsn_getprice,snsn_user where snsn_getprice.id="&id&" and snsn_user.id=snsn_getprice.sendcid"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<p align='center'>对不起，没有您要查询的信息</p>" 
else

conn.execute"update [snsn_getprice] set sendflag=1 where id="&id&""
conn.execute"update [snsn_getprice1] set sendflag=1 where id="&rs("getprice1id")&""

requestinfo=rs("requestinfo")
%>
                    <TABLE width="660" border=0 align="center" cellPadding=0 cellSpacing=0>
                      <TBODY>
                        <TR>
                          <TD vAlign=top align=middle>
                            <TABLE class=fbg1 width="100%" board="0">
                              <TBODY>
                                <TR>
                                  <TD>
                                    <DIV id=nav><strong><%=rs("username")%> <%if rs("mycid")=0 then%>(管理员)<%end if%><font color="#Ff6600">发给我的留言 （网上留言
                                            <%if rs("sendemail")=1 then%>
                  、电子邮件
                  <%end if%>
                  方式发送）</font></strong></DIV></TD>
                                </TR>
                              </TBODY>
                            </TABLE>
                            <TABLE width="100%" 
                  border=0 align=center cellPadding=0 cellSpacing=1 bgcolor="#BBD7FF">
                              <TBODY>
                                <TR>
                                  <TD height="30" bgcolor="#e8f4ff"><B><font color="#Ff6600">&nbsp;标题:</font> </B><%=rs("title")%><%if rs("mycid")=0 then%>(系统邮件)<%end if%></TD>
                                </TR>
                                <TR>
                                  <TD height="30" bgcolor="#e8f4ff"><B><font color="#Ff6600">&nbsp;时间:</font></B><%=rs("datetime")%></TD>
                                </TR>
                                <TR bgColor=#FFFFFF>
                                  <TD class=C style="LINE-HEIGHT: 150%">
                                    <table width="98%"  border="0" align="center" cellpadding="5" cellspacing="0">
                                      <tr>
                                        <td background="../images/<%=rs("bg")%>"><%show=rs("content")

Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="\[qq@*([0-9]*)\]"
show=re.Replace(show,"&nbsp;<img src=/web/QQ/gif/$1.gif border=0 alt='点击看我超酷表演' onload=setTimeout(""ShowQQ('$1')"",3000);  onmouseover=ShowQQ('$1'); style='cursor: hand;border:1px border-collapse: collapse; border-style: dotted;'>")
content=show

   %>
                                            <%=content%>
                                            <P>
                                              <%if requestinfo<>"" then response.write"我需要进一步了解的信息："&requestinfo&"。<BR><BR>"%>
                                              <%
						if rs("checkdate")=1 then response.write"我希望您在近日给我回复！<BR><BR>"
						if rs("sendcontact")=1 then 
						response.write"我的联系方式:<BR>联系人：<a href='mailto:"&rs("email")&"'>"&rs("name")&"</a> "&rs("ch")&"<br>电话："&rs("dh")&"<BR>" 
						if rs("cz")<>"" then response.write"传真: "&rs("cz")&"<BR>" 
						if rs("mobile")<>"" then response.write"手机: "&rs("mobile")&"<BR>"
						response.write"地址："&rs("szd")&"<BR>"
						if rs("post")<>"" then response.write"邮编："&rs("post")&"<br>"
						end if
						response.write"E-mail：<a href='mailto:"&rs("email")&"'>"&rs("email")&"</a><br>"
						response.write"个人主页：http://"&rs("username")&".snsn.net"
						%>
                                          </P></td>
                                      </tr>
                                  </table></TD>
                                </TR>
                                <TR bgColor=#FFFFFF>
                                  <TD height="30" class=C style="LINE-HEIGHT: 150%"><B><font color="#Ff6600">&nbsp;</font></B><IMG src="../images/mailindex.gif" 
      align=absMiddle border=0> <A href="replymessage.asp?id=<%=id%>">回复</A>&nbsp;&nbsp;<span class="C" style="LINE-HEIGHT: 150%">
                                    <%if rs("mycid")>0 or session("id")=1 then%>
                                  </span> <IMG 
      src="../images/icon_2.gif" align=absMiddle> <A 
      href="delreceive.asp?id=<%=id%>" onClick="return confirm('确定删除')">删除</A>&nbsp;<span class="C" style="LINE-HEIGHT: 150%">
                                  <%end if%>
                                  </span>&nbsp; <IMG src="../images/icon_3.gif" 
      align=absMiddle> <A 
      href="/my/love/addfriend.asp?user=<%=rs("username")%>">添加为我的好友</A></TD></TR>
                              </TBODY>
                          </TABLE></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    <%end if%>
                    <p></p>
                </td>
              </tr>
          </table></td>
        </tr>
    </table></td>
    <td valign="top"><img src="/img/index_img.jpg" width="10"></td>
  </tr>
</table>
<!--#include file="../../end.asp"-->
</body>
</html>
