28,403
社区成员
发帖
与我相关
我的任务
分享如何自动刷新聊天室在线名单
<%
online=Application("onlinelist")
online=split(online," ")
Response.Write "<script language=javascript>parent.f6.document.open();"
Response.Write "var winbgcolor = parent.cbg();var winbgimage = parent.cbi();"
Response.Write "parent.f6.document.writeln(""<body bgcolor="" + winbgcolor + "" background="" + winbgimage + "" bgproperties=fixed >"");"
Response.Write "parent.f6.document.writeln(""<style type='text/css'>A:visited{TEXT-DECORATION: none;Color:#000000}A:active{TEXT-DECORATION: none;Color:#000000}A:hover{TEXT-DECORATION: underline;Color:#000000}A:link{text-decoration: none;Color:#000000}BODY{FONT-FAMILY: '宋体'; FONT-SIZE: 12px;}</style>"");"
Response.Write "msg='<a href=javascript:parent.seluser(\'大家\'); target=f2>大家</a><br>';parent.f6.document.writeln('当前在线( "&ubound(online)&" )人<br>');"
for i=lbound(online) to ubound(online)-1
Response.Write "msg=msg+'<a href=javascript:parent.seluser(\'"&online(i)&"\'); target=f2>"&online(i)&"</a><br>';"
next
Response.Write "parent.f6.document.writeln(msg);"
Response.Write "</script>"
%>
online=Application("onlinelist")
online=split(online," ")
Response.Write "<script language=javascript>parent.f6.document.open();"
Response.Write "var winbgcolor = parent.cbg();var winbgimage = parent.cbi();"
Response.Write "parent.f6.document.writeln(""<body bgcolor="" + winbgcolor + "" background="" + winbgimage + "" bgproperties=fixed >"");"
Response.Write "parent.f6.document.writeln(""<style type='text/css'>A:visited{TEXT-DECORATION: none;Color:#000000}A:active{TEXT-DECORATION: none;Color:#000000}A:hover{TEXT-DECORATION: underline;Color:#000000}A:link{text-decoration: none;Color:#000000}BODY{FONT-FAMILY: '宋体'; FONT-SIZE: 12px;}</style>"");"
Response.Write "msg='<a href=javascript:parent.seluser(\'大家\'); target=f2>大家</a><br>';parent.f6.document.writeln('当前在线( "&ubound(online)&" )人<br>');"
for i=lbound(online) to ubound(online)-1
Response.Write "msg=msg+'<a href=javascript:parent.seluser(\'"&online(i)&"\'); target=f2>"&online(i)&"</a><br>';"
next
Response.Write "parent.f6.document.writeln(msg);"
Response.Write "</script>"
%>
...全文
请发表友善的回复…
发表回复
xylegend 2004-04-01
- 打赏
- 举报
up
commaxsoft 2004-04-01
- 打赏
- 举报
可以结合脚本实现
====================================
在线编辑WORD,EXCEL等OFFICE文档控件的ASP源代码下载地址：
http://www.superoa.net/webofficeforasp.rar
更详细信息访问：http://www.superoa.net
标准COM接口，支持开发语言：VB,VC,C#,ASP,ASP.NET,PHP,JSP,java等
QQ:53928716
====================================
在线编辑WORD,EXCEL等OFFICE文档控件的ASP源代码下载地址：
http://www.superoa.net/webofficeforasp.rar
更详细信息访问：http://www.superoa.net
标准COM接口，支持开发语言：VB,VC,C#,ASP,ASP.NET,PHP,JSP,java等
QQ:53928716
vvfish119 2004-04-01
- 打赏
- 举报
设置一个隐藏的iframe，内容是查找记录在线名单的表，并且设定为没隔一段时间自动刷新，然后再传递给显示在线名单得页面
