reply_deal.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="Conn/Conn.asp"-->
<%
TopicID=Request.Form("HTopicID")
content=Request.Form("content")
If content<>"" Then
	On Error resume Next
	Upd="Update tb_Reply Set CreateTime='"&Now()&"',Content='"&content&"' Where TopicID="&TopicID
	Conn.Execute(Upd)
	If err<>0 Then%>
		<script language="javascript">
			alert("留言回复失败！<% Response.Write("错误提示: " & err.Description ) %>");
			history.back();
		</script>
	<%Else%>
		<script language="javascript">
			alert("留言回复成功！");
			window.location.href="index.asp";
		</script>
	<%End If
End If
%>