<% 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() %>