sckskc.asp

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

<!--#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")&"8"   '总评成绩库名
sql="select * from "&tcjk
Set RS = Server.CreateObject("ADODB.RecordSet")
on error resume next  '忽略错误继续向下执行
RS.Open sql, cjgl_Conn
rs.close
if err=0 then  '总评成绩库存在，已注册
	response.write(session("sbjmc")&session("sxqmc")&"已注册，不能删除开设课程！<a  href=""xgkskc.asp"">返回</a>")
	set rs=nothing
	on error goto 0  '恢复错误检查
	response.end
end if
set rs=nothing

tkck=session("sbjdm")&session("sxqdm")
cdm=request("tdm")

sql="delete * from "&tkck&" where kcdm='"&cdm&"'"
cjgl_conn.execute(sql)
response.redirect "xgkskc.asp"
%>