<!-- #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 %>