ASP内容管理系统kingcms 3.0文章栏目接口- 获取代码 -ET采集官方网站-自在工坊 EditorTools全自动无人值守采集软件

ASP内容管理系统kingcms 3.0文章栏目接口

检查接口说明

4、发布配置-文章检查网址处，可以如下填写：
　　ET2：http://您的网址/admin/etchk.php?arttitle=<%title%>
　　ET1.4：http://您的网址/admin/etchk.php?arttitle=%title%
　　（使用大小写敏感的服务器的用户请注意网址大小写和网站文件一致）

5、接口文件无须任何改动即可使用，如果你希望增加校验或其他功能，请仔细修改；

下载GBK检查接口文件

下载UTF-8检查接口文件

检查接口代码

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

发布接口说明

注：以下参数名后“=”号为示范取值而用，参数名本身不含“=”号

4、附加参数
　　action 动作（值edt勿更改）
　　menuid 主栏目编号(取值为您要发布的栏目号)
　　menuids 副栏目编号（若无则填0）
　　artgrade 阅读权限（0：任何人都可以访问；1：限站内会员访问；2：限vip会员访问）
　　uplist 更新列表（0：否；1：是）
　　snap 远程抓图（0：否；1：是）
　　artshow 显示（0：否；1：是）
　　artcommend 推荐（0：否；1：是）
　　artup 置顶（0：否；1：是）
　　arthead 头条（0：否；1：是）
　　text2html 文本转HTML（0：否；1：是）
　　artauthor 作者（为空则默认）
　　artfrom 来源（为空则默认）
　　artkeyword 关键字（为空则默认）
　　artdescription 摘要（为空则默认）
　　artdate 创建日期（为空则默认）
　　artinput 录入员
　　sysdate 系统时间（为空则默认）

5、发布配置-文章检查网址处，可以如下填写（http://您的网址/admin/etpost.asp）；
　　（使用大小写敏感的服务器的用户请注意网址大小写和网站文件一致）

6、接口文件无须任何改动即可使用，如果你希望增加校验或其他功能，请仔细修改；

下载GBK发布接口文件

下载UTF-8发布接口文件

发布接口代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><br/> <!--#include file="inc/conn.asp" --><br/> <!--#include file="inc/fun.asp" --><br/> <%</p><p> </p><p> dim king,action:action=request("action")<br/> set king=new kingcms<br/> select case action<br/> case"edt"       :king_edt()'king_save<br/> case else   :response.write("[err]未提供action参数[/err]")<br/> end select<br/> set king=nothing</p><p> 'edt  *** ***  www.KingCMS.com  *** ***</p><p> 'ET增加函数，替换KINGCMS函数<br/> function ETrequest(l1)<br/>  if len(l1)>0 then<br/>   ETrequest=replace(killjapan(trim(cstr(request(l1)))),"'", "''")<br/>  end if<br/> end function<br/> 'ET函数结束</p><p> sub king_edt()<br/>  server.scripttimeout=6600<br/>  dim slip,rs,i,menuid,menuids,sliptitle,sql,data,dataform,datamenu,menucount,artimg<br/>  dim text2html,artid,sqlstr,re,artorder,artpath,insql,rs_artid,j:j=0<br/>  dim ssnap,suplist,srepeat<br/>  dim checked,selected<br/>  ssnap="0":suplist="0":srepeat="0"</p><p>  artid=""<br/>  sql="arttitle,artauthor,artfrom,artcontent,artshow,artcommend,artup,arthead,artinput"'8<br/>  sql=sql&",artkeyword,artdescription,artpath,artimg,artdate,sysdate,menuid,menuids,artgrade"'17</p><p>  'if len(artid)>0 then<br/>   sliptitle=king.lang("common/edit")<br/>  'else<br/>   sliptitle=king.lang("common/add")<br/>  'end if<br/>  'king.head "sub2",sliptitle'显示头信息</p><p> 'ET增加验证身份<br/> dim cookiesname,cookiespass,mode,adminkey<br/> cookiesname=ETrequest("adminname")<br/> cookiespass=ETrequest("adminpass")</p><p> </p><p> set rs=conn.execute("select adminid,admintheme,adminlanguage,admineditor,adminlevel,adminkey,admininput,adminpass,adminfontsize,adminmode from kingadmin where onoff=0 and adminlock<=7 and adminname='"&cookiesname&"';")'10<br/>     if not rs.eof and not rs.bof then</p><p>      'level=rs(4)<br/>      king.id=rs(0)<br/>      'name=cookiesname<br/>      'theme=rs(1)<br/>      'language=rs(2)<br/>      'editorname=rs(3)<br/>      adminkey=rs(5)</p><p>      'input=rs(6)<br/>      'fontsize=rs(8)<br/>      if cstr(rs(9))="1" then mode=true else mode=false<br/>      if ll11("0,1",ETrequest("mode")) then<br/>       if ETrequest("mode")="1" then mode=true else mode=false<br/>      end if<br/>      dim adminpass:adminpass=rs(7)</p><p>      if adminpass<>md5(cookiespass&adminkey,1) then<br/>       'response.redirect "login.asp"<br/>       response.write "[err]管理员帐号密码错误[/err]"<br/>       response.end<br/>      end if<br/>     else<br/>      '转到登录页面<br/>      'response.redirect "login.asp"<br/>      response.write "[err]管理员帐号密码错误[/err]"<br/>      response.end<br/>     end if<br/>    set rs=nothing</p><p> '公共参数<br/>  king.pid=l1ll("pid",2):if cstr(king.pid)="" then king.pid=1<br/>  king.rn=l1ll("rn",2):if cstr(king.rn)="" or cstr(king.rn)="0" then king.rn=20<br/>  if cdbl(king.rn)>cdbl(king_maxrn) then king.rn=king_maxrn<br/>  king.code=l1ll("code",0):if cstr(king.code)="" then king.code=etrequest("code"):if king.code="" then king.code="utf-8"</p><p>  if ll11(king_code,king.code)=false then response.write("[err]编码不匹配[/err]")<br/>  if len(king.language)=0 then king.language=l1ll("language",0)<br/>  if len(king.language)=0 then king.language=king_lang</p><p> '结束ET增加代码</p><p> </p><p>  'if len(artid)=0  then'添加或发生提交操作时<br/>   dataform=split(sql,",")<br/>   redim data(ubound(dataform),0)<br/>   for i=0 to ubound(dataform)<br/>    data(i,0)=ETrequest(dataform(i))<br/>   next</p><p>   'if ETrequest(l1l(left(ll11l("111"),16)))="" then'添加文章的时候,数据初始化<br/>    menuid=ETrequest("menuid")<br/>    if len(data(4,0))=0 then data(4,0)=1<br/>    if len(data(8,0))=0 then data(8,0)=king.input'录入<br/> '   data(11,0)=为空? 当路径为空的时候,添加前通过title中的内容来获得新的名称<br/>    <br/>    if len(data(17,0))=0 then data(17,0)=0<br/>    if len(data(13,0))=0 then data(13,0)=tnow'artdate<br/>    if len(data(14,0))=0 then data(14,0)=tnow'sysdate<br/>   'else<br/>   ' menuid=ETrequest("menuid")<br/>    ssnap=ETrequest("snap"):suplist=ETrequest("uplist"):srepeat=ETrequest("repeat")<br/>   'end if<br/>  'else'读取已经存在的项目<br/>  ' set rs=conn.execute("select "&sql&" from kingart where artid="&artid&";")<br/>  '  if not rs.eof and not rs.bof then<br/>  '   data=rs.getrows()<br/>  '   menuid=data(15,0)<br/>  '  else<br/>  '   king.error("system/error")<br/>  '  end if<br/>  ' set rs=nothing<br/>  'end if</p><p> <br/>  're=ETrequest("re")'返回路径<br/>  'if re="" then<br/>  ' re=request.servervariables("http_referer")<br/>  ' if re="" then re=king.page&"?menuid="&menuid<br/>  'else<br/>  ' re=lll("re")<br/>  'end if</p><p>  if II11(menuid,2)=false then<br/>   response.write("[err]未选择主栏目[/err]")<br/>   response.end<br/>  end if</p><p>  set rs=conn.execute("select menuname,menuauthor,menufrom from kingmenu where menuid="&menuid&";")<br/>   if not rs.eof and not rs.bof then<br/>    datamenu=rs.getrows()<br/>   else<br/>    response.write("[err]主栏目编号错误[/err]")<br/>    response.end <br/>   end if<br/>  set rs=nothing</p><p> </p><p> 'sql="arttitle,artauthor,artfrom,artcontent,artshow,artcommend,artup,arthead,artinput"'8<br/> 'sql=sql&",artkeyword,artdescription,artpath,artimg,artdate,sysdate,menuid,menuids,artgrade"'17<br/>  'if king.checkerr and llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then<br/>   artimg=data(12,0)<br/>   'for i=0 to ubound(dataform)<br/>   ' data(i,0)=ETrequest(dataform(i))<br/>   'next<br/>   if len(data(0,0))=0 or len(data(3,0))=0 then<br/>    response.write("[err]缺少标题或内容[/err]")<br/>    response.end <br/>   end if</p><p>   if cstr(data(4,0))="1" then data(4,0)=1 else data(4,0)=0'show<br/>   if cstr(data(5,0))="1" then data(5,0)=1 else data(5,0)=0'commend<br/>   if cstr(data(6,0))="1" then data(6,0)=1 else data(6,0)=0'up<br/>   if cstr(data(7,0))="1" then data(7,0)=1 else data(7,0)=0'head<br/>   if len(data(9,0))>0 then data(9,0)=I1111(data(9,0),1) else data(9,0)=I1111(data(0,0),0)'keyword<br/>   if len(data(10,0))>0 then data(10,0)=left(llIIl(data(10,0)),250) else data(10,0)=lll1(left(llIIl(ETrequest("artcontent")),250))'description<br/>   if len(data(16,0))=0 then data(16,0)=0<br/>   data(16,0)=","&data(16,0)&","<br/>   if cstr(ssnap)="1" then data(3,0)=king.snap(data(3,0))'抓图<br/>   if cstr(ETrequest("text2html"))="1" then data(3,0)=ll111(data(3,0))'文本转换</p><p>    '添加文章的时候,获得文章排列数字<br/>    if conn.execute("select top 1 count(artid) from kingart")(0)=0 then<br/>     artorder="1"<br/>    else<br/>     artorder=conn.execute("select top 1 artid from kingart order by artid desc")(0)+1<br/>    end if<br/>   if len(data(11,0))=0 then data(11,0)=left(king.getpath(data(0,0)),250)'如果内容为空,就从标题里获得<br/> '  if len(data(11,0))=0 then data(11,0)=cdbl(right(year(tnow),2)&month(tnow)&day(tnow)&replace(cstr(timer()),".",""))'如果标题非英文,就赋日期<br/>   artpath=data(11,0)<br/>   if len(artid)>0 then insql=" and artid<>"&artid'update </p><p>   while(conn.execute("select count(artid) from kingart where artpath='"&artpath&"'"&insql&";")(0)>0)<br/>    artpath=data(11,0)&"_"&j<br/>    j=j+1<br/>   wend<br/>   data(11,0)=artpath</p><p>   <br/>   'if cstr(artid)="" then'insert</p><p>   'response.write "insert into kingart ("&sql&",artorder) values ('"&data(0,0)&"','"&data(1,0)&"','"&data(2,0)&"','"&data(3,0)&"',"&data(4,0)&","&data(5,0)&","&data(6,0)&","&data(7,0)&",'"&data(8,0)&"','"&data(9,0)&"','"&data(10,0)&"','"&data(11,0)&"','"&artimg&"','"&data(13,0)&"','"&data(14,0)&"',"&menuid&",'"&data(16,0)&"',"&data(17,0)&","&artorder&");"<br/>   'response.end  </p><p>    conn.execute "insert into kingart ("&sql&",artorder) values ('"&data(0,0)&"','"&data(1,0)&"','"&data(2,0)&"','"&data(3,0)&"',"&data(4,0)&","&data(5,0)&","&data(6,0)&","&data(7,0)&",'"&data(8,0)&"','"&data(9,0)&"','"&data(10,0)&"','"&data(11,0)&"','"&artimg&"','"&data(13,0)&"','"&data(14,0)&"',"&menuid&",'"&data(16,0)&"',"&data(17,0)&","&artorder&");"</p><p> <br/>    '获得articleid的值<br/>    set rs=server.createobject("adodb.recordset")<br/>    rs.open ("select top 1 artid from kingart order by artid desc"),conn<br/>    set rs_artid=rs(0)<br/>     artid=rs_artid<br/>    set rs=nothing<br/>    '更新文章数量<br/>    conn.execute "update kingmenu set menucount=menucount+1 where menuid="&menuid&";"<br/>   'else'update<br/>   ' if cstr(menuid)<>"0" then'稿源库无需操作文件<br/>   '  menucount=conn.execute("select count(artid) from kingart where menuid="&menuid&";")(0)<br/>   '  conn.execute "update kingmenu set menucount="&menucount&" where menuid="&menuid&";"<br/>   ' end if<br/>    'update<br/>   ' conn.execute "update kingart set arttitle='"&data(0,0)&"',artauthor='"&data(1,0)&"',artfrom='"&data(2,0)&"',artcontent='"&data(3,0)&"',artshow="&data(4,0)&",artcommend="&data(5,0)&",artup="&data(6,0)&",arthead="&data(7,0)&",artinput='"&data(8,0)&"',artkeyword='"&data(9,0)&"',artdescription='"&data(10,0)&"',artpath='"&data(11,0)&"',artimg='"&artimg&"',artdate='"&data(13,0)&"',sysdate='"&data(14,0)&"',menuid="&menuid&",menuids='"&data(16,0)&"',artgrade="&data(17,0)&" where artid="&artid&";"<br/>   'end if<br/>   '更新资料<br/>   datamenu(1,0)=lIIlI(datamenu(1,0),data(1,0))<br/>   datamenu(2,0)=lIIlI(datamenu(2,0),data(2,0))<br/>   conn.execute "update kingmenu set menuauthor='"&datamenu(1,0)&"',menufrom='"&datamenu(2,0)&"' where menuid="&menuid&";"<br/>   conn.execute "update kingadmin set admininput='"&data(8,0)&"' where adminid="&king.id&";"</p><p> 'sql="arttitle,artauthor,artfrom,artcontent,artshow,artcommend,artup,arthead,artinput"'8<br/> 'sql=sql&",artkeyword,artdescription,artpath,artimg,artdate,sysdate,menuid,menuids,artgrade"'17</p><p> </p><p>   if ll11(data(16,0),menuid)=false then menuids=data(16,0)&menuid</p><p>   '判断是否一起生成列表<br/>   if cstr(suplist)="1" then</p><p>    'll "sub2="&artid&"&menuid="&menuids&"&cmd=one",re<br/>    ll "sub2="&artid&"&menuid="&menuids&"&cmd=one",""<br/>    <br/>   else</p><p>    'll "sub2="&artid&"&cmd=one",re<br/>    ll "sub2="&artid&"&cmd=one",""<br/>    <br/>   end if<br/>  'end if<br/> response.write("1")</p><p> end sub<br/> %>

发布规则使用说明

在ET采集软件发布配置的规则列表使用鼠标右键菜单导入本发布规则代码。

ET采集2发布规则范例

# ET发布规则文本<br/> # 发布规则名称：Kingcms 3.0<br/> # 版本号：2.0.721 beta<br/> # 生成时间：2009-09-30 21:36:56<br/> #<br/> [name]<br/> S2luZ2NtcyAzLjA=<br/> [/name]<br/> [urlchk]<br/> aHR0cDovL8T6tcTN+Na3L2FkbWluL0VUY2hrLmFzcD9hcnR0aXRsZT08JXRpdGxlJT4=<br/> [/urlchk]<br/> [urlpost]<br/> aHR0cDovL8T6tcTN+Na3L2FkbWluL0VUcG9zdC5hc3A=<br/> [/urlpost]<br/> [urlreply]<br/> aHR0cDovLw==<br/> [/urlreply]<br/> [isreply]<br/> RmFsc2U=<br/> [/isreply]<br/> [len_t_s]<br/> NQ==<br/> [/len_t_s]<br/> [len_t_l]<br/> ODA=<br/> [/len_t_l]<br/> [len_c_s]<br/> NTA=<br/> [/len_c_s]<br/> [len_c_l]<br/> MTAwMDA=<br/> [/len_c_l]<br/> [ptitle]<br/> YXJ0dGl0bGU=<br/> [/ptitle]<br/> [pcontent]<br/> YXJ0Y29udGVudA==<br/> [/pcontent]<br/> [puser]<br/> YWRtaW5uYW1l<br/> [/puser]<br/> [ppsw]<br/> YWRtaW5wYXNz<br/> [/ppsw]<br/> [para1]<br/> YWN0aW9uPWVkdA0KYXJ0Z3JhZGU9MA0KbWVudWlkPTENCm1lbnVpZHM9MA0KdXBsaXN0PTA=<br/> [/para1]<br/> [userlist]<br/> 1cu6xTE9w9zC6zENCtXLusUyPcPcwusy<br/> [/userlist]<br/> [paralist]<br/> 1/fV3z1hcnRhdXRob3INCs7E1cLAtNS0PWFydGZyb20NCrnYvPzX1j1hcnRrZXl3b3JkDQrVqtKq<br/> PWFydGRlc2NyaXB0aW9u<br/> [/paralist]<br/> [ftp]<br/> RmFsc2U=<br/> [/ftp]<br/> [ftpserver]</p><p> [/ftpserver]<br/> [ftpport]<br/> MjE=<br/> [/ftpport]<br/> [ftpuser]</p><p> [/ftpuser]<br/> [ftppsw]</p><p> [/ftppsw]<br/> [ftppasv]<br/> RmFsc2U=<br/> [/ftppasv]<br/> [ymupdir]<br/> RmFsc2U=<br/> [/ymupdir]<br/> [codepage]<br/> MA==<br/> [/codepage]<br/> [translang]<br/> MA==<br/> [/translang]<br/> [transparas]<br/> YXJ0dGl0bGUNCmFydGNvbnRlbnQ=<br/> [/transparas]<br/> [pathfile]</p><p> [/pathfile]<br/> [urlfile]<br/> L3VwZmlsZQ==<br/> [/urlfile]<br/> [pfiles]</p><p> [/pfiles]<br/> [psurl]</p><p> [/psurl]<br/> [isloginpost]<br/> RmFsc2U=<br/> [/isloginpost]<br/> [postcookies]</p><p> [/postcookies]<br/> [postokcode]</p><p> [/postokcode]<br/> [postaddurl]</p><p> [/postaddurl]<br/> [isubb]<br/> RmFsc2U=<br/> [/isubb]<br/> [iscrlf]<br/> RmFsc2U=<br/> [/iscrlf]<br/> [sn]<br/> OTk5OQ==<br/> [/sn]<br/> [g_id]<br/> NQ==<br/> [/g_id]

（请使用 CTRL+A 和 CTRL+C 从上栏复制规则）

免责声明：自在工坊网站所展示的作品信息由用户自行提供，其真实性、准确性和合法性由信息发布人负责。自在工坊不提供任何保证，并不承担任何法律责任。