zjxm1.asp

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

<!--#include file="pwd.asp" -->
<!--#include file="xmgl_conn.inc" -->
<%
tdm=request("dm")
tmc=request("mc")
cxh=request("txh")
cxm=request("txm")
session("ccjls")=cxh

sql="select * from "&tdm&" where xh='"&cxh&"'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, xmgl_Conn
if not rs.eof then
	response.write("<font color=""#FF0000"">学号“"&cxh&"”已存在,不能重复增加!</font><p>")
	rs.close
	set rs=nothing
%>
	<p align=center><a href="zjxm.asp">返回</a></p>
<%
	response.end
else
	sql="insert into "&tdm&" (xh,xm) values ('"&cxh&"','"&cxm&"')"
	xmgl_conn.execute(sql)
	rs.close
	set rs=nothing
	response.redirect "zjxm.asp"
end if
%>