📄 messanger.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<!--#include file="dbconn.asp"-->
<!--#include file="inc_function.asp"-->
<%
touser=trim(request("touser"))
if touser=session("icqusername") then
	msg="不提供自言自语功能！"
end if

set rs=server.createobject("adodb.recordset")
sqlstr="select * from msg where msgid="&Request.QueryString ("action")
rs.Open sqlstr,conn,1,3
answer=rs("msg")
dim textline
textline="发送消息"
if answer<>"" then
textline="回复消息"
end if
rs("state")="old"
rs.Update 
rs.Close
sqlstr="select * from userinfor where username='"&touser&"'"
on error resume next
rs.open sqlstr,conn,1,1

if rs.recordcount<>1 then
msg="接收方出错！"
end if
face=trim(rs("face"))
rs.close
if Err.number <> 0 then
msg=Err.description
end if
%>
<%
if trim(msg)<>"" then
%>
<script language=javascript>
try{
 alert("<%=trim(msg)%>")
self.close()

}catch(e){
window.alert(""+e.description)
}
</script>
<%
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>bicq</title>
<link rel="stylesheet" href="images/forum.css" type="text/css">
<script src="js/js.js" type="text/javascript"></script>

<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

function window_onunload() {
try{
		if(window.opener !=null){
		window.opener.location.reload()
		}
}catch(e){
		 }finally{}

}

function window_onload() {

}

function window_onresize() {
 if (document.all['ChatHistory'].style.display=='none')               
 {
 window.resizeTo(370, 210);

  }
  else
  {
 window.resizeTo(370, 347); 

  }
}

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>
</head>
<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="#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>               
</html>
⌨️ 快捷键说明

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