jszpcj.asp

来自「学生学籍,图书管理系统」· ASP 代码 · 共 26 行

<!--#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&"8"

sql="select * from "&tcjk
Set RS = Server.CreateObject("ADODB.RecordSet")
on error resume next  '忽略错误继续向下执行
RS.Open sql, cjgl_Conn
if err<>0 then  '成绩库不存在
	response.write(session("sbjmc")&session("sxqmc")&"不存在！<a  href=""cjgl.asp"">返回</a>")
	rs.close
	set rs=nothing
	on error goto 0  '恢复错误检查
	response.end
end if
on error goto 0  '恢复错误检查
rs.close
set rs=nothing
%>