我是这样修改红宝网络打字系统的

zhidi

下面是ywlx.asp，显示英文练习前一百名，你也可以修改成前一千名。




<!--#include file="hbwlConfig.asp" -->
<!--#include file="hbwlHeader.asp" -->
<div id="content">
<div class="titleMain">榜上有名</div>
<%function paimingStr(fenlei,n)
    if n=1 then
        sql="select 'ID',用户组,姓名,FORMAT(AVG(打字成绩),'##.#') as 平均成绩 from 打字成绩 a inner join 打字文章 b on a.文章ID=b.ID where 文章分类='"&fenlei&"' group by 用户组,姓名 order by AVG(打字成绩) desc"        
    else
        sql="select ID,用户组,用户姓名 as 姓名,积分 from 用户 order by 积分 desc"
    end if
    paimingStr=hbwl.dbSelect(sql,100,3,"",0,"",0,"tableLine")
end function
%>
<table width="35%" border="0" cellspacing="0" cellpadding="5" height="300">
  <tr>
    <td valign="top"><div class="titlePaiMing">英文练习排名</div><%=paimingStr("英文练习",1)%></td>  
      
  </tr>
  
</table>
</div>
<!--#include file="hbwlFooter.asp" -->


附件是：只含有“功能设置”数据库，已经修改的6个asp文件。

zhidi

中文比赛排名zwbs.asp


<!--#include file="hbwlConfig.asp" -->
<!--#include file="hbwlHeader.asp" -->
<div id="content">
<div class="titleMain">榜上有名</div>
<%function paimingStr(fenlei,n)
    if n=1 then
        sql="select 'ID',用户组,姓名,FORMAT(AVG(打字成绩),'##.#') as 平均成绩 from 打字成绩 a inner join 打字文章 b on a.文章ID=b.ID where 文章分类='"&fenlei&"' group by 用户组,姓名 order by AVG(打字成绩) desc"        
    else
        sql="select ID,用户组,用户姓名 as 姓名,积分 from 用户 order by 积分 desc"
    end if
    paimingStr=hbwl.dbSelect(sql,100,3,"",0,"",0,"tableLine")
end function
%>
<table width="35%" border="0" cellspacing="0" cellpadding="5" height="300">
  <tr>
    <td valign="top"><div class="titlePaiMing">中文比赛排名</div><%=paimingStr("中文比赛",1)%></td>  
      
  </tr>
  
</table>
</div>
<!--#include file="hbwlFooter.asp" -->

zhidi

其它的asp就不发了。一开始，我保留着游戏功能。可是后来，学生发现一打开游戏可能将积分清零。于是个别学生就偷偷用别人的帐号登录，我只好删了游戏功能。虽说可以让学生修改个人密码，一周才一节课，这节课修改了，下节课就忘了。

weegee

楼主修改的是9版本吧？

dobula

楼主的功力很深啊。

zhidi

谢谢管理员支持。
是9版本。

yishengu11

在别的帖子里有人提到全扣积分是由于一处括号写反了



为了不让玩该系统中的游戏时系统自动扣除积分，我将daziGame.asp中的“-100”和“-parseInt($("#yongjifen").val())”都改为“-0”。并删除以下这一段语句：
你打算花多少积分来玩打字游戏：<input name="yongjifen" type="text" id="yongjifen" style="border:0;" value="<%=loginUserJiFen%>" size="6" />

ufozw

现在不知官方没有有升级

qinggege

关于游戏这一个问题当时我主要是考虑学生不够细心（特地把input的边框设为无），也对一心想玩游戏的学生作个惩罚。其实这个你用原版的文件替换一下就好


欢迎大家测试我的新程序： 打字练习积分系统http://www.ee44.net/read-htm-tid-37666.html

nctmh

虽然暂时用不上，但学习下先。~