<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/fun.asp" -->
<%



 '验证数据库连接
 on error resume next
 set conn=server.createobject("adodb.connection")
 conn.open objconn
 if err.number<>0 then
  response.write "[err]Can not find database![/err]"
  response.end()
 end if
 err.clear



dim arttitle,rs

function ETrequest(l1)
 if len(l1)>0 then
  ETrequest=replace(killjapan(trim(cstr(request(l1)))),"'", "''")
 end if
end function
arttitle=ETrequest("arttitle")

if len(arttitle)>0 then
 set rs=conn.execute("select count(artid) as artnum from kingart where arttitle='"&arttitle&"'")
 
 if rs(0)>0 then
  response.write("1")
 else
  response.write("0")
 end if
 rs.close
 set rs=nothing
else
 response.write("[err]Can not find arttitle[/err]")
end if

conn.close
set conn=nothing


%>