动易内容管理系统PowereasyCMS 2006 SP6接口- 获取代码 -ET采集官方网站-自在工坊 EditorTools全自动无人值守采集软件

动易内容管理系统PowereasyCMS 2006 SP6接口

前往检查接口

前往发布接口

前往发布规则

检查接口说明

4、发布配置-文章检查网址处，可以如下填写：
　　ET2：http://您的网址/etchk.asp?vercode=123456&Title=<%title%>

　　ET1.4：http://您的网址/etchk.asp?vercode=123456&Title=%title%
　　（使用大小写敏感的服务器的用户请注意网址大小写和网站文件一致）

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

下载GBK检查接口文件

下载UTF-8检查接口文件

检查接口代码

<!--#include file="conn.asp"--><br/> <!--#include file="inc/function.asp"--><br/> <%</p><p> <br/> dim vercode<br/> vercode="123456" '校验码，在此处修改</p><p> if request("vercode")=vercode then<br/>   dim ArticleID,rs,sql,Title<br/>   Title=ReplaceBadChar(Trim(Request("Title")))<br/>   Call OpenConn<br/>   Set rs = Server.CreateObject("adodb.recordset")<br/>   sql = "select top 1 ArticleID from PE_Article where Title='"&Title&"'"<br/>   rs.Open sql, Conn, 1, 3<br/>   If not rs.EOF Then<br/>    response.Write("1")<br/>   else<br/>    response.Write("0")<br/>   End If<br/>   rs.close<br/>   set rs=nothing  <br/>   Call CloseConn<br/> end if</p><p> %><br/>

发布接口说明

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

4、附加必要参数
　　Action=SaveAdd 　　发布动作，默认参数，取值不可更改
　　ChannelID=1 　　栏目类型，默认参数，取值不可更改
　　ClassID=1 　　所属栏目编号，不指定为-1
　　SpecialID=1 　　所属专题，无则为空
　　IncludePic=0 　　简短标题，取值：1图文，2组图，3推荐，4注意，无则为0
　　Keyword=关键字　　关键字，必填（本项建议在采集配置-自定项中设置）
　　Status=3 　　文章状态，取值：-1草稿，0待审核，3终审通过
　　CreateImmediate=Yes 　　立即生成HTML静态页面，不生成则为空
　　SaveRemotePic=Yes 　　自动下载文章内容里的图片，无则为空
　　使用本功能时，ET采集规则里应取消下载图片，发布规则里不使用FTP上传
　　PaginationType=0 　　内容分页方式，取值：0不分页，1自动分页，2手动分页
　　如使用“2”手动分页，则在过滤规则中将ET分页标记“<--subpage-->”替换为“[NextPage]”，注意大小写
　　MaxCharPerPage=10000　　自动分页时的每页大约字符数
　　Stars=3 　　文章评分等级,无则为0
　　Hits=0 　　点击数初始值
　　　
5、可选参数
　　TitleFontColor= 　　标题颜色，默认为空，格式“#000000”
　　TitleFontType=0 　　标题字形，默认为0，取值：1粗体，2斜体，3粗+斜
　　Subheading= 　　副标题（本项建议在采集配置-自定项中设置）
　　ShowCommentLink=Yes 　　显示文章列表时在标题旁显示评论链接，不显示则为空
　　Author=admin 　　文章作者，如：佚名、未知、admin，无则为空（本项建议在采集配置-自定项中设置）
　　CopyFrom=本站原创　　文章来源，无则为空（本项建议在采集配置-自定项中设置）
　　Intro= 　　文章简介，无则为空（本项建议在采集配置-自定项中设置）
　　OnTop=yes 　　是否固顶文章，不设则为空
　　Hot=yes 　　是否热门文章，不设则为空
　　Elite=yes 　　是否推荐文章，不设则为空
　　UpdateTime= 　　录入时间，可留空
　　SkinID=0 　　配色风格编号，0为系统默认
　　TemplateID=0 　　版面设计模板，0为系统默认
　　InfoPurview=0 　　阅读权限，0为继承栏目权限，1所有会员，2指定会员组
　　arrGroupID= 　　阅读权限指定会员组编号，1注册会员，2商业客户，3VIP客户，
　　4普通代理，5金牌代理，6钻石代理，8未验证会员，7待审批会员
　　InfoPoint= 　　阅读点数
　　ChargeType=0 　　重复收费方式，取值：0不重复收费，1距离上次收费时间PitchTime小时后重新收费，
　　2会员重复阅读此文章ReadTimes次后重新收费，3上述两者都满足时重新收费，
　　4上述两者任一个满足时就重新收费，5每阅读一次就重复收费一次
　　PitchTime=24 　　距离上次收费时间多少小时
　　ReadTimes=10 　　重复阅读此文章多少次
　　DividePercent=0 　　分成比例

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

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

下载GBK发布接口文件

下载UTF-8发布接口文件

发布接口代码

<% @LANGUAGE = "VBScript" %><br/> <%</p><p> <br/> Option Explicit<br/> Response.Buffer = True<br/> Server.ScriptTimeOut = 9999999<br/> %><br/> <!--#include file="conn.asp"--><br/> <!--#include file="inc/function.asp"--><br/> <!--#include file="inc/md5.asp"--><br/> <%</p><p> Call ChkLogin</p><p> If FoundErr = True Then<br/>  WriteMsg(ErrMsg)<br/> End If</p><p> Action = Trim(Request("Action"))</p><p> </p><p> if Action="SaveAdd" then<br/>  Call PE_Execute("PE_Article6", "Admin_Article", "CMS")<br/>  <br/>  if Trim(Request("CreateImmediate"))="Yes" then<br/>   dim ArticleID,ChannelID,ClassID,rs,sql<br/>   Call OpenConn<br/>   Set rs = Server.CreateObject("adodb.recordset")<br/>   sql = "select top 1 ArticleID,ChannelID,ClassID from PE_Article order by ArticleID desc"<br/>   rs.Open sql, Conn, 1, 3<br/>   If not rs.EOF Then<br/>    ArticleID=rs("ArticleID")<br/>    ChannelID=rs("ChannelID")<br/>    ClassID=rs("ClassID")<br/>   End If<br/>   rs.close<br/>   set rs=nothing<br/>   <br/>   Call CloseConn<br/>   dim posturl</p><p>   posturl="http://"&Trim(Request.ServerVariables("HTTP_HOST"))&"/etpost.asp?ChannelID="&ChannelID&"&Action=CreateArticle2&ClassID="&ClassID&"&SpecialID="&Trim(Request("SpecialID"))&"&ArticleID="&ArticleID&"&ShowBack=No&UserName="&Trim(Request("UserName"))&"&Password="&Trim(Request("Password"))<br/>   response.Write(getText(POSTURL))</p><p>   </p><p>  end if</p><p> </p><p> elseif Action="CreateArticle2" then<br/>  Call PE_CreateHTML("PE_Article6", "Article", "CMS")</p><p> <br/> end if</p><p> function getText(url)</p><p>  dim oReq<br/>  <br/>  on error resume next<br/>  <br/>  '//创建XMLHTTP对象<br/>  'set oReq= CreateObject("Msxml2.ServerXMLHTTP")<br/>  set oReq= CreateObject("MSXML2.XMLHTTP")</p><p>  <br/>  oReq.open "get",url,false<br/>  oReq.send <br/>  <br/>  if oReq.status = 200 then<br/>  getText = bytes2BSTR(oReq.responseBody)<br/>  else<br/>  getText = "0"<br/>  end if<br/>  set oReq=nothing<br/> end function</p><p> <br/> Function Bytes2bStr(vin)<br/>  Const adTypeBinary = 1<br/>  Const adTypeText = 2<br/>  Dim BytesStream,StringReturn<br/>  Set BytesStream = Server.CreateObject("ADODB.Stream") '建立一个流对象<br/>  With BytesStream<br/>   .Type = adTypeText        <br/>   .Open                     <br/>   .WriteText vin            <br/>   .Position = 0             <br/>   .Charset = "GB2312"       <br/>   .Position = 2             <br/>   StringReturn = .ReadText  <br/>   .close                    <br/>  End With<br/>  Set BytesStream = Nothing     <br/>  Bytes2bStr = StringReturn<br/> End Function</p><p> Sub ChkLogin()<br/>     Dim sql, rs<br/>     Dim UserName, Password, CheckCode, RndPassword, AdminLoginCode<br/>     UserName = ReplaceBadChar(Trim(Request("UserName")))<br/>     Password = ReplaceBadChar(Trim(Request("Password")))<br/> '    CheckCode = LCase(ReplaceBadChar(Trim(Request("CheckCode"))))<br/> '    AdminLoginCode = Trim(Request("AdminLoginCode"))</p><p> '    If CSng(ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion) < 5.6 Then<br/> '        FoundErr = True<br/> '        ErrMsg = ErrMsg & "<li>服务器脚本解释引擎（VBScript）版本过低，请联系您的空间商或服务器管理员更新。</li>"<br/> '        ErrMsg = ErrMsg & "<li><a href='http://www.microsoft.com/downloads/release.asp?ReleaseID=33136' target='_blank'><font color='green'>脚本解释引擎下载地址</font></a></li>"<br/> '    End If</p><p>     If UserName = "" Then<br/>         FoundErr = True<br/>         ErrMsg = ErrMsg & "<br><li>用户名不能为空！</li>"<br/>     End If<br/>     If Password = "" Then<br/>         FoundErr = True<br/>         ErrMsg = ErrMsg & "<br><li>密码不能为空！</li>"<br/>     End If<br/> '    If CheckCode = "" Then<br/> '        FoundErr = True<br/> '        ErrMsg = ErrMsg & "<br><li>验证码不能为空！</li>"<br/> '    End If<br/> '    If Trim(Session("CheckCode")) = "" Then<br/> '        FoundErr = True<br/> '        ErrMsg = ErrMsg & "<br><li>你在管理登录停留的时间过长，导致验证码失效。请重新返回登录页面进行登录。</li>"<br/> '    End If<br/> '    If CheckCode <> Session("CheckCode") Then<br/> '        FoundErr = True<br/> '        ErrMsg = ErrMsg & "<br><li>您输入的验证码和系统产生的不一致，请重新输入。</li>"<br/> '    End If<br/> '    If EnableSiteManageCode = True And AdminLoginCode <> SiteManageCode Then<br/> '        FoundErr = True<br/> '        ErrMsg = ErrMsg & "<br><li>您输入的后台管理认证码不对，请重新输入。</li>"<br/> '    End If<br/>     If FoundErr = True Then<br/>         Exit Sub<br/>     End If<br/>     <br/>     ComeUrl = Trim(Request.ServerVariables("HTTP_REFERER"))</p><p>     Password = MD5(Password, 16)<br/>     Set rs = Server.CreateObject("adodb.recordset")<br/>     sql = "select * from PE_Admin where Password='" & Password & "' and AdminName='" & UserName & "'"<br/>     rs.Open sql, Conn, 1, 3<br/>     If rs.bof And rs.EOF Then<br/>         FoundErr = True<br/>         ErrMsg = ErrMsg & "<br><li>用户名或密码错误！！！</li>"<br/>     Else<br/>         If Password <> rs("Password") Then<br/>             FoundErr = True<br/>             ErrMsg = ErrMsg & "<br><li>用户名或密码错误！！！</li>"<br/>         End If<br/>     End If<br/>     If FoundErr = True Then<br/>         Call InsertLog(1, -1, UserName, UserTrueIP, "登录失败", ComeUrl, "")<br/>         Session("AdminName") = ""<br/>         Session("AdminPassword") = ""<br/>         Session("RndPassword") = ""<br/>         rs.Close<br/>         Set rs = Nothing<br/>         Exit Sub<br/>     End If<br/>     UserName = rs("UserName")<br/>     RndPassword = GetRndPassword(16)<br/>     rs("LastLoginIP") = UserTrueIP<br/>     rs("LastLoginTime") = Now()<br/>     rs("LoginTimes") = rs("LoginTimes") + 1<br/>     rs("RndPassword") = RndPassword<br/>     rs.Update<br/> '    Call InsertLog(1, 0, UserName, UserTrueIP, "登录成功", ComeUrl, "")</p><p>     strInstallDir = GetScriptPath(Trim(Request.ServerVariables("SCRIPT_NAME")), 1)<br/>     Site_Sn = Replace(Replace(LCase(Request.ServerVariables("SERVER_NAME") & strInstallDir), "/", ""), ".", "")<br/>     Response.Cookies(Site_Sn)("AdminName") = rs("AdminName")<br/>     Response.Cookies(Site_Sn)("AdminPassword") = rs("Password")<br/>     Response.Cookies(Site_Sn)("RndPassword") = RndPassword<br/>     Response.Cookies(Site_Sn)("AdminLoginCode") = AdminLoginCode<br/>     rs.Close</p><p>     sql = "select UserPassword,LastPassword,LastLoginIP,LastLoginTime,LoginTimes from PE_User where UserName='" & UserName & "'"<br/>     rs.Open sql, Conn, 1, 3<br/>     If Not (rs.bof And rs.EOF) Then<br/>         rs("LastPassword") = RndPassword<br/>         rs("LastLoginIP") = UserTrueIP<br/>         rs("LastLoginTime") = Now()<br/>         rs("LoginTimes") = rs("LoginTimes") + 1<br/>         rs.Update<br/>         Response.Cookies(Site_Sn)("UserName") = UserName<br/>         Response.Cookies(Site_Sn)("UserPassword") = rs("UserPassword")<br/>         Response.Cookies(Site_Sn)("LastPassword") = RndPassword<br/>     End If<br/>     rs.Close<br/>     Set rs = Nothing</p><p> '    Call CloseConn<br/> '    Response.Redirect "Admin_Index.asp"<br/> End Sub</p><p> '****************************************************<br/> '过程名：WriteMsg<br/> '作  用：显示提示信息<br/> '参  数：无<br/> '****************************************************<br/> function WriteMsg(ErrMsg)<br/>     Dim strErr<br/>     strErr = strErr & "[err]" & ErrMsg & "[/err]"<br/>     Response.Write strErr<br/>  Call CloseConn<br/>  response.End()<br/> End function</p><p> Sub InsertLog(LogType, ChannelID, UserName, UserIP, LogContent, ScriptName, PostString)<br/>     Dim sqlLog, rsLog<br/>     sqlLog = "select top 1 * from PE_Log"<br/>     Set rsLog = Server.CreateObject("Adodb.RecordSet")<br/>     rsLog.Open sqlLog, Conn, 1, 3<br/>     rsLog.addnew<br/>     rsLog("LogType") = LogType<br/>     rsLog("ChannelID") = ChannelID<br/>     rsLog("LogTime") = Now()<br/>     rsLog("UserName") = UserName<br/>     rsLog("UserIP") = UserIP<br/>     rsLog("LogContent") = LogContent<br/>     rsLog("ScriptName") = ScriptName<br/>     rsLog("PostString") = PostString<br/>     rsLog.Update<br/>     rsLog.Close<br/>     Set rsLog = Nothing<br/> End Sub</p><p> </p><p> </p><p> Sub PE_Execute(strDllName, strClassName, DllType)<br/>     On Error Resume Next<br/>     If strDllName = "" Or IsNull(strDllName) Then<br/>         Response.Write "请指定动易组件名！"<br/>         Exit Sub<br/>     End If<br/>     If strClassName = "" Or IsNull(strClassName) Then<br/>         Response.Write "请指定动易组件提供的类名！"<br/>         Exit Sub<br/>     End If<br/>     Dim PE_Admin, objName<br/>     objName = strDllName & "." & strClassName<br/>     Set PE_Admin = Server.CreateObject(objName)<br/>     If Err Then<br/>         Err.Clear<br/>         Response.Write "对不起，你的服务器没有安装动易组件（" & strDllName & ".dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"<br/>         Exit Sub<br/>     End If<br/>     PE_Admin.iConnStr = ConnStr<br/>     Select Case DllType<br/>     Case "CMS"<br/>         PE_Admin.iCMS_Edition = CMS_Edition<br/>     Case "eShop"<br/>         PE_Admin.ieShop_Edition = eShop_Edition<br/>     Case "CRM"<br/>         PE_Admin.iCRM_Edition = CRM_Edition<br/>     Case Else<br/>     End Select<br/>     PE_Admin.iSystemDatabaseType = SystemDatabaseType<br/>     Call PE_Admin.Execute<br/>     Set PE_Admin = Nothing<br/>     If Err Then<br/>         Response.Write "错 误 号：" & Err.Number & "<BR>"<br/>         Response.Write "错误描述：" & Err.Description & "<BR>"<br/>         Response.Write "错误来源：" & Err.Source & "<BR>"<br/>         Err.Clear<br/>     End If<br/> End Sub</p><p> Sub PE_CreateHTML(strDllName, strClassName, DllType)<br/>     On Error Resume Next<br/>     If strDllName = "" Or IsNull(strDllName) Then<br/>         Response.Write "请指定动易组件名！"<br/>         Exit Sub<br/>     End If<br/>     If strClassName = "" Or IsNull(strClassName) Then<br/>         Response.Write "请指定动易组件提供的类名！"<br/>         Exit Sub<br/>     End If<br/>     Dim PE_Admin, objName<br/>     objName = strDllName & "." & strClassName<br/>     Set PE_Admin = Server.CreateObject(objName)<br/>     If Err Then<br/>         Err.Clear<br/>         Response.Write "对不起，你的服务器没有安装动易组件（" & strDllName & ".dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"<br/>         Exit Sub<br/>     End If<br/>     PE_Admin.iConnStr = ConnStr<br/>     If strClassName <> "CreateIndex" Then<br/>         Select Case DllType<br/>         Case "CMS"<br/>             PE_Admin.iCMS_Edition = CMS_Edition<br/>         Case "eShop"<br/>             PE_Admin.ieShop_Edition = eShop_Edition<br/>         Case "CRM"<br/>             PE_Admin.iCRM_Edition = CRM_Edition<br/>         Case Else<br/>         End Select<br/>     End If<br/>     PE_Admin.iSystemDatabaseType = SystemDatabaseType<br/>     Call PE_Admin.CreateHTML<br/>     Set PE_Admin = Nothing<br/>     If Err Then<br/>         Response.Write "错 误 号：" & Err.Number & "<BR>"<br/>         Response.Write "错误描述：" & Err.Description & "<BR>"<br/>         Response.Write "错误来源：" & Err.Source & "<BR>"<br/>         Err.Clear<br/>     End If<br/> End Sub</p><p> %><br/>

发布规则使用说明

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

ET采集2发布规则范例

# ET发布规则文本<br/> # 发布规则名称：动易cms 2006 sp6<br/> # 版本号：2.0.721 beta<br/> # 生成时间：2009-10-03 11:50:36<br/> #<br/> [name]<br/> tq/S12NtcyAyMDA2IHNwNg==<br/> [/name]<br/> [urlchk]<br/> aHR0cDovL8T6tcTN+Na3L0VUY2hrLmFzcD92ZXJjb2RlPTEyMzQ1NiZUaXRsZT08JXRpdGxlJT4=</p><p> [/urlchk]<br/> [urlpost]<br/> aHR0cDovL8T6tcTN+Na3L2V0cG9zdC5hc3A=<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/> VGl0bGU=<br/> [/ptitle]<br/> [pcontent]<br/> Q29udGVudA==<br/> [/pcontent]<br/> [puser]<br/> VXNlck5hbWU=<br/> [/puser]<br/> [ppsw]<br/> UGFzc3dvcmQ=<br/> [/ppsw]<br/> [para1]<br/> Q2xhc3NJRD3E+rXEwLjEv7HgusUNClNwZWNpYWxJRD3E+rXE16jM4rHgusUNCkFjdGlvbj1TYXZl<br/> QWRkDQpDaGFubmVsSUQ9MQ0KSW5jbHVkZVBpYz0wDQpUaXRsZUZvbnRUeXBlPTANClNob3dDb21t<br/> ZW50TGluaz1ZZXMNCktleXdvcmQ90MLOxQ0KU2F2ZVJlbW90ZVBpYz1ZZXMNClBhZ2luYXRpb25U<br/> eXBlPTANCk1heENoYXJQZXJQYWdlPTEwMDAwDQpTdGF0dXM9Mw0KQ3JlYXRlSW1tZWRpYXRlPVll<br/> cw0KU3RhcnM9Mw0KSGl0cz0wDQpTa2luSUQ9MA0KVGVtcGxhdGVJRD0wDQpJbmZvUHVydmlldz0w<br/> DQpDaGFyZ2VUeXBlPTANClBpdGNoVGltZT0yNA0KUmVhZFRpbWVzPTEwDQpEaXZpZGVQZXJjZW50<br/> PTA=<br/> [/para1]<br/> [userlist]<br/> 1cu6xTE9w9zC6zENCtXLusUyPcPcwusy<br/> [/userlist]<br/> [paralist]<br/> udi8/NfWPUtleXdvcmQNCrixserM4j1TdWJoZWFkaW5nDQrX99XfPUF1dGhvcg0KzsTVwsC01LQ9<br/> Q29weUZyb20NCs7E1cLVqtKqPUludHJv<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/> VHJ1ZQ==<br/> [/ymupdir]<br/> [codepage]<br/> MA==<br/> [/codepage]<br/> [translang]<br/> MA==<br/> [/translang]<br/> [transparas]<br/> VGl0bGUNCkNvbnRlbnQ=<br/> [/transparas]<br/> [pathfile]</p><p> [/pathfile]<br/> [urlfile]<br/> YXJ0aWNsZS91cGxvYWRmaWxlcy8=<br/> [/urlfile]<br/> [pfiles]</p><p> [/pfiles]<br/> [psurl]</p><p> [/psurl]<br/> [isloginpost]<br/> VHJ1ZQ==<br/> [/isloginpost]<br/> [postcookies]</p><p> [/postcookies]<br/> [postokcode]<br/> zO28087E1cKzybmm<br/> [/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 从上栏复制规则）

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