response.expires = 0
'获取在线寻呼
Query="select CallId from web_SysCallMesg where ToMen='"&UserInfo("int_sOleUserID")&"' and CallMark=0 order by CallTime"
'response.write Query
set sql=conn.Execute(Query)
if not sql.eof then
response.write "window.open('SysManage/callmng.asp?KeyId="&KeyId&"&wxl=Look&CallId="&sql(0)&"','','resizable=yes,width=650,height=250,scrollbars=1');"
%>
end if
'/////会员消息
Query="select CallId from web_MemerCallMesg where ToMen='"&UserInfo("int_sOleUserID")&"' and CallMark=0 and CallType=1 order by CallTime"
'response.write Query
set sql=conn.Execute(Query)
if not sql.eof then
response.write "window.open('SysManage/membercallmesg.asp?KeyId="&KeyId&"&wxl=Look&CallId="&sql(0)&"','','resizable=yes,width=650,height=250,scrollbars=1');"
%>
end if
set sql=conn.Execute("select top 2 CallId from web_SysCallMesg where ToMen='"&UserInfo("int_sOleUserID")&"' and CallMark=1 order by CallTime desc")
tmpID=0
while not sql.eof
tmpID=sql(0)
sql.movenext
wend
conn.execute("delete from web_SysCallMesg where CallId %>
