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

dim keyword,Rs,SQL
	
	keyword=Dvbbs.Checkstr(trim(request("keyword")))
	Set Rs=Server.CreateObject("Adodb.RecordSet")
	SQL="Select top 1 * From DV_topic where title='"&keyword&"'"
	If Not IsObject(Conn) Then ConnectionDatabase
	Rs.Open SQL,Conn,1,3
	if rs.eof then
		response.Write("0")
	else
		response.Write("1")
	end if
	rs.close
	set dvbbs=nothing
	set rs=nothing
	response.End()

%>
