📄 messenger.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷

💻 ASP

字号:

<!--#include file="config.ini" -->
<!--#include file="commfunction.inc" -->
<HTML><HEAD><TITLE>messenger</TITLE>
<LINK href="global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META content=10 http-equiv=refresh>
</head>
<SCRIPT language=Javascript>
function Announce(str,i) {
        var leftval=i*10+50;
        window.open(str, 'newswin'+i, 'left='+leftval+',top=100,width=350,height=250,resizable=0,status=0,menubar=0,scrollbars=1');
}
</SCRIPT>
<script language="JavaScript">
function mOvr(src,clrOver){if(!src.contains(event.fromElement)) { src.style.cursor = 'hand'; src.src = clrOver; }}
function mOut(src,clrIn){if(!src.contains(event.toElement)) { src.style.cursor = 'default'; src.src = clrIn; }}
</script>
<body topmargin="0">
<table align="center" border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#C0C0C0' width='100%' bordercolorlight='#CCCCCC' bordercolordark='#808080'>
  <tr><td width='100%' align='center'>
<table border=0 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
    <tr bgcolor='#ffffff'> 
      <td align="left" valign="middle">
	  <a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=350, height=250','newmessage.asp?consignee=all');" title="群发消息">
	   <IMG alt=群发消息 border=0 src="images/online.gif" onMouseOver=mOvr(this,"images/online1.gif") onMouseOut=mOut(this,"images/online.gif")></a>

      <%
      dim conn
      set conn=server.CreateObject("adodb.connection")
      conn.Open connstring
        
		Dim objmessage
		Set objmessage=Server.CreateObject("SmartSales.Messenger")
		objmessage.GetOnlineUser
		objmessage.GetMyMessage
	  	set objmessage=nothing
      %><img src="images/tdbg.gif" height=10></td>
    </tr>
  </table>
      <%
      set rs=conn.Execute("select createname,quoteno,quoteid from v_quote where status='还需审批' and datediff(dd,lastmoddate,getdate())=0 and  (userid='"&session("loginid")&"' or userid in(select userid from approve where approver='"&session("loginid")&"'))")
	  if not rs.eof then
	%>
</td></tr></table>
<%
end if
     rs.close
     set rs=nothing
     conn.Close
     set conn=nothing
%>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -