[更新]个性飞扬网页在线人数查询ASP版V1.1发布！！ [复制链接]

以下是引用awenjapan在2004-2-14 4:31:59的发言：
好东西，虽然还没用，但是看了前面的几个贴子，发现显示在线的是用户账号，可不可以再修正一下，添加一段用账号去读取account那个表的最后一列的数据，也就是读取这个账号最后选的是那个人物的程序，这样的话就可以显示在先的人物名字。一来可以让大家比较直观的知道有哪个游戏人物在线，二来也可以安全的保护用户的账号资料。

以下是引用tczx在2004-2-14 21:53:04的发言：
打开速度太慢，基本没有什么意思。

以下是引用xow2003在2004-2-13 22:39:30的发言：
楼主发的joinserver是被UPX加了壳的,去找个UPX脱壳程序自己把壳去掉就可以改密码了,我已经已经改过了,可以使用...
PS:不明白楼主加壳的目的....

以下是引用沉默羔羊在2004-2-19 10:00:59的发言：
发点大家看看

<%
dim m,n
copyrightline1="-Power By 乱草"
copyrightline2="　　本程序(MuOnLine.asp)由乱草制作并美化，保留所有权力。您可以免费使用这个程序，但是您必须保留这个版权信息。
Copyright (C) 1998-2004 个性飞扬, All Rights Reserved.
乱草工作室 版权所有 LuanCao.net"
function getIP(ipt)
str=split(ipt,".")
select case showip
case 1
getIP=str(0)&"."&str(1)&"."&str(2)&"."&"*"
case 2
getIP=str(0)&"."&str(1)&"."&"*"&"."&"*"
case 3
getIP=str(0)&"."&"*"&"."&"*"&"."&"*"
case 4
getIP="*"&"."&"*"&"."&"*"&"."&"*"
case else
getIP=str(0)&"."&str(1)&"."&str(2)&"."&str(3)
End Select
end function
set rs=server.CreateObject("adodb.recordset")
sqlstr1="select memb___id from MEMB_INFO"
rs.open sqlstr1,conn,1,1
tatalid=rs.recordcount
rs.close
sqlstr2="select Name from Character"
rs.open sqlstr2,conn,1,1
tatalchar=rs.recordcount
rs.close
select case listby
case 1
sqlstr="select memb___id,ConnectStat,IP,ConnectTM from MEMB_STAT where ConnectStat=1 order by memb___id"
case 2
.....................