<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
'EditorTools文章采集发布助手
'----------------------------------
'动易内容管理系统2006SP6接口文件说明
'----------------------------------
'
'本接口适用于文章中心添加文章
'
'
'文件名
'ETCHK.asp
'动易内容管理系统2006SP6版文章检查文件，请复制在网站根目录使用，为保密，请自行修改文件名
'
'主要参数
'Title		主题标题
'vercode		校验码，默认123456，可在下面提示处修改
'
'如果需要进行用户名、密码校验，请自行填加相关代码。
'
'ET发布配置-文章检查网址处，可以如下填写
'http://您的网址/ETchk.asp?vercode=123456&Title=<%title%>

'自在工坊 ET.Zzcity.net
'----------------------------------

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

%>
