<%
Class zsbsClass

'- 清空留言 - - - - -
Public Sub ClearLeaveWord( conn )
  On Error Resume Next
  strSQL1 = "delete from [reply]"
  strSQL2 = "delete from [guest]"
  conn.Execute( strSQL1 )
  If Err.Number = 0 Then
  	conn.Execute( strSQL2 )
	If Err.Number = 0 Then
		Response.Write("<script language='javascript'>alert('清空留言操作成功！');</script>")
	Else
		Err.Clear
		Response.Write("<script language='javascript'>alert('清空留言时发生错误！');</script>")
	End If
  Else
    Err.Clear
   	Response.Write("<script language='javascript'>alert('清空回复时发生错误！');</script>")
  End If
End Sub
'- 清空留言 - - - - -

End Class 
%>