<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"--> 
<%

'EditorTools文章采集发布助手
'----------------------------------
'文件名
'etchk.asp
'dvbbs8.2文章检查文件，请复制在论坛根目录使用，为保密，请自行修改文件名

'主要参数
'topic		主题标题
'boardid	论坛版块ID，可留空，若填写则限制检查范围为该版块

'如果需要进行用户名、密码校验，请自行填加相关代码。

'----------------------------------


dim title,Rs,SQL,BoardID,substr
	
	title=Dvbbs.Checkstr(trim(request("topic")))
	if title="" then
		response.Write("[err]标题不能为空[/err]")
		set dvbbs=nothing
		response.End()
	else
		substr="where title='"&title&"' "
	end if
	BoardID=Dvbbs.Checkstr(trim(request("boardid")))
	if BoardID<>"" then
		substr=substr&" and BoardID="&BoardID
	end if
	Set Rs=Server.CreateObject("Adodb.RecordSet")
	SQL="Select top 1 * From DV_topic "&substr
	If Not IsObject(Conn) Then ConnectionDatabase
	Rs.Open SQL,Conn,1,3
	if rs.eof then
		response.Write("[no]")
	else
		response.Write("[yes]")
	end if
	rs.close
	set dvbbs=nothing
	set rs=nothing
	response.End()

%>
