topic_del.asp

来自「建造工业系统所需的SQL源代码」· ASP 代码 · 共 22 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="Conn/Conn.asp"-->
<%
If Request.QueryString("TopicID")<>"" Then
	On Error Resume Next
	SQL="Delete From tb_Topic Where ID="&Request.QueryString("TopicID")
	Conn.Execute(SQL)
	If Err<>0 Then
%>
		<script language="javascript">
			alert("留言删除失败！");
			window.location.href="index.asp";
		</script>
	<%Else%>
		<script language="javascript">
			alert("留言删除成功！");
			window.location.href="index.asp";
		</script>
	<%End If
End If
%>