hidden.asp

诚信商店系统源代码

<%@LANGUAGE="VBScript"%>
<!--#include file="public/wxl_conn.asp"-->
<!--#include file="public/PublicFunction.asp"-->
<script src="js/function.asp"></script>
<%
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 "<script>window.open('SysManage/callmng.asp?KeyId="&KeyId&"&wxl=Look&CallId="&sql(0)&"','','resizable=yes,width=650,height=250,scrollbars=1');</script>"
%>
<%
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 "<script>window.open('SysManage/membercallmesg.asp?KeyId="&KeyId&"&wxl=Look&CallId="&sql(0)&"','','resizable=yes,width=650,height=250,scrollbars=1');</script>"
%>
<%
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<"&tmpID&" and ToMen='"&UserInfo("int_sOleUserID")&"'")
%>
<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'>
<meta http-equiv=refresh content='6;url=hidden.asp?KeyId=<%=KeyId%>'>