xgcj2.asp

来自「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」· ASP 代码 · 共 34 行

<!--#include file="pwd.asp" -->
<!--#include file="cjgl_conn.inc" -->
<%
if session("sbjmc")="" then 
	response.write "未选择班级！<a href=""cjgl.asp"">返回</a>"
	response.end
end if
tkck=session("sbjdm")&session("sxqdm")   '开设课程库名
tcjk=tkck&cstr(session("sbj"))

cxh=request("txh")  '课程代码
sql="select * from "&tkck
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, cjgl_conn
tsql="update "&tcjk&" set "
tzf=0.0
do while not rs.eof
	tdm="t"&rs("kcdm")
	tcj=request(tdm)
	if tcj="" then
		tcj=0
	end if
	tzf=tzf+tcj
	tsql=tsql&rs("kcdm")&"="&tcj&","
	rs.movenext
loop
rs.close
set rs=nothing
tsql=tsql&"zf="&tzf
tsql=tsql&" where xh='"&cxh&"'"
cjgl_conn.execute(tsql)
response.redirect "xgcj.asp"
%>