<% '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() %>