m_addsave.asp

来自「本人的课程设计。不足之处请大家指教。因为第一次用ASP有很多不足的地方。」· ASP 代码 · 共 130 行

<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<%

 edit=trim(request.querystring("edit"))		'动作 save保存修改记录,add增加记录
 table=trim(request.querystring("act")) 	'表名称,profession为专业表,curricula为课程表
 nowdate=date()
 sign=0
 
set rs=server.createobject("adodb.recordset")

if edit="save" then
	'检查修改的名字是否存在
	sql="select * from "&trim(table)&" where name='"&trim(request.form("name"))&"'"
	rs.open sql,conn,1,1
	if not rs.eof then
		sign=0
		%>
		<script language=javascript>
		window.alert("该名称已存在")
		window.location.href='m_edit.asp?id=<%=trim(request.form("id"))%>&act=<%=trim(table)%>';
		</script>
		<%
	else
		sign=1		'检查通过,sign置为1
	end if
	
	rs.close
	set rs=nothing

elseif edit="add" then     '增加时需判断编号是否存在
	'判断编号是否存在
	sql="select * from "&trim(table)&" where id='"&trim(request.form("id"))&"'"
	rs.open sql,conn,1,1
		if not rs.eof then
			sign=0
			%>
			<script language=javascript>
			window.alert("该编号已存在")
			</script>
			<%
		else 
			sign=1		'检查通过,sign置为1
		end if
	rs.close		
	set spl=nothing
	
	'判断名称是否存在
	sql="select * from "&trim(table)&" where name='"&trim(request.form("name"))&"'"
	rs.open sql,conn,1,1
	if not rs.eof then
		sign=0
		%>
		<script language=javascript>
		window.alert("该名称已存在")
		</script>
		<%
	else
		sign=1		'检查通过,sign置为1
	end if
	
	rs.close
	set rs=nothing
end if

if edit="save" and sign=1 then   '保存
	'取记录修改
	set rs=server.createobject("adodb.recordset")
	sql="select * from "&trim(table)&" where id='"&trim(request.form("id"))&"'"
	rs.open sql,conn,1,3
	rs("name")=trim(request.form("name"))
	
	if table="curricula" then		'如果是维护课程表需加入专业字段
		rs("pname")=trim(request.form("pro"))
	end if
	
	rs("addtime")=trim(nowdate)	
	rs.update
	rs.close
	set rs=nothing	

elseif edit="add" and sign=1 then    '增加
	'增加记录
	set rs=server.createobject("adodb.recordset")
	sql="select * from "&trim(table)&""
	rs.open sql,conn,1,3
	rs.addnew
	rs("id")=trim(request.form("id"))
	rs("name")=trim(request.form("name"))
	
	if table="curricula" then
		rs("pname")=trim(request.form("pro"))
	end if
	
	rs("addtime")=trim(nowdate)
	rs.update
	rs.close
	set rs=nothing

end if


conn.close
set conn=nothing
if edit="save" then
	%>
	<script language=javascript>
	window.alert("修改成功！")
	self.opener.location.reload();
	window.close();
	</script>
	<%
else
if trim(table)="profession" then
	%>
	<script language=javascript>
	window.location.href='m_pro_add.asp';
	</script>
	<%
else
	%>
	<script language=javascript>
	window.location.href='m_cur_add.asp';
	</script>
	<%
end if
end if %>