模拟qq的复制聊天记录到发消息框_自动测试脚本语言

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

发表于：2007-06-30来源：作者：点击数：标签：

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

接上-----“模拟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
  method=post>

  <tr bgcolor=buttonface>
      <td height="25" nowrap><b><font color="#003366">发送给: </font></b>
        <input readOnly size="10" value="<%=touser%>" style="BACKGROUND-COLOR: #d4d0c8;

BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: solid"
      name="touser"
     >
       <marquee  scrollamount=4  onmouseover="this.stop()" onmouseout="this.start()"> <b><font color="#clearcase/" target="_blank" >cc0000"  >(按ALT+S或者CTRL+ENTER发送) </font></b></marquee></td>
        <td align="right" class="coolButton" onClick=‘’showModalDialog("userinfo.asp?theuser=<%=touser%>","","Help:no;Status:no;ScrollBar:no;DialogWidth:317px;DialogHeight:197px")‘’ height="25">
        <IMG alt=用户详细资料  border=0 src="face/<%=face%>" ></td>

    <tr> <td vAlign="top"  colspan="2" align="middle"><table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>   <td width="100%"><TEXTAREA   <% if textline="回复消息" then %>   readonly <%end if%>  cols=44 name=Message onkeydown=presskey() rows=8 style="BORDER-BOTTOM: #ffffff 1px groove; BORDER-LEFT: #ffffff 1px groove; BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; FONT-SIZE: 9pt; OVERFLOW: auto; WIDTH: 100%" wrap=hard><%=answer%></TEXTAREA></td>  </tr>
      </table>
      </td>
    </tr>


    <tr>
      <td bgColor="#d4d0c8" colSpan="2" align="middle" height="27" width="766" >
<input type="submit" value=<%=textline%>   name="B3" onclick=" return check(this.form)" accessKey="s">
<input type="button" value="取消" name="B2" onclick="javascript:window.close()">
<input type="reset" value="重写" name="B1">
<input type="button" value="历史纪录" name="B1" onclick="javascript:ShowHideHistory()">
      </td>
    </tr>
      </form>

</table>
<table border="0" cellspacing="0" cellpadding="0"  id="ChatHistory" width="100%" height="150">
<tr>
<td align="middle"><IFRAME
frameBorder=1 id=history name=history src="history.asp?touser=<%=touser%>" scrolling=yes width="100%" height="100%"
     ></IFRAME>
</td>
</tr>
</table>
    <script  language=javascript>
    document.all[‘’ChatHistory‘’].style.display=‘’none‘’;
    window.resizeTo(370, 210);
    </script>
</BODY>

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >