kskc1.asp

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

<!--#include file="pwd.asp" -->
<!--#include file="cjgl_conn.inc" -->
<%
tkc=trim(request("kc"))
zcd=len(tkc)
if zcd=0 then
	response.write "未选择课程！<a href=""kskc.asp"">返回</a>"
	response.end
end if
if session("sbjmc")="" then 
	response.write "未选择班级！<a href=""cjgl.asp"">返回</a>"
	response.end
end if
tkck=session("sbjdm")&session("sxqdm")

Set RS = Server.CreateObject("ADODB.RecordSet")
'on error resume next  '忽略错误继续向下执行

j=instr(1,tkc,",",1)
DO while j<>0
	tt=mid(tkc,1,j-1)
	sql="select * from kck where kcmc='"&tt&"'"
	RS.Open sql, cjgl_Conn
	tdm=rs("kcdm")
	rs.close
	sql="select * from "&tkck&" where kcdm='"&tdm&"'"
	RS.Open sql, cjgl_Conn
	if not rs.eof then
		rs.close
		response.write "“"&tt&"("&tdm&")”已开设，不能再次开设！<br>"
	else
		rs.close
		sql="insert into "&tkck&" (kcdm,kcmc) values ('"&tdm&"','"&tt&"')"
		cjgl_conn.execute(sql)
		response.write "“"&tt&"”开设成功！<br>"
	end if
	cd=len(tt)
	tkc=right(tkc,zcd-cd-2)
	zcd=zcd-cd-2
	j=instr(1,tkc,",",1)
loop
tt=tkc
sql="select * from kck where kcmc='"&tt&"'"
RS.Open sql, cjgl_Conn
tdm=rs("kcdm")
rs.close
sql="select * from "&tkck&" where kcdm='"&tdm&"'"
RS.Open sql, cjgl_Conn
if not rs.eof then
	rs.close
	response.write "“"&tt&"”("&tdm&")已开设，不能再次开设！<br>"
else
	rs.close
	sql="insert into "&tkck&" (kcdm,kcmc) values ('"&tdm&"','"&tt&"')"
	cjgl_conn.execute(sql)
	response.write "“"&tt&"”开设成功！<br>"
end if
set rs=nothing
%>
<p>
<a href="kskc.asp">返回</a>