jsmc.asp

来自「一个很好用的图书管理工具」· ASP 代码 · 共 52 行

<!--#include file="pwd.asp" -->
<!--#include file="cjgl_conn.inc" -->
<%
if session("sbjmc")="" then 
	response.write "未选择班级！<a href=""cjgl.asp"">返回</a>"
	response.end
end if
tcjk=session("sbjdm")&session("sxqdm")&cstr(session("sbj"))   '开设课程库名
sql="select xh,zf,mc from "&tcjk
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, cjgl_conn
j=0
do while not rs.eof
	j=j+1
	rs.movenext
loop
dim axh(),azf(),amc()
redim axh(j),azf(j),amc(j)
rs.movefirst
i=0
do while not rs.eof
	axh(i)=rs("xh")
	if rs("zf")>=0 then
		azf(i)=rs("zf")
	else
		azf(i)=0
	end if
	amc(i)=1
	i=i+1
	rs.movenext
loop
rs.close
set rs=nothing

for i=0 to j-2
	for k=i+1 to j-1
		if azf(i)>azf(k) then
			amc(k)=amc(k)+1
		elseif azf(i)<azf(k) then
			amc(i)=amc(i)+1
		end if
	next
next


for i=0 to j-1
	sql="update "&tcjk&" set mc="&amc(i)&" where xh='"&axh(i)&"'"
	cjgl_conn.execute(sql)
next
response.redirect "xgcj.asp"
%>