⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 在线游戏最新服务器端源代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<TITLE>明翔网络资讯　http://www.vi-sky.com</TITLE>
<link href="http://alex/../com.css" rel="stylesheet">
<style>
body,td,p,li,div,span,a {font-family:宋体;font-size: 9pt;}
A:link {text-decoration: none;color: blue;}
A:visited {text-decoration: none;color: blue}
A:active {text-decoration: none;color: blue}
A:hover {text-decoration: underline;color: red}
input{border:1px solid gray;height:12pt;font-size: 9pt;background-color: yellow}
a:visited.wd{color: white;}
A:link.wd {text-decoration: none;color: white;}
A:hover.wd {text-decoration: underline;color:#F8F8F8}
.mover{text-decoration: underline;}
.mout{text-decoration: none;}
.listover{background-color: #D7D7E8; color: #FF0000}
.listout{background-color: #F7F7F8}
.funlink{cursor:hand;; color: #0000FF}
</style>
<script>
</script>
</head>
<% 
Set cnnDB=Server.CreateObject ("adodb.Connection")
cnndb.open "Driver={Microsoft Access driver (*.mdb)};dbq=" & Server.MapPath("../!maninfor.mdb")
' cnndb.open "aswdb"
 %>
 <%
Set rs_snow1= Server.CreateObject ("ADODB.Recordset")
rs_snow1.Open "rts_snow",cnnDB, 2, 2
do while not rs_snow1.eof
rs_snow1("score")=rs_snow1("kill")-0.7*rs_snow1("bekill")
rs_snow1.update
rs_snow1.movenext
loop 

Set rs_quake1= Server.CreateObject ("ADODB.Recordset")
rs_quake1.Open "rts_quake",cnnDB, 2, 2
do while not rs_quake1.eof
rs_quake1("score")=rs_quake1("kill")-0.7*rs_quake1("bekill")
rs_quake1.update
rs_quake1.movenext
loop
Set rs_land1= Server.CreateObject ("ADODB.Recordset")
rs_land1.Open "rts_land",cnnDB, 2, 2
do while not rs_land1.eof
rs_land1("score")=rs_land1("kill")-0.7*rs_land1("bekill")
rs_land1.update
rs_land1.movenext
loop 

rs_snow1.close
set rs_snow1=nothing
rs_quake1.close
set rs_quake1=nothing
rs_land1.close
set rs_land1=nothing

%>

 
  
<body bgcolor="#ffffff" text="#000000" link="#0000FF" vlink="#990099" alink="#0000FF">

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td bgcolor="#ccffff" width="56%" height="48"> 
      <div align="center"> 
        <p align="left"><b><font color="#CC00FF" size="3">明翔网络资讯在线游戏</font> <font size="3"><a href="http://www.vi-sky.com">http://www.vi-sky.com</a> 
          </font></b><br>
          <br>
          按ctrl+d加入你的收藏！！<br>
          <br>
          <font color="#FF0000">注意：1。<font size="2">地狱之门,迷宫</font>中数字键可以换武器<br>
          2。推出游戏后才能加分（点左下角的“关闭”）<br>
          3.注册名可以是中文，其它的程序正在调试之中，请期待。<br>
          4.新增会员查询系统,新的积分排名,公式：<b><font color="#009900">积分=歼敌-0.7x被歼</font></b><br>
          5.如果你玩过类似的可乐吧程序，如kele8.com,你需要删除c:\fancyWork目录，<br>
          &nbsp;&nbsp;否则玩本站游戏会出现“read err”错误。<br>
          6.Game消耗大量的RAM,有时要重起清空，大概在5分钟左右</font></p>
        </div>
    </td>
    <td bgcolor="#ff0000" width="44%" height="48"> 
      <div align="center"><font size="4" color="#ff0000"><b><a href="http://www.vi-sky.net"><font color="#ffff00" size="7">立即进入〉</font></a></b></font> 
        <br>
        <b><font color="#00ff00">如果出现对话框，一定要点击“是” <BR>
        <BR>
        </font><font color="#ff0000" ><b><a href="http://www.ctca.net/game/vrcity.htm"><font color="#ffff00" size="2">虚拟城市（不好玩)</font></a>&nbsp;&nbsp;</b></font></b><font color="#ff0000"><a href="http://vi-sky.com/forums/forum.asp?FORUM_ID=40&CAT_ID=6&Forum_Title=KELE8   ?" target="_blank"><font color="#993300"><span style="background-color: #FFFF00"><b>留言版</b></span></font></a></font> 
        <br>
        <br>
        <a href="http://61.155.68.202" target="_blank"><b><font color="#FFFF00">本站联盟下载站点，请点击 
        http://61.155.68.202</font></b></a></div>
    </td>
  </tr>
  <tr> 
    <td colspan="2" height="256"> 
      <p align="center"><br>
        <font color="#FF0000"><b><font color="#FF9900">---=== 龙虎榜 ===---</font></b></font></p>
      <table width="100%" border="1" cellspacing="1" cellpadding="1">
        <tr> 
          <td width="49%"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#FFFF00"><font size="2">打雪仗(雪野之战，乡间雪战) </font></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr bgcolor="#CCCCFF"> 
                      <td width="11%"><font size="2">名次</font></td>
                      <td width="36%"><font size="2">名字</font></td>
                      <td width="24%"><font size="2">歼敌</font></td>
                      <td width="14%"><font size="2">被歼</font></td>
                      <td width="15%"><font color="#FF0000"><b>分数</b></font></td>
                    </tr>
                    <%
sqlstr_snow="SELECT top 15 * FROM rts_snow  ORDER BY score DESC" 
set rs_snow=cnndb.execute(sqlstr_snow)
i=0
do while not rs_snow.eof
i=i+1
%>
                    <tr> 
                      <td width="11%"><font size="2"><%=i%></font></td>
                      <td width="36%"><font size="2"><a href="showuser.asp?id=<%=rs_snow("username")%>"><%=rs_snow("username")%></a></font></td>
                      <td width="24%"><font size="2"><%=rs_snow("kill")%></font></td>
                      <td width="14%"><font size="2"><%=rs_snow("bekill")%></font></td>
                      <td width="15%"><font size="2" color=red><%=rs_snow("score")%></font></td>
                    </tr>
                    <% rs_snow.movenext
loop %>
                  </table>
                  <div align="right"><br>
                    <a href="rank_snow.asp" target="_blank"><font color="#FF0000"><b>总排名</b></font></a></div>
                </td>
              </tr>
            </table>
          </td>
          <td width="51%"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#FFFF00"><font size="2">竞技场(地狱之门,迷宫)</font></td>
              </tr>
              <tr> 
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr bgcolor="#CCCCFF"> 
                      <td width="16%"><font size="2">名次</font></td>
                      <td width="30%"><font size="2">名字</font></td>
                      <td width="23%"><font size="2">歼敌</font></td>
                      <td width="13%"><font size="2">被歼</font></td>
                      <td width="13%"><font color="#FF0000"><b>分数</b></font></td>
                    </tr>
                    <% sqlstr_quake="SELECT top 15 * FROM rts_quake  ORDER BY score DESC" 
set rs_quake=cnndb.execute(sqlstr_quake)
i=0
do while not rs_quake.eof
i=i+1
%>
                    <tr> 
                      <td width="16%"><font size="2"><%=i%></font></td>
                      <td width="30%"><font size="2"><a href="showuser.asp?id=<%=rs_quake("username")%>"><%=rs_quake("username")%></a></font></td>
                      <td width="23%"><font size="2"><%=rs_quake("kill")%></font></td>
                      <td width="13%"><font size="2"><%=rs_quake("bekill")%></font></td>
                      <td width="13%"><font size="2" color=red><%=rs_quake("score")%></font></td>
                    </tr>
                    <% rs_quake.movenext
loop %>
                  </table>
                </td>
              </tr>
            </table>
            <div align="right"><br>
              <a href="rank_quake.asp" target="_blank"><font color="#FF0000"><b>总排名</b></font></a> 
            </div>
          </td>
        </tr>
        <tr> 
          <td width="49%"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -