发布接口说明

1、接口文件名etpost.asp，为保密，请自行修改文件名；

2、本接口文件请复制在网站任意目录下使用；

3、必填参数
　　
　　title
　　标题参数名

　　text
内容参数名，其值将作为生成文件的内容；
用户可以通过参数取值，设计内容的样式，并且调用其他数据项的值，如图所示：


4、主要参数

　　vercode
安全校验码，请自行设定，本项用以防止接口被他人利用，如果需要进行更多校验，请自行填加相关代码。设置本参数时，需要修改接口文件开始处的同名参数取相同值；



filepath
文件保存位置，以本接口文件位置起始的相对路径，可以使用多级目录；
取值说明： “../”表示上级目录，留空表示当前目录，“yyyy”表示4位年份，“yy”表示2位年份，“mm”表示2位月份，“dd”表示2位日期，“hh”表示2位小时，“ii”表示2位分钟，“ss”表示2位秒钟；
例：“2012-08/07/” 写做 “yyyy-mm/dd”；


filename
文件名；
取值说明：“yyyy”表示4位年份，“yy”表示2位年份，“mm”表示2位月份，“dd”表示2位日期，“hh”表示2位小时，“ii”表示2位分钟，“ss”表示2位秒钟；
例1：“20120809123001.txt” 写做 “yyyymmddhhiiss.txt”


例2：使用当前标题作为文件名 写做“<[标题]>.txt”



isutf8
是否生成UTF8编码文件，1为是，其他为否，生成UTF8文件时，建议文件路径和文件名使用英文和数字；
本参数在发布配置编码转换选择 “使用UTF-8” 时配合使用。


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

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


 

下载GBK发布接口文件     下载UTF-8发布接口文件

发布接口代码

<% vercode="" '安全校验码，请在此处设置 if trim(vercode)<>trim(request.Form("vercode")) then response.Write("[err]安全校验码vercode不相符[/err]") response.End() end if 'UTF-8 To GB2312 function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) if mid(UTFStr,Dig,1)="%" then if len(UTFStr) >= Dig+8 then GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9)) Dig=Dig+8 else GBStr=GBStr & mid(UTFStr,Dig,1) end if else GBStr=GBStr & mid(UTFStr,Dig,1) end if next UTF2GB=GBStr end function function ConvChinese(x) A=split(mid(x,2),"%") i=0 j=0 for i=0 to ubound(A) A(i)=c16to2(A(i)) next for i=0 to ubound(A)-1 DigS=instr(A(i),"0") Unicode="" for j=1 to DigS-1 if j=1 then A(i)=right(A(i),len(A(i))-DigS) Unicode=Unicode & A(i) else i=i+1 A(i)=right(A(i),len(A(i))-2) Unicode=Unicode & A(i) end if next if len(c2to16(Unicode))=4 then ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode))) else ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode))) end if next end function function c2to16(x) i=1 for i=1 to len(x) step 4 c2to16=c2to16 & hex(c2to10(mid(x,i,4))) next end function function c2to10(x) c2to10=0 if x="0" then exit function i=0 for i= 0 to len(x) -1 if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i) next end function function c16to2(x) i=0 for i=1 to len(trim(x)) tempstr= c10to2(cint(int("&h" & mid(x,i,1)))) do while len(tempstr)<4 tempstr="0" & tempstr loop c16to2=c16to2 & tempstr next end function function c10to2(x) mysign=sgn(x) x=abs(x) DigS=1 do if x<2^DigS then exit do else DigS=DigS+1 end if loop tempnum=x i=0 for i=DigS to 1 step-1 if tempnum>=2^(i-1) then tempnum=tempnum-2^(i-1) c10to2=c10to2 & "1" else c10to2=c10to2 & "0" end if next if mysign=-1 then c10to2="-" & c10to2 end function '正则表达式替换 function myRegrpl(oldstr,pat,newstr) if oldstr<>"" then Dim regEx ' 建立变量。 Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern =pat ' 设置模式。 regEx.IgnoreCase = true ' 设置是否区分字符大小写。 regEx.Global = True ' 设置全局可用性。 myRegrpl = regEx.replace(oldstr,newstr) ' 执行搜索。 set regEx=nothing else myRegrpl = oldstr end if End function function makefile(ourl,content) dim fso,ofile Server.ScriptTimeOut=9000 on error resume next set fso=server.CreateObject("Scripting.FileSystemObject") '生成单独TXT文件 set ofile=fso.CreateTextFile(server.mappath(ourl), True) ofile.write(content) ofile.close set ofile=nothing set fso=nothing If Err<>0 Then Err=0 makefile =false '失败 else makefile =true '成功 end if Server.ScriptTimeOut=300 end function function makeutf8file(ourl,content) Dim objstream,newurl newurl=UTF2GB(ourl) Server.ScriptTimeOut=9000 on error resume next set objstream = server.createobject("adodb.stream") with objstream .open .charset = "utf-8" .position = objstream.size .writetext=content .savetofile server.mappath(newurl),2 .close end with If Err<>0 Then Err=0 makeutf8file =false '失败 else makeutf8file =true '成功 end if set objstream = Nothing Server.ScriptTimeOut=300 end function Function CreateMultiFolder(ByVal CFolder) Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo BlInfo = False CreateFolder = CFolder On Error Resume Next Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If Err Then Err.Clear() Exit Function End If If Right(CreateFolder, 1) = "/" Then CreateFolder = Left(CreateFolder, Len(CreateFolder) -1) End If CreateFolderArray = Split(CreateFolder, "/") For i = 0 To UBound(CreateFolderArray) CreateFolderSub = "" For ii = 0 To i CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/" Next PhCreateFolderSub = Server.MapPath(CreateFolderSub) If Not objFSO.FolderExists(PhCreateFolderSub) Then objFSO.CreateFolder(PhCreateFolderSub) End If Next If Err Then Err.Clear() Else BlInfo = True End If CreateMultiFolder = BlInfo End Function filename=trim(request.Form("filename")) '文件名参数 if filename="" then response.Write("[err]文件名参数filename不能为空[/err]") response.End() end if filename=replace(filename,"yyyy",year(date),1,-1,1) filename=replace(filename,"yy",right(year(date),2),1,-1,1) filename=replace(filename,"mm",right("0"&month(date),2),1,-1,1) filename=replace(filename,"dd",right("0"&day(date),2),1,-1,1) filename=replace(filename,"hh",right("0"&hour(date),2),1,-1,1) filename=replace(filename,"ii",right("0"&minute(date),2),1,-1,1) filename=replace(filename,"ss",right("0"&second(date),2),1,-1,1) filepath=trim(request.Form("filepath")) '文件名参数 if filepath<>"" then filepath=replace(filepath,"yyyy",year(date),1,-1,1) filepath=replace(filepath,"yy",right(year(date),2),1,-1,1) filepath=replace(filepath,"mm",right("0"&month(date),2),1,-1,1) filepath=replace(filepath,"dd",right("0"&day(date),2),1,-1,1) filepath=replace(filepath,"hh",right("0"&hour(date),2),1,-1,1) filepath=replace(filepath,"ii",right("0"&minute(date),2),1,-1,1) filepath=replace(filepath,"ss",right("0"&second(date),2),1,-1,1) if right(filepath,1)<>"/" then filepath=filepath&"/" end if if not CreateMultiFolder(filepath) then response.Write("[err]创建目录失败[/err]") response.End() end if end if text=trim(request.Form("text")) '文件样式参数 if text="" then response.Write("[err]内容参数text不能为空[/err]") response.End() end if If request.Form("isutf8")=1 Then if makeutf8file(filepath&filename,text) then response.Write("[ok]") else response.Write("[err]生成文件失败[/err]") end if Else if makefile(filepath&filename,text) then response.Write("[ok]") else response.Write("[err]生成文件失败[/err]") end if End if %>

发布规则使用说明

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

1、请根据发布网站的编码选择编码转换方式，GBK为不转换


2、本接口不需要启用UBB代码格式转换；

ET采集2发布规则范例

# ET发布规则文本 # 发布规则名称：ASP通用文件生成-UTF8 # 版本号：2.7 # 生成时间：2022/12/25 14:04:50 # [name] QVNQzajTw87EvP7J+rPJLVVURjg= [/name] [urlchk] [/urlchk] [urlpost] aHR0cDovL8T6tcRBU1DVvrXjL2V0cG9zdC5hc3A= [/urlpost] [urlreply] aHR0cDovLw== [/urlreply] [isreply] RmFsc2U= [/isreply] [len_t_s] MA== [/len_t_s] [len_t_l] MTAw [/len_t_l] [len_c_s] MA== [/len_c_s] [len_c_l] NTAwMDAw [/len_c_l] [iscut] RmFsc2U= [/iscut] [ptitle] dGl0bGU= [/ptitle] [pcontent] dGV4dA== [/pcontent] [puser] [/puser] [ppsw] [/ppsw] [para1] [/para1] [userlist] [/userlist] [paralist] dGV4dA0KZmlsZW5hbWUNCmZpbGVwYXRoDQo= [/paralist] [paralistvalue] PEB0ZXh0QD48W7HqzOJdPg0KDQo8W9X9zsRdPjxAL3RleHRAPg0KPEBmaWxlbmFtZUA+xPq1xM7E vP7D+7jxyr08QC9maWxlbmFtZUA+DQo8QGZpbGVwYXRoQD7E+rXEzsS8/rGjtObEv8K8PEAvZmls ZXBhdGhAPg0K [/paralistvalue] [ftp] RmFsc2U= [/ftp] [ftpserver] [/ftpserver] [ftpport] MjE= [/ftpport] [ftpuser] [/ftpuser] [ftppsw] [/ftppsw] [ftppasv] MA== [/ftppasv] [ftpdelay] MA== [/ftpdelay] [ymupdir] MA== [/ymupdir] [codepage] MA== [/codepage] [translang] MA== [/translang] [transparas] [/transparas] [pathfile] [/pathfile] [urlfile] [/urlfile] [pfiles] [/pfiles] [psurl] [/psurl] [isloginpost] RmFsc2U= [/isloginpost] [postcookies] [/postcookies] [postokcode] [/postokcode] [postaddurl] [/postaddurl] [postreferer] [/postreferer] [isubb] RmFsc2U= [/isubb] [iscrlf] VHJ1ZQ== [/iscrlf] [ftpisproxy] MA== [/ftpisproxy] [ftpproxyurl] [/ftpproxyurl] [ftpproxyport] ODA= [/ftpproxyport] [ftpproxyuser] [/ftpproxyuser] [ftpproxypwd] [/ftpproxypwd] [transmod] MA== [/transmod] [replyfield] [/replyfield] [accountmod] RmFsc2U= [/accountmod] [sn] OTk5OQ== [/sn] [g_id] MjQ= [/g_id]
（请使用 CTRL+A 和 CTRL+C 从上栏复制规则）

ET采集3发布规则范例

# ET发布规则文本 # 发布规则名称：ASP通用文件生成-UTF8 # 版本号：3.6.5 # 生成时间：2022/12/25 14:04:16 # [name] QVNQ6YCa55So5paH5Lu255Sf5oiQLVVURjg= [/name] [urlchk] [/urlchk] [urlpost] aHR0cDovL+aCqOeahEFTUOermeeCuS9ldHBvc3QuYXNw [/urlpost] [urlreply] aHR0cDovLw== [/urlreply] [isreply] RmFsc2U= [/isreply] [len_t_s] MA== [/len_t_s] [len_t_l] MTAw [/len_t_l] [len_c_s] MA== [/len_c_s] [len_c_l] NTAwMDAw [/len_c_l] [iscut] RmFsc2U= [/iscut] [ptitle] dGl0bGU= [/ptitle] [pcontent] dGV4dA== [/pcontent] [puser] [/puser] [ppsw] [/ppsw] [para1] [/para1] [userlist] [/userlist] [paralist] dGV4dA0KZmlsZW5hbWUNCmZpbGVwYXRo [/paralist] [ftp] RmFsc2U= [/ftp] [ftpserver] [/ftpserver] [ftpport] MjE= [/ftpport] [ftpuser] [/ftpuser] [ftppsw] [/ftppsw] [ftppasv] MA== [/ftppasv] [ftpdelay] MA== [/ftpdelay] [ymupdir] MA== [/ymupdir] [codepage] NjUwMDE= [/codepage] [transmod] MA== [/transmod] [translang] [/translang] [transparas] [/transparas] [pathfile] [/pathfile] [urlfile] [/urlfile] [pfiles] [/pfiles] [psurl] [/psurl] [isloginpost] RmFsc2U= [/isloginpost] [postcookies] [/postcookies] [postokcode] [/postokcode] [postaddurl] [/postaddurl] [isubb] RmFsc2U= [/isubb] [iscrlf] VHJ1ZQ== [/iscrlf] [ftpisproxy] MA== [/ftpisproxy] [ftpproxyurl] [/ftpproxyurl] [ftpproxyport] ODA= [/ftpproxyport] [ftpproxyuser] [/ftpproxyuser] [ftpproxypwd] [/ftpproxypwd] [postreferer] [/postreferer] [replyfield] [/replyfield] [paralistvalue] PEB0ZXh0QD48W+agh+mimF0+DQoNCjxb5q2j5paHXT48QC90ZXh0QD4NCjxAZmlsZW5hbWVAPuaC qOeahOaWh+S7tuWQjeagvOW8jzxAL2ZpbGVuYW1lQD4NCjxAZmlsZXBhdGhAPuaCqOeahOaWh+S7 tuS/neWtmOebruW9lTxAL2ZpbGVwYXRoQD4= [/paralistvalue] [accountmod] RmFsc2U= [/accountmod] [usercodepage] [/usercodepage] [configs] eyJmaWxlc3VicGF0aCI6IiJ9 [/configs] [g_id] MjQ= [/g_id] [sn] OTk5OQ== [/sn]
（请使用 CTRL+A 和 CTRL+C 从上栏复制规则）