桃花盛开的地方

一个多月的鏖战，程序不费多大劲。

信息完善需要坚持

备案足足一个月。幸好早早开始。

www.llxy.org给你起个小名吧，叫溜溜

一定要坚持走。

总表生成

说白了就是合并单元格数据，可以加上需要的符号。/或（）等。

合并两个单元格数据

=I18&I46

加入符号：

=A3&'/'&D17&'('&D20&')'&'/'&D19&CHAR(10)

回车

&CHAR(10)

百无聊赖在网上搜免费空间，找到一家试一下。

http://3v.cm

照例下面有广告，但看到一个实例网站中却没有广告，惊奇之余发现有高人做，也有高人评。颇有收获。

http://dpingxian.35free.net/ReadBook.asp?class=Book

站长好厉害啊。。居然可以居然可以想到用<div style='display:none;'>隐藏3V的广告，逛这个网站很有收获啊！

config.asp

<%
 '数据库相关参数
 Const dbName = '/Data/allrightat163.Mdb'    '数据库路径及文件名，初次使用请修改此值
              Const db_EC_Dep_Table = '201101'     '数据表1

 Const bj1= 58

 Const bj2= '58'

%>

应用

<!--#include file='conn.asp'-->
<!--#include file='config.asp'-->

 <%
sub tj(bj,fs1,fs2)
Set rs= Server.CreateObject('ADODB.Recordset')
sql='select count(*) from 20100130gaoer2 where  班级='& bj &' and 总分>'& fs1 &' and 总分<'& fs2 &'  '
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write '<p align='center'>对不起，没有找到相关信息</p>'
else%>
<%
response.write(rs(0))
%>
<%
end

<!--#include file='conn.asp'-->
<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse; ' bordercolor='#000000' width='100%' height='20'>
<tr>
<td width='10%'>姓名　</td>
<td width='10%'>语文</td>
<td width='10%'>数学　</td>
<td width='10%'>英语</td>
<td width='10%'>物理</td>
<td width='10%'>化学</td>
<td width='10%'>生物</td>
<td width='10%'>总分</td>
<td width='10%'>班次</td>
<td width='10%'>级次</td>
</tr>
<%i=1
set rs=conn.execute('select*from 20100130gaoer2 order by id desc')
do while not rs.eof
%>
<div align='center'>
<center>

<tr>
<td width='10%'><%=rs('姓名')%>　</td>
<td width='10%'><%=rs('语文')%>

<!--#include file='conn.asp'-->
<%
'为年级排名
j=0
i=0
thesame=0
Set rs=Server.CreateObject('ADODB.Recordset')
sql='select * from 20100130gaoer2 order by id '
rs.open sql,conn,1,1

do while not rs.eof
'如果分数相同，则名次相同。如：两个并列第一名，则没有第二名，下一个为第三名
             if rs('总分')=thesame then
                 i=i
                   j=j+1
             else
                 i=i+j+1
                   j=0

<!--#include file='conn.asp'-->
<%i=1
set rs=conn.execute('select*from 20100130gaoer2 order by id desc')
do while not rs.eof
%>
<div align='center'>
<center>
<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse; ' bordercolor='#000000' width='100%' height='20'>
<tr>
<td width='17%'><%=rs('姓名')%>　</td>
<td width='17%'><%=rs('语文')%></td>
<td width='17%'><%=rs('数学')%>　</td>
<td width='17%'><%=rs('英语')%></td>
<td width='17%'><%=rs('物理')%></td>
<td width='17%'><%=rs('化学')%></td>
<td width='17%'><%=rs('生物')%></td>
<td width='17%'>：
<%sum=cint(trim(rs('语文')))+cint(trim(rs('数学')))+cint(trim(rs('英语')))+cint(trim(rs('物理')))+cint(trim(rs('化学')))+cint(trim(rs('生

统计成绩中各班级分数段人数，需要重复统计，所以编一个函数，重复使用。

<!----函数范例：统计三个班各分数段人数。表20100130gaoer2中，班级为文本，总分为数字型--->
<!--#include file='conn.asp'-->

 <%
sub tj(bj,fs1,fs2)
Set rs= Server.CreateObject('ADODB.Recordset')
sql='select count(*) from 20100130gaoer2 where  班级=''& bj &'' and 总分>'& fs1 &' and 总分<'& fs2 &'  '
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write '<p align='center'>对不起，没有找到相关信息</p>'
else%>
<%
response.write(rs(0))
%>
<%
end if
rs.close
set rs=nothing
%>
<%end sub%>

58班300-800分之间的人数：<�ll tj(58,300,800)%><br>
59班300-800分之间的人数：<�ll tj(59,300,800)%><br>
60班300-800分之间的人数：<�ll tj(60,300,800)%>