最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
模拟qq的消息接收
时间：2022-07-02 23:53:15 编辑：袖梨 来源：一聚教程网
接上：--->“模拟QQ的下拉列表选择图象（小白完善版）”
我们知道，在使用qq时，当你的朋友给你发来消息时，他的头像会不停的闪动，直到你查看该条消息，他才安静下来。这次小白要做的就是模拟这个东东：
1、来消息-->头像闪动
首先我们取出用户列表---如果该用户没发新消息给你，则显示他注册时的头像，否则，显示的图片为我们特制的动画图片（也可以对他的图片进行js特效处理：过一定的时间显示，给人闪动的感觉），这里给出第一种方法的代码：
var t
//在线会员
t=outlookbar.addtitle('我的好友')
<%
dim x()
dim y()
dim news
dim thenews
dim i
dim j
news=false
i=0
set rs=server.CreateObject ("ADODB.RecordSet")
sqlstr="select * from msg where receiver='"&session("icqusername")&"' and state='new'"
rs.Open sqlstr,conn,3,3
if not rs.BOF then
do while not rs.EOF
redim Preserve x(i)
redim Preserve y(i)
x(i)=rs("sender")
y(i)=rs("msgid")
rs.MoveNext
i=i+1
loop
end if
rs.Close
%>
//取出你在线的好友名单
//session("icqusername")为你自己
<%
sqlstr="select * from userinfor where username <> '"&session("icqusername")&"' and online=true and ......."
'上面这条sql语句因你的程序而变
rs.open sqlstr,conn,1,1
do while not rs.eof
for j=0 to i-1
if rs("username")=x(j) then
news=true
thenews=y(j)