<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//CN">
<HTML>
<HEAD>
<TITLE>1</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<%on error resume next
Set conn=Server.CreateObject("ADODB.Connection")
con="DBQ="+server.MapPath("1.mdb")+";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
conn.open con
set rs=server.createobject("adodb.recordset")
rs.open "select * from 1 order by score DESC",conn,1,1
for i =1 to rs.recordcount
另外一个问题就是在数据库中增加一个字段,排名后写入数据库!
然后使用 "select * form table where no='学号'"即可。
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//CN">
<HTML>
<HEAD>
<TITLE>1</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<%on error resume next
Set conn=Server.CreateObject("ADODB.Connection")
con="DBQ="+server.MapPath("1.mdb")+";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
conn.open con
set rs=server.createobject("adodb.recordset")
rs.open "select * from 1 order by score DESC",conn,1,3
'for i =1 to rs.recordcount
'Response.Write "名字:"&rs("name")&"学号:"&rs("no")&"分数:"&rs("score")&"名次:"&i&"<br>"
'rs.movenext
'next
aa=1000
i=0
do
if rs("score")=aa then
i=i
else
i=i+1
end if
if rs.eof then exit do
Response.Write "名字:"&rs("name")&"学号:"&rs("no")&"分数:"&rs("score")&"名次:"&i&"<br>"
aa=rs("score")
rs("mingci")=i
rs.update
rs.movenext
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//CN">
<HTML>
<HEAD>
<TITLE>1</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<%on error resume next
Set conn=Server.CreateObject("ADODB.Connection")
con="DBQ="+server.MapPath("1.mdb")+";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
conn.open con
set rs=server.createobject("adodb.recordset")
rs.open "select * from 1 order by score DESC",conn,1,1
'for i =1 to rs.recordcount
'Response.Write "名字:"&rs("name")&"学号:"&rs("no")&"分数:"&rs("score")&"名次:"&i&"<br>"
'rs.movenext
'next
aa=1000
i=0
do
if rs("score")=aa then
i=i
else
i=i+1
end if
if rs.eof then exit do
Response.Write "名字:"&rs("name")&"学号:"&rs("no")&"分数:"&rs("score")&"名次:"&i&"<br>"
aa=rs("score")
rs.movenext