Inicio Crear Cuenta Lista Mejores Descargar Opciones
<% 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 sqlstr="select memb___id from MEMB_STAT where ConnectStat=1" rs.open sqlstr,conn,1,1 tatalrecord=rs.recordcount renshu=tatalrecord rs.close %> -=Mu Online=-

Servidor: MuDaRk
IP: muvillamaria.no-ip.org
Puerto: 44405
Exp & Drops: 1500x & 90%
Mobs HP: 100%
Bless Bug: ON
Cuentas Totales: <%=tatalid%>
Personajes Totales: <%=tatalchar%>
Usuarios Online: <%=renshu%>/16



<% dim anum,abg anum=1 set rs=server.CreateObject("adodb.recordset") sql="select * from AccountCharacter, MEMB_STAT, Character where MEMB_STAT.ConnectStat=1 AND AccountCharacter.Id=MEMB_STAT.memb___id AND Character.AccountID=MEMB_STAT.memb___id AND AccountCharacter.GameIDC=Character.Name order by ConnectTM asc" rs.open sql,conn,1,1 do while not rs.eof if anum mod 2=0 then abg="#ffffff" else abg="#f4f4f4" end if SELECT CASE rs("MapNumber") CASE 0: mapa="Lorencia" CASE 1: mapa="Dungeon" CASE 2: mapa="Davias" CASE 3: mapa="Noria" CASE 4: mapa="LTower" CASE 6: mapa="Arena" CASE 7: mapa="Atlans" CASE 8: mapa="Tarkan" CASE 9: mapa="DSquare" CASE 10: mapa="Icarus" CASE 11: mapa="BCastle1" CASE 12: mapa="BCastle2" CASE 13: mapa="BCastle3" CASE 14: mapa="BCastle4" CASE 15: mapa="BCastle5" CASE 16: mapa="BCastle6" CASE ELSE: mapa="Perdido" END SELECT %> <% rs.movenext anum=anum+1 loop rs.close set rs=nothing %>
Jugadores Online
Char Nombre Login Nivel Mapa
<%=rs("GameIDC")%> <%=rs("memb___id")%> <%=Right(rs("ConnectTM"),8)%> <%=rs("cLevel")%> <%=mapa%>



<% dim bnum,bbg bnum=1 set rs=server.CreateObject("adodb.recordset") sql="select top 10 * from AccountCharacter, MEMB_STAT where AccountCharacter.Id=MEMB_STAT.memb___id order by DisConnectTM desc" rs.open sql,conn,1,1 do while not rs.eof if bnum mod 2=0 then bbg="#ffffff" else bbg="#f4f4f4" end if %> <% rs.movenext bnum=bnum+1 loop rs.close set rs=nothing %>
Ultimos 10 Jugadores
Char Nombre Desconexion
<%=rs("GameIDC")%> <%=rs("memb___id")%> <%=rs("DisConnectTM")%>



<%@language=vbscript%> <% on error resume next dim connstr dim conn connstr = "DSN=MuOnlineReg;" Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr errormsg="注册信息有错误......" if err.number<>0 then response.write "SQL数据库连接失败!请联系管理员解决!" response.end end if %> <% '配置文件 DBUser = "IUSR_MWNN" 'sql用户名 自行修改 DBPSD = "" 'sql用户密码 icon_fqa DBName = "muonline" '数据库名称默认muonline DBIP = "127.0.0.1" 'SQL服务器的ip SiteName = "MuDaRk" '站点名称 SiteURL = "mudark.vicp.net" '??μ?μ??· MuName = "冰峰传说" '私服名称 MuIP = "muvillamaria.no-ip.org" '私服IP MuPort = 44405 '私服端口 AdminName = "Admin" '后台管理用户名 AdminPass = "admin1234" '后台管理用户密码 ClientDown = "MuLogin.rar" '客户端下载地址 MuChina = "http://wwvww.3322.org" '官方站点地址 引用官方内容时使用的。不需要改 Copy = "版权所有 BobStudio" '版权信息 XinShouQian = 10000 '新手注册帐号送钱多少,不送的话请设成0 HongMingXiaoQian= 20000000 '如果在线消除红名,将扣除他多少钱 GMEmail = "xuelong000@hotmail.com" 'GM Email IDMaker = "http://jlumtv.3322.org/mu/download/IDMaker.rar" '台湾身份证生成器下载地址 InputMethod = "http://jlumtv.3322.org/mu/download/input.rar" '输入法下载 MoviesDown = "http://jlumtv.3322.org/mu/download/MuSea.rar" '动画下载 BBS = "http://wwvww.3322.org/bbs/" '游戏论坛地址 %>