<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<!--#include file="../inc/NewsChannel.asp"-->
<%



dim subsql,keyword,SQL,Rs
subsql=""
If Trim(Request("ClassID")) <> "" Then	
	If Not IsNumeric(Trim(Request("ClassID"))) Then	
		response.Write("[err]ClassID必须是数字[/err]")
	End If
	subsql= " and ClassID="&Trim(Request("ClassID"))
End If


keyword = Newasp.ChkQueryStr(Trim(Request("title")))
keyword = Newasp.CheckInfuse(keyword,255)


If keyword = "" Then	
	response.Write("[err]title不能为空[/err]")
else

	Set Rs = CreateObject("ADODB.Recordset")
	SQL = "select top 1 * from NC_Article where ChannelID=1 And title='"&keyword&"' "&subsql

	Rs.Open SQL, Conn, 1, 1
	If Rs.BOF And Rs.EOF Then
		response.Write("0")
	else
		response.Write("1")	
	end if
	Rs.Close: Set Rs = Nothing
end if
CloseConn

%>