<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%sendnmb=request.QueryString("id")
if session(sendnmb)=true then session(sendnmb)=false%>
<%
function changeimg(str) 
	changeimg=replace(replace(replace(str,":_","<img src='image/img/14.gif' border=0>"),"[mu]","<br><center><embed src='"),"[/mu]","' height=45 width=250 loop=true autostart=false></embed></center>")
	changeimg=replace(replace(replace(replace(changeimg,":D","<img src='image/img/1.gif' border=0>"),"8)","<img src='image/img/11.gif' border=0>"),":~","<img src='image/img/15.gif' border=0>"),"=^_^=","<img src='image/img/16.gif' border=0>")
	changeimg=replace(replace(replace(replace(changeimg,"b)","<img src='image/img/17.gif' border=0>"),":o","<img src='image/img/18.gif' border=0>"),"?_?","<img src='image/img/19.gif' border=0>"),":0","<img src='image/img/20.gif' border=0>")    
	changeimg=replace(replace(replace(replace(changeimg,";)","<img src='image/img/21.gif' border=0>"),"K)","<img src='image/img/2.gif' border=0>"),"B)","<img src='image/img/3.gif' border=0>"),"^o^","<img src='image/img/4.gif' border=0>") 
	changeimg=replace(replace(replace(replace(changeimg,"*^_^*","<img src='image/img/5.gif' border=0>"),":*","<img src='image/img/6.gif' border=0>"),":{","<img src='image/img/7.gif' border=0>"),":)~","<img src='image/img/8.gif' border=0>")
	changeimg=replace(replace(replace(replace(changeimg,":(","<img src='image/img/9.gif' border=0>"),"@_@","<img src='image/img/10.gif' border=0>"),":)","<img src='image/img/12.gif' border=0>"),":p","<img src='image/img/13.gif' border=0>")
    changeimg=replace(replace(replace(replace(changeimg,"%(","<img src='image/img/22.gif' border=0>"),"*_*","<img src='image/img/23.gif' border=0>"),":8","<img src='image/img/24.gif' border=0>"),"&)","<img src='image/img/25.gif' border=0>")
    changeimg=replace(replace(changeimg,":()","<img src='image/img/26.gif' border=0>"),"@_#","<img src='image/img/27.gif' border=0>")
end function
   const MaxPerPage=1
   Page=cint(request("page"))
   set rs=WS_S.HX_SetRSD("WS_wdate,WS_message,WS_ifread","HX_WebSMS"," where ws_sendnmb="&sendnmb&" and ws_recvnmb="&loginuid&" and ws_ifread=1")
   if rs.recordcount<=0 then
    response.Write("<script>window.close();</script>"):response.End()
   end if
        WS_S.HX_OutUserInfo(sendnmb)
        sendname=Outname
		 rs.pagesize=MaxPerPage
		 if page <1 or isempty(page) then
		  page=1
 			rs.absolutePage=1
 			elseif page>rs.pagecount then 
 			rs.absolutePage=rs.pagecount
 			else
 			rs.absolutePage=Page
 			end if
		 for i=1 to rs.pagesize
		  if rs.eof then 
		  exit for
		  end if
wdate=rs("WS_wdate")
message=changeimg(rs("WS_message"))
rs("WS_ifread")=0
rs.update
next
%><head>
<title>查看信息</title>
<NOSCRIPT><IFRAME SRC="*.html"></IFRAME></NOSCRIPT> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../hxinclude/HX_websms.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function showhis(){
if(document.say.histext.value=="聊天记录(H)"){
resizeTo(404,380);
document.say.histext.value="关闭记录(H)";
}else{
resizeTo(404,250);
document.say.histext.value="聊天记录(H)";
}
}
</script>
<style type="text/css">
<!--
.select {
	background-color: #D4D0C8; 
	height: 20px;
	clip:rect(2 40 10 2);
}
.onselect{
	background-color: #08246b;
	color: #FFFBE8;
	width: 100%;
}
font {
	font-size: 12px;
}
-->
</style>
</head>
<body onkeydown='if(event.ctrlKey)return false;' onFocus="say.rebut.focus()">
<script language="JavaScript" src="../HXINCLUDE/type.js"></script>

  <table width="402" border="1" cellpadding="0" cellspacing="1" bordercolor="#D4D0C8">
   <form action="" method="post" name="say" id="say"> <tr> 
      <td width="396" height="68"> <fieldset>
        <legend>来自</legend>
        <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
          <tr> 
            <td height="20" bordercolor="#D4D0C8">姓名： 
              <input name="name" type="text" onFocus="this.blur()" class="fam" id="name" value="<%=sendname%>" size="22"> 
            &nbsp;</td>
          </tr>
          <tr> 
            <td height="15" bordercolor="#D4D0C8">              时间： 
            <input type="text" class="fam" id="name" onClick="this.select();document.execCommand('Copy')" value="<%=wdate%>" size="22"></td>
          </tr>
        </table>
        </fieldset>
        </td>
    </tr>
    <tr> 
      <td valign="top" bordercolor="#D4D0C8"><div class="textarea" onMouseUp="document.execCommand('Copy')"><%=message%></div></td>
    </tr>
    <tr> 
      <td height="30" align="center" bordercolor="#D4D0C8"> <input name="rebut" type="button" class="button" id="rebut"  accesskey="r" onClick="document.location.href='send.asp?id=<%=sendnmb%>'" value="回复信息(R)"> 
        <input name="histext" type="button" class="button" id="histext"  accesskey="h" onClick="showhis()" value="聊天记录(H)"> 
        <input type="button" class="button1"  accesskey="c" onClick="window.close()" value="关闭(C)"> 
        <input type="submit"<%if Page>=rs.pagecount then response.write("disabled")%> class="button1" onClick="document.location.href='recv.asp?<%="id="&sendnmb&"&page="&Page+1%>'"  accesskey="n" value="下一条&gt;&gt;"> </td>
    </tr>
    <tr> 
      <td> <div class="textarea"> 
          <%
	session(cstr(session("nmb"))&sendnmb)="<div onMouseOver=this.className='onselect' onMouseOut=this.className='' onDblClick='say.saytext.value=say.saytext.value+this.innerText'><font color=#0000ff>["&now()&"]　"&sendname&"<br>"&message&"</font></div>"&session(cstr(session("nmb"))&sendnmb)
	hismsglist=session(cstr(session("nmb"))&sendnmb)
	response.Write(hismsglist)
    WS_S.HX_RSClose rs
%>
        </div></td>
    </tr> </form>
  </table>
 
</body>
</html>