📄 history.asp

📁 OFFICE办公自动化
💻 ASP
字号:

<!--#include file="dbconn.asp"-->

<%
set rs=server.createobject("adodb.recordset")
function char_filter(expression)
     expression=Replace(expression,chr(10),"\n",1,-1,1)
      expression=Replace(expression,"'","&prime;",1,-1,1)
      expression=Replace(expression,"<","&lt;",1,-1,1)
      expression=Replace(expression,">","&gt;",1,-1,1)
      expression=Replace(expression,chr(0)," ",1,-1,1)
     expression=Replace(expression,"\n","<br>",1,-1,1)

     char_filter=expression
end function


'-----------------
function changechr2(str) 
 changechr2=Replace(str,"<","&lt;",1,-1,1)
changechr2=Replace(changechr2,">","&gt;",1,-1,1)
changechr2=replace(changechr2,chr(13),"<br>")
changechr2=replace(changechr2,chr(10),"") 
changechr2=replace(changechr2," ","&nbsp;") 
end function
%>
<HTML>
<HEAD>
<script language="javascript">
<!--
function document_onkeydown() {
if(event.ctrlKey && window.event.keyCode==78)
  {
  
     window.alert ("欢迎使用B-ICQ")

  }
}

//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=document EVENT=onkeydown>
<!--
 document_onkeydown()
//-->
</SCRIPT>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="../forum.css">
<script src="js/js.js" type="text/javascript"></script>
<style>
<!--
.menuitems {
padding-left:1px;
padding-right:0px;
font-size:9pt;
}
-->
</style>
</HEAD>
<BODY topmargin="0" leftmargin="0"  oncontextmenu=self.event.returnValue=false>
    
<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")%>)&nbsp;&nbsp;<%=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>
<!--
function copyMessage(tr){
//parent.document.PostTopic.Message.value=tr.innerHTML
oldmsg=parent.document.PostTopic.Message.value
newmsg1=tr.innerText 
if(oldmsg != "" ){
newmsg1=oldmsg+"\n"+newmsg1

}
parent.document.PostTopic.Message.value= newmsg1


}
//-->
</SCRIPT>

  
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -