online.asp

来自「web 斗地主 用asp+access+ajax+css+js」· ASP 代码 · 共 27 行

<!--#include file="a_online.asp"--><%
id=request("id")
uid=request("user")
id1=id
id=split(id1,"_")(0)
Response.Write "用户列表"&id&"<br/>"
a_i=1
Do While application("a_ip"&id&"_"&a_i)<>"" 
  Response.Write application("a_ip"&id&"_"&a_i)&"<br/>"
  a_i=a_i+1 
loop 

id=split(id1,"_")(0)&"_"&split(id1,"_")(1)
Response.Write "用户列表"&id&"<br/>"
a_i=1
Do While application("a_ip"&id&"_"&a_i)<>"" 
  Response.Write application("a_ip"&id&"_"&a_i)&"<br/>"
  a_i=a_i+1 
loop 
id=id1
Response.Write "用户列表"&id&"<br/>"
a_i=1
Do While application("a_ip"&id&"_"&a_i)<>"" 
  Response.Write application("a_ip"&id&"_"&a_i)&"<br/>"
  a_i=a_i+1 
loop 
%>