<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<%


dim vercode
vercode="123456" '校验码，在此处修改

if request("vercode")=vercode then
  dim ArticleID,rs,sql,Title
  Title=ReplaceBadChar(Trim(Request("Title")))
  Call OpenConn
  Set rs = Server.CreateObject("adodb.recordset")
  sql = "select top 1 ArticleID from PE_Article where Title='"&Title&"'"
  rs.Open sql, Conn, 1, 3
  If not rs.EOF Then
   response.Write("1")
  else
   response.Write("0")
  End If
  rs.close
  set rs=nothing  
  Call CloseConn
end if

%>