delete.asp

来自「基于C#语言的一个物流信息网数据库系统开发案例的源代码 ,很实用」· ASP 代码 · 共 31 行

<!--#include file="../../Conn/conn.asp" -->
	<% id=request.Form("id") %>
	<% 
		sql="delete from tb_NewMeg where ID="&id
		rs.open sql,conn
		set rs=nothing
    	conn.close
		set conn=nothing
	%>
<!-- #include file="../../Conn/conn.asp" -->
	<% 
		sql="select * from tb_NewMeg where ID="&id
   		rs.open sql,conn
   		if rs.eof or rs.bof then 
	%>
			<script language="javascript">
				alert("信息删除成功");
				window.close();
				opener.location.reload();
			</script> 	
		<% else %>
			<script language="javascript">
				alert("操作失败");
				history.back();
			</script>
		<% end if %>
	<% 
		set rs=nothing 
		conn.close
		set conn=nothing
	%>