xgkc2.asp

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

<!--#include file="pwd.asp" -->
<!--#include file="cjgl_conn.inc" -->
<%
cxm=request("txm")  '课程名称
cxh=request("txh")  '课程代码
sql="select * from kck where kcmc='"&cxm&"'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, cjgl_conn
if not rs.eof then
	response.write("<font color=""#FF0000"">课程名称“"&cxm&"”("&rs("kcdm")&")已存在,不能修改!</font>")
	%>
	<p>
	<a href="xgkc.asp">返回</a><p>
<%
	rs.close
	set rs=nothing
	response.end
else
	rs.close
	set rs=nothing
	sql="update kck set kcmc='"&cxm&"' where kcdm='"&cxh&"'"
	cjgl_conn.execute(sql)
end if
response.redirect "xgkc.asp"
%>