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