- 在ADO使用SELECT语法三
- ASP中遍历和操作Application对象的集合
- ASP+SQLServer2000 经验积累
- ASP创建ACCESS表或添加字段
- 在ASP中轻松实现记录集分页显示
- ASP和C#隐藏文件下载路径的方法
- 动态创建下拉菜单
- 我最近使用的一种CSS的重构思路
- 正则表达式简介（13）
- 利用ASP实现三个强大功能之二
- ASP+Access莫名奇妙的sql语句错误解决
- 几种常用排序算法(asp)
- 用ASP开发试题库与在线考试系统(1)
- 一个简单的网上书城的例子（四）
- 手把手教你使用Java来编写ASP组件(6)
- 二十八条改善 ASP 性能和外观的技巧(8-14)
- 在PPC上实现编译ASP
- ASP模仿asp.net的DataGrid
- 开始 .Net的旅程（一）
- ASP使用MySQL数据库全攻略
- 使用ADO批量更新记录（源代码）
- ASP脚本语言的19个基本技巧使用
- ASP 3.0高级编程（十五）
- 通过HttpWebRequest在后台对WebService进行调用
- 在红蜻蜓中实现多房间
- 微软Page Counter 组件参考(一)
- 关于在浏览器中执行*.exe文件的深入探讨!
- 一点ASP问题、差错和个人心得
- 中文的无组件文件上传ASP函数
- 用ASP实现号码转换
XMLHTTP+Javascript+Asp写得聊天室，无刷新实现（三）
作者：佚名 ASP网站建设编辑：admin 更新时间：2022-07-23
################reload.asp##############
<%'Response.ContentType="text/xml"
Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>"
Response.Write "<Msg>"
dim c_info,c_Lid,c_ip,u_Lid,NewLid,u_name,i
c_info=application("c_info")
u_Lid=session("u_Lid")
newLid=u_Lid
u_name="netnice"
for i=c_info(0)+6 to 240 step 6
if (c_info(i)>u_Lid) and ((c_info(i+1)=u_name) or (c_info(i+2)=u_name) or (c_info(i+2)="大家") or (c_info(i+3)="0")) then
Response.Write c_info(i+5)
if (newLid<c_info(i)) then newLid=c_info(i)
end if
next
for i=1 to c_info(0) step 6
if (c_info(i)>u_Lid) and ((c_info(i+1)=u_name) or (c_info(i+2)=u_name) or (c_info(i+2)="大家") or (c_info(i+3)="0")) then
Response.Write c_info(i+5)
if (newLid<c_info(i)) then newLid=c_info(i)
end if
next
Response.Write "</Msg>"
session("u_Lid")=newLid
%>
<%'Response.ContentType="text/xml"
Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>"
Response.Write "<Msg>"
dim c_info,c_Lid,c_ip,u_Lid,NewLid,u_name,i
c_info=application("c_info")
u_Lid=session("u_Lid")
newLid=u_Lid
u_name="netnice"
for i=c_info(0)+6 to 240 step 6
if (c_info(i)>u_Lid) and ((c_info(i+1)=u_name) or (c_info(i+2)=u_name) or (c_info(i+2)="大家") or (c_info(i+3)="0")) then
Response.Write c_info(i+5)
if (newLid<c_info(i)) then newLid=c_info(i)
end if
next
for i=1 to c_info(0) step 6
if (c_info(i)>u_Lid) and ((c_info(i+1)=u_name) or (c_info(i+2)=u_name) or (c_info(i+2)="大家") or (c_info(i+3)="0")) then
Response.Write c_info(i+5)
if (newLid<c_info(i)) then newLid=c_info(i)
end if
next
Response.Write "</Msg>"
session("u_Lid")=newLid
%>