模拟qq的复制聊天记录到发消息框-ASP教程-爱易网页

模拟qq的复制聊天记录到发消息框

日期：2013-02-20　浏览次数：20906 次

接上-----“模拟qq的消息接收”
    qq 的消息发送界面提供了聊天记录，并且你可以通过鼠标轻松地、重复地把聊天记录复制到发消息框里，下面就是我提供的web页里实现的方法（注：此页面的来源为天乐的picq，小白只是添加了一个函数和自己的asp代码，实现了复制的功能！）
下面是显示聊天记录页的主要代码：

<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
     <%

     '取出聊天记录
     touser=trim(server.HTMLEncode (Request.QueryString ("touser")))

     '和该好友的聊天记录
     sql="select * from msg  where (sender='"&session("icqusername")&"' and receiver='"&touser&"' ) or ( sender='"&touser&"' and receiver='"&session("icqusername")&"' ) order by msgdate desc"
    on error resume next
    rs.open sql,conn,1,3
    if Err.number <> 0 then
    response.write Err.description
    'else
    'response.write rs.recordcount
    end  if
    do while not rs.eof
     %>
  <tr>
  
    <td width="100%"  class="menuitems"  onMouseover="highlightie5()"
    onMouseout="lowlightie5()"
    ondblclick="javascript:copyMessage(this)"

    style="cursor;hand"
    >
    <font color=red>(<%=rs("msgdate")%>)  <%=rs("sender")%></font><br>
<%
omsg=changechr2(trim(rs("msg")))
Response.Write omsg
%><br>

</td>
</tr>
      <%
      rs.movenext

      loop
      rs.close
      Err.Clear
      %>

</table>
  <SCRIPT LANGUAGE=javascript>

</SCRIPT>

////////////
下面是发送消息页的主要代码：
<BODY   oncontextmenu=self.event.returnValue=false  bgColor=buttonface leftMargin=0 topMargin=0 LANGUAGE=javascript onunload="return window_onunload()" onload="return window_onload()" onresize="return window_onresize()">
<table width="100%" cellspacing="0" cellpadding="0" align=center>
<form action="messanger_post.asp" name=PostTopic&n

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

模拟qq的复制聊天记录到发消息框

相关资料更多>

推荐阅读更多>