新云newasp 4.0.0sp2文章模块频道通用接口- 获取代码 -ET采集官方网站-自在工坊 EditorTools全自动无人值守采集软件

新云newasp 4.0.0sp2文章模块频道通用接口

检查接口说明

4、发布配置-文章检查网址处，可以如下填写：
　　http://您的网址/admin/article/etchk.asp?vercode=&title=<%title%>&classid=您的栏目ID&ChannelID=1
　　注：使用大小写敏感的服务器的用户请注意网址大小写和网站文件一致

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

下载GBK检查接口文件

下载UTF-8检查接口文件

检查接口代码

<!--#include file="../../conn.asp"-->
<%
'=====================================================================
'安全校验码
dim vercode

vercode=""   '此处取值请自行修改，必须与发布规则的检查网址中vercode参数一致

if vercode<>trim(request("vercode")) then
 response.Write("[err]invalid vercode[/err]")
 response.End()
end if

'=====================================================================
%>
<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/const.asp"-->
<%

Dim InstallDir_ChannelDir,Channel_Setting
If ChannelID=0 Then
 ChannelID=1
Else
 InstallDir_ChannelDir = Trim(NewAsp.InstallDir & NewAsp.ChannelDir)
 Channel_Setting = Split(NewAsp.Channel_Setting & "|||||||||||||||", "|||")
End If

'替换article const.asp 结束

'Admin_header
Dim maxperpage,totalrec,Pcount,pagelinks,pagenow
Dim classid,SQLQuery,SQLField,searchTopic,searchmode,searchfield,fieldName
Dim ChildData,ischild,childstr,Keyword,searchMaxResult,ArryWords()
Keyword = NewAsp.CheckStr(Trim(Request("title")))
searchfield = 0

If Len(Keyword)>1 Then
 Call showmain()
else
 response.Write("[err]no title[/err]")
End If
'Admin_footer
NewAsp.PageEnd

Sub showmain()
 classid=NewAsp.ChkNumeric(Request("classid"))

 If classid>0 Then
  ChildData=NewAsp.GetChildData(ChannelID,classid,0)
  childstr=ChildData(0)
  ischild=CLng(ChildData(2))
 End If
 if searchTopicList>0 then
  response.Write("[yes]")
 else
  response.Write("[no]") 
 end if
 searchTopic=Null
End Sub

function searchTopicList()
 Dim Rs,SQL,i,iCount,ArryKeyword
 totalrec=0
 Select Case searchfield
  Case 0:fieldName="A.Title"
  Case 1:fieldName="A.username"
  Case 2:fieldName="A.Author"
  Case 3:fieldName="A.ComeFrom"
  Case 9:fieldName="A.Taglist"
  Case Else
   fieldName="A.Title"
 End Select
' If Len(Keyword)>1 Then
  SQLQuery = ""&fieldName&" = '"&Keyword&"'"

  If Len(SQLQuery) >10 Then SQLQuery=" And ("&SQLQuery&")" Else SQLQuery=""
  If classid>0 Then
   If ischild>0 Then
    SQLQuery=" And A.isAccept=1 And A.classid in (" & childstr & ") "&SQLQuery
   Else
    SQLQuery=" And A.isAccept=1 And A.classid="&classid&" "&SQLQuery
   End If
  Else
   SQLQuery=" And A.isAccept=1 "&SQLQuery
  End If

  If Not IsObject(Conn) Then ConnectionDatabase
  Set Rs=NewAsp.CreateAXObject("ADODB.Recordset")
  SQL="SELECT count(*) as Rcount FROM [NC_Article] A  WHERE A.ChannelID=" &ChannelID& " "&SQLQuery
  'response.Write(SQL)
  Rs.Open SQL,Conn,1,1
  searchTopicList=Rs("Rcount")
  Rs.close()
  Set Rs=Nothing
' End If

End function



%>

发布接口说明

注：以下参数名后“=”号为示范取值而用，参数名本身不含“=”号；
　　固定取值的参数，可以在发布规则-参数取值中设置；
　　采集取值的参数项，请在发布规则-发布项中添加；

3、主要参数
　　AdminName　　　　会员名参数名
　　PassWord　　　　　密码参数名
　　title　　　　　　主题标题参数名
　　content　　　　　内容参数名

4、附加参数
　　ChannelID=您的频道ID 频道ID，应与检查网址参数中的ChannelID保持一致
　　ClassID=您的分类ID　分类ID，必填，可在网站后台分类管理处查看该id；
　　SpecialID=　　　　　专题ID，可不填，可在网站后台专题管理处查看该id；
　　vercode=　　　　　安全校验码，请自行设定，并在发布接口文件开始处修改vercode使其一致；
　　isAccept=1 是否立即发布，1为是，0为否；

5、可选参数

　　isTop= 是否文章置顶，1为是，0为否；
　　isBest= 是否文章推荐，1为是，0为否；
　　ForbidEssay= 是否禁止发表评论，1为是，0为否；
BriefTopic= 话题ID，默认0，1=图文，2=组图，3=新闻，4=推荐，5=注意，6=转载；
ColorMode= 标题颜色ID，取值请参看文章管理-添加文章；
FontMode= 标题字体ID，取值请参看文章管理-添加文章；
subtitle= 副标题；
Related= 相关文章；
Author= 作者，默认“佚名”；
ComeFrom= 文章来源，默认“本站整理”；
Tagstring= 文章Tags，多个用空格分隔；
ImageUrl= 缩略图文件地址；
UserGroup= 浏览等级ID，默认0为匿名用户，其他取值请参看文章管理-添加文章；
PointNum= 浏览点数，默认0；
AllHits= 初始点击数，默认0；
good= 用户好评，默认0；
bad= 用户差评，默认0；
star= 文章星级，默认3，取值1-5；
AutoPages=1 分页设置，默认1为自动分页，0为手动分页，手动分页标签为小写 [page_break] ；
OuterLinks= 外部链接URL；

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

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

下载GBK发布接口文件

下载UTF-8发布接口文件

发布接口代码

<!--#include file="../../conn.asp"-->
<%
'=====================================================================
'安全校验码
dim vercode

vercode=""   '此处取值请自行修改，必须与发布规则的检查网址中vercode参数一致

if vercode<>trim(request("vercode")) then
 response.Write("[err]invalid vercode[/err]")
 response.End()
end if

'=====================================================================
%>


<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/const.asp"-->
<%
'替换inc/check.asp 开始
'zzcity add 登录模块
Dim adminname
if chklogin<>"" then
 response.Write(chklogin)
 response.End()
end if

function chklogin()
 Dim Rs,SQL
 Dim  RandomCode
 adminname = Newasp.CheckBadstr(Request("adminname"))

 If Not IsObject(Conn) Then ConnectionDatabase
 Set Rs = NewAsp.CreateAXObject("ADODB.Recordset")
 SQL = "SELECT * FROM NC_Admin WHERE  username='" & adminname & "'"
 Rs.Open SQL, Conn, 1, 3
 If Rs.BOF And Rs.EOF Then
  chklogin="[err]您输入的用户名和密码不正确或者您不是系统管理员。[/err]"
  Exit function
 Else
  If Rs("isLock") <> 0 Or Rs("isLock") = "" Then
   chklogin="[err]你的用户名已被锁定,你不能登陆！如要开通此帐号，请联系管理员。[/err]"
   Exit function
  End If
  RandomCode = NewAsp.GetRandomCode(16)
  Rs("LoginTime") = Now()
  Rs("Loginip") = NewAsp.UserTrueIP
  Rs("RandomCode") = RandomCode
  Rs.Update
  If FoundErr = False Then
   Session(AdminSessionName & "_AdminName") = Rs("username")
   Session(AdminSessionName & "_AdminPass") = Rs("password")
   Session(AdminSessionName & "_AdminGrade") = Rs("AdminGrade")
   Session(AdminSessionName & "_Adminflag") = Rs("Adminflag")
   Session(AdminSessionName & "_AdminStatus") = Rs("Status")
   Session(AdminSessionName & "_AdminRandomCode") = RandomCode
   Session(AdminSessionName & "_AdminID") = Rs("id")
   Session.Timeout=45
   If IsAdminValidate Then
    Session(AdminSessionName & "_validate") = Trim(Request.Form("validate"))
   End If
'   If UseAdminCookies Then
'    Response.Cookies(AdminCookiesName).path = "/"
'    Response.Cookies(AdminCookiesName)("AdminName") = Rs("username")
'    Response.Cookies(AdminCookiesName)("AdminPass") = Rs("password")
'    Response.Cookies(AdminCookiesName)("AdminGrade") = Rs("AdminGrade")
'    Response.Cookies(AdminCookiesName)("Adminflag") = Rs("Adminflag")
'    Response.Cookies(AdminCookiesName)("AdminStatus") = Rs("Status")
'    Response.Cookies(AdminCookiesName)("RandomCode") = RandomCode
'    Response.Cookies(AdminCookiesName)("AdminID") = Rs("id")
'    If IsAdminValidate Then
'     Response.Cookies(AdminCookiesName)("validate") = Trim(Request.Form("validate"))
'    End If
'   End If
  End If
 End If
 Rs.Close:Set Rs = Nothing
End function
'替换inc/check.asp 结束

Dim InstallDir_ChannelDir,Channel_Setting
If ChannelID=0 Then
 ChannelID=1
Else
 InstallDir_ChannelDir = Trim(NewAsp.InstallDir & NewAsp.ChannelDir)
 Channel_Setting = Split(NewAsp.Channel_Setting & "|||||||||||||||", "|||")
End If

'If Not ChkAdmin("Article_"&ChannelID) Then
' Call Transfer_error()
'End If

'替换article const.asp 结束
'< !--#include file="../../inc/ubbcode.asp"-->
%>
<!--#include file="../inc/cls_tags.asp"-->
<!--#include file="../inc/common.asp"-->
<!--#include file="../../common/news/show.asp"-->


<%
'Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewAsp. Content Management System Version 4.0
' 文件名称：admin_save.asp
' 更新日期：2008-06-16
' 官方网站：新云网络(www.NewAsp.net www.NewAsp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2008 NewAsp.net - All Rights Reserved.
' NewAsp. is a trademark of NewAsp.net
'=====================================================================
Dim Action,TextContent,ArticleTop,ArticleBest,ForbidEssay,ArticleAccept
'If Not ChkAdmin("PostArticle_"&ChannelID) Then
' Call Transfer_error()
'End If
'Action = LCase(Request("action"))
Action = "save"
'Select Case Trim(Action)
'Case "save"
 Call SaveNewArticle()
'Case "modify"
' Call ModifyArticle()
'Case Else
' 'Call showmain
'End Select

If FoundErr = True Then
 'response.Write(ErrMsg)
End If
'Admin_footer
'SaveLogInfo(AdminName)
NewAsp.PageEnd

Sub AddUpdateTags(act)
 Tag.ChannelID=ChannelID
 Tag.Modules=NewAsp.Modules
 Tag.classid=NewAsp.CheckNumeric(Request.Form("ClassID"))
 Tag.Taghits=NewAsp.CheckNumeric(Request.Form("AllHits"))
 Tag.IsBest=NewAsp.ChkNumeric(Request.Form("IsBest"))
 Tag.IsTop=NewAsp.ChkNumeric(Request.Form("isTop"))
 Tag.TagString=Trim(Request.Form("Tagstring"))
 Tag.tagList=Trim(Request.Form("Taglist"))
 If act=1 Then
  Tag.AddNewTags()
 Else
  Tag.UpdateTags()
 End If
 Taglist=Tag.tagList&"|"&Tag.checkTagString(Request.Form("Tagstring"))
End Sub

Sub SaveNewArticle()
 '替换checksave
 Dim ColorMode,FontMode,Author,ComeFrom,PointNum,star,UserGroup,SpecialID,AllHits,WriteTime
 If Trim(Request("title")) = "" Then
  FoundErr = True
  ErrMsg = ErrMsg + "[err]标题不能为空！[/err]"
  Exit Sub
 End If
 If Len(Request("title")) => 200 Then
  FoundErr = True
  ErrMsg = ErrMsg + "[err]标题不能超过200个字符！[/err]"
  Exit Sub
 End If
 
 ColorMode=NewAsp.ChkNumeric(Trim(Request.Form("ColorMode")))
 FontMode=NewAsp.ChkNumeric(Trim(Request.Form("FontMode")))
 If Len(Request.Form("Related")) => 220 Then
  FoundErr = True
  ErrMsg = ErrMsg + "[err]相关" & NewAsp.ModuleName & "不能超过220个字符！[/err]"
  Exit Sub
 End If
 Author= Trim(Request.Form("Author"))
 If Author = "" Then
  Author="佚名"
 End If
 ComeFrom=Trim(Request.Form("ComeFrom"))
 If ComeFrom = "" Then
  ComeFrom="本站整理"
 End If
 PointNum=NewAsp.ChkNumeric(Trim(Request.Form("PointNum")))
 star=NewAsp.ChkNumeric(Request.Form("star"))
 If star=0 Then
  star=3
 End If
 UserGroup=NewAsp.ChkNumeric(Request.Form("UserGroup"))
 If Not IsNumeric(Request.Form("ClassID")) Then
  FoundErr = True
  ErrMsg = ErrMsg + "[err]缺少分类ID，不能添加" & NewAsp.ModuleName & "！[/err]"
  Exit Sub
 End If
 If Trim(Request.Form("ClassID")) = "0" Then
  FoundErr = True
  ErrMsg = ErrMsg + "[err]该分类是外部连接，不能添加" & NewAsp.ModuleName & "！[/err]"
  Exit Sub
 End If
 AllHits=NewAsp.ChkNumeric(Trim(Request.Form("AllHits")))
 If Not IsNumeric(AllHits) Then
  FoundErr = True
  ErrMsg = ErrMsg + "[err]初始点击数请输入整数！[/err]"
  Exit Sub
 End If
 SpecialID=NewAsp.ChkNumeric(Request.Form("SpecialID"))
 WriteTime=Trim(Request.Form("WriteTime"))
 If WriteTime= "" Then
  WriteTime=now()
 End If
 TextContent = Request("content")
 If Trim(TextContent) = "" Then
  FoundErr = True
  ErrMsg = ErrMsg + "[err]要添加的内容不能为空！[/err]"
  Exit Sub
 End If
' If NewAsp.setAdminEditor(0) <> 0 Then
'  TextContent = NewAsp.HTMLEncodes(TextContent)
' End If
 TextContent = CheckHtmlCode(Re_Replace(TextContent, InstallDir_ChannelDir, "[InstallDir_ChannelDir]"))

 ArticleTop = NewAsp.ChkNumeric(Request.Form("isTop"))
 ArticleBest = NewAsp.ChkNumeric(Request.Form("isBest"))
 ForbidEssay = NewAsp.ChkNumeric(Request.Form("ForbidEssay"))
 ArticleAccept = NewAsp.ChkNumeric(Request.Form("isAccept"))
 

 Dim Rs,SQL
 If Founderr = True Then Exit Sub
 'Call AddUpdateTags(1)
 Tag.ChannelID=ChannelID
 Tag.Modules=NewAsp.Modules
 Tag.classid=NewAsp.CheckNumeric(Request.Form("ClassID"))
 Tag.Taghits=AllHits
 Tag.IsBest=NewAsp.ChkNumeric(Request.Form("IsBest"))
 Tag.IsTop=NewAsp.ChkNumeric(Request.Form("isTop"))
 Tag.TagString=Trim(Request.Form("Tagstring"))
 Tag.tagList=Trim(Request.Form("Taglist"))
' If act=1 Then
  Tag.AddNewTags()
' Else
'  Tag.UpdateTags()
' End If
 Taglist=Tag.tagList&"|"&Tag.checkTagString(Request.Form("Tagstring"))
 
 
 Set Rs = NewAsp.CreateAXObject("ADODB.Recordset")
 SQL = "SELECT * FROM NC_Article WHERE (ArticleID is null)"
 Rs.Open SQL,Conn,1,3
 Rs.Addnew
  Rs("ChannelID") = ChannelID
  Rs("ClassID") = NewAsp.ChkNumeric(Request.Form("classid"))
  Rs("SpecialID") = SpecialID
  Rs("title") = NewAsp.RequestForm(Request.Form("title"),255)
  Rs("subtitle") = NewAsp.RequestForm(Request.Form("subtitle"),255)
  Rs("ColorMode") = ColorMode
  Rs("FontMode") = FontMode
  Rs("content") = TextContent
  Rs("OuterLinks") = NewAsp.RequestForm(Request.Form("OuterLinks"),255)
  Rs("Related") = NewAsp.RequestForm(Request.Form("Related"),255)
  Rs("Author") = NewAsp.RequestForm(Author,50)
  Rs("ComeFrom") = NewAsp.RequestForm(ComeFrom,50)
  
  Rs("star") = star
  Rs("isTop") = ArticleTop
  Rs("AllHits") = AllHits
  Rs("DayHits") = AllHits
  Rs("WeekHits") =AllHits
  Rs("MonthHits") = AllHits
  Rs("HitsTime") = Now()
  Rs("WriteTime") = Formatime(WriteTime)
  Rs("HtmlFileDate") = Trim(NewAsp.HtmlRndFileName)
  Rs("username") = Trim(AdminName)
  Rs("isBest") = ArticleBest
  Rs("BriefTopic") = NewAsp.ChkNumeric(Request.Form("BriefTopic"))
  Rs("ImageUrl") = Trim(Request.Form("ImageUrl"))
  Rs("UploadImage") = Trim(Request.Form("UploadFileList"))

  Rs("UserGroup") = UserGroup
  Rs("PointNum") = PointNum
  Rs("isUpdate") = 1
  Rs("isAccept") = ArticleAccept
  Rs("ForbidEssay") = ForbidEssay
  Rs("AlphaIndex") = NewAsp.ReadAlpha(ubb.CheckSpecialChar(Request.Form("title")))
  Rs("AutoPages") = NewAsp.ChkNumeric(Request.Form("AutoPages"))
  Rs("good") = NewAsp.CheckNumeric(Request.Form("good"))
  Rs("bad") = NewAsp.CheckNumeric(Request.Form("bad"))
  Rs("Taglist")=Taglist
 Rs.update
 Rs.Close
 
 Rs.Open "SELECT TOP 1 ArticleID FROM NC_Article WHERE ChannelID=" & ChannelID & " ORDER BY ArticleID DESC", Conn, 1, 1
 ArticleID = Rs("ArticleID")
 Rs.Close:Set Rs = Nothing
 ClassUpdateCount NewAsp.ChkNumeric(Request.Form("classid")),1
 Call RemoveCache
' --生成HTML
 
 If CInt(NewAsp.IsCreateHtml) <> 0 Then
  Call BeginCreated(ArticleID)
 
  SQL = "SELECT TOP 1 ArticleID FROM NC_Article WHERE ChannelID=" & ChannelID & " And isAccept <> 0 And ArticleID < " & ArticleID & " ORDER BY ArticleID DESC"
  Set Rs = NewAsp.Execute(SQL)
  If Not (Rs.EOF And Rs.BOF) Then
   Call BeginCreated(Rs("ArticleID"))

  End If
  Rs.Close
  Set Rs = Nothing
 End If

 response.Write("[ok]")
End Sub

'Sub CheckSave()
' Dim i
' If Trim(Request.Form("title")) = "" Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]标题不能为空！[/err]"
' End If
' If Len(Request.Form("title")) => 200 Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]标题不能超过200个字符！[/err]"
' End If
' If Trim(Request.Form("ColorMode")) = "" Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "<li>标题颜色参数错误！</li>"
' End If
'
' If Trim(Request.Form("FontMode")) = "" Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]标题字体参数错误！[/err]"
' End If
' If Len(Request.Form("Related")) => 220 Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]相关" & NewAsp.ModuleName & "不能超过220个字符！[/err]"
' End If
' If Trim(Request.Form("Author")) = "" Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]" & NewAsp.ModuleName & "作者不能为空！[/err]"
' End If
' If Trim(Request.Form("ComeFrom")) = "" Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]" & NewAsp.ModuleName & "来源不能为空！[/err]"
' End If
' If Trim(Request.Form("PointNum")) = "" Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]阅览所需的点数不能为空！如果不想设置请输入零。[/err]"
' End If
' If Not IsNumeric(Request.Form("star")) Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]推荐星级不能为空。[/err]"
' End If
' If Not IsNumeric(Request.Form("UserGroup")) Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]阅览等级参数错误！[/err]"
' End If
' If Not IsNumeric(Request.Form("ClassID")) Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]该一级分类已经有下属分类，不能添加" & NewAsp.ModuleName & "！[/err]"
'  Exit Sub
' End If
' If Trim(Request.Form("ClassID")) = 0 Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]该分类是外部连接，不能添加" & NewAsp.ModuleName & "！[/err]"
' End If
' If Trim(Request.Form("AllHits")) = "" Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]初始点击数不能为空！[/err]"
' End If
' If Not IsNumeric(Request("AllHits")) Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]初始点击数请输入整数！[/err]"
'  Exit Sub
' End If
' If Not IsNumeric(Request("SpecialID")) Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]专题ID参数错误！[/err]"
'  Exit Sub
' End If
' TextContent = ""
' For i = 1 To Request.Form("content").Count
'  TextContent = TextContent & Request.Form("content")(i)
' Next
' If Trim(TextContent) = "" Then
'  FoundErr = True
'  ErrMsg = ErrMsg + "[err]要添加的内容不能为空！[/err]"
' End If
' If NewAsp.setAdminEditor(0) <> 0 Then
'  TextContent = NewAsp.HTMLEncodes(TextContent)
' End If
' TextContent = CheckHtmlCode(Re_Replace(TextContent, InstallDir_ChannelDir, "[InstallDir_ChannelDir]"))
'
' ArticleTop = NewAsp.ChkNumeric(Request.Form("isTop"))
' ArticleBest = NewAsp.ChkNumeric(Request.Form("isBest"))
' ForbidEssay = NewAsp.ChkNumeric(Request.Form("ForbidEssay"))
' ArticleAccept = NewAsp.ChkNumeric(Request.Form("isAccept"))
'End Sub

Function AddUserPointNum(username,stype)
 On Error Resume Next
 Dim rsuser,GroupSetting,userpoint
 Set rsuser = NewAsp.Execute("SELECT userid,UserGrade,userpoint FROM NC_User WHERE username='"& username &"'")
 If Not(rsuser.BOF And rsuser.EOF) Then
  GroupSetting = Split(NewAsp.UserGroupSetting(rsuser("UserGrade")), "|||")(9)
  If stype = 1 Then
   userpoint = CLng(rsuser("userpoint") + GroupSetting)
   NewAsp.Execute ("UPDATE NC_User SET userpoint="& userpoint &",experience=experience+2,charm=charm+1 WHERE userid="& rsuser("userid"))
  Else
   userpoint = CLng(rsuser("userpoint") - GroupSetting)
   NewAsp.Execute ("UPDATE NC_User SET userpoint="& userpoint &",experience=experience-2,charm=charm-1 WHERE userid="& rsuser("userid"))
  End If
 End If
 Set rsuser = Nothing
End Function

Function ClassUpdateCount(sortid,stype)
 Dim rscount,Parentstr
 On Error Resume Next
 Set rscount = NewAsp.Execute("SELECT ClassID,Parentstr FROM [NC_Classify] WHERE ChannelID=" & ChannelID & " And ClassID=" & CLng(sortid))
 If Not (rscount.BOF And rscount.EOF) Then
  Parentstr = rscount("Parentstr") &","& rscount("ClassID")
  If CInt(stype) = 1 Then
   NewAsp.Execute ("UPDATE [NC_Classify] SET ShowCount=ShowCount+1,isUpdate=1 WHERE ChannelID="& ChannelID &" And ClassID in (" & Parentstr & ")")
  ElseIf stype = 2 Then
   NewAsp.Execute ("UPDATE [NC_Classify] SET isUpdate=1 WHERE ChannelID="& ChannelID &" And ClassID in (" & Parentstr & ")")
  Else
   NewAsp.Execute ("UPDATE [NC_Classify] SET ShowCount=ShowCount-1,isUpdate=1 WHERE ChannelID="& ChannelID &" And ClassID in (" & Parentstr & ")")
  End If
 End If
 Set rscount = Nothing
End Function

Sub RemoveCache()
 RemoveAppCache "statistic_news"
 RemoveLabelCache 1
End Sub
'-------------------HTML
Sub BeginCreated(AID)
  IsNowOutputText = False
'  If showid=0 Then
'   ArticleID=NewAsp.ChkNumeric(Request("id"))
'   CurrentPage=NewAsp.ChkNumeric(Request("page"))
'   If ArticleID=0 Then ArticleID=NewAsp.ChkNumeric(Request("ArticleID"))
'  Else
'   ArticleID=NewAsp.ChkNumeric(showid)
'  End If
  ArticleID=NewAsp.ChkNumeric(AID)
  IsOutTags=False
  If CurrentPage=0 Then CurrentPage=1
  iBackCount=0:iNextCount=0:Pcount=1
  ubb.BasePath = NewAsp.ChannelPath
  ubb.setUbbcode = Join(NewAsp.setUserEditor,"|")
  ubb.Keyword = NewAsp.KeywordList
 
  PageMode=NewAsp.ChkNumeric(TPL_Config(27))
 
  LoadArticleData()
 
  TPL_FileName=Check_TPL_File(TPL_FilePath,"show",ArticleID,classid)
  HtmlContent = NewAsp.LoadTemplate(TPL_FilePath&"\"&TPL_FileName)
  HtmlContent = Replace(HtmlContent, "{$pagetitle}", Replace(m_strTitle, "{$", "{ $"))
  HtmlContent = Replace(HtmlContent, "{$channelid}", ChannelID)
  HtmlContent = Replace(HtmlContent, "{$classid}", classid)
  HtmlContent = Replace(HtmlContent, "{$articleid}", ArticleID)
  HtmlContent = Replace(HtmlContent, "{$postid}", ArticleID)
  HtmlContent = Replace(HtmlContent, "{$channeldir}", NewAsp.ChannelPath)
  TPL_Scan HtmlContent
  Set XMLDom = Nothing : Set dataNode = Nothing
  HtmlFilePath=NewAsp.CheckHtmlFilePath(HtmlFileName)
  NewAsp.CreatPathEx HtmlFilePath
  NewAsp.CreatedTextFile HtmlFileName,TPL_Memory
  TPL_Memory=""
  If IsObject(TPL_XmlDom) Then Set TPL_XmlDom=Nothing 
End Sub
%>

发布规则使用说明

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

ET采集2发布规则范例

# ET发布规则文本
# 发布规则名称：Newasp 4.0.0 sp2 文章模块
# 版本号：2.0.9.3
# 生成时间：2010-05-04 21:04:16
#
[name]
TmV3YXNwIDQuMC4wIHNwMiDOxNXCxKO/6Q==
[/name]
[urlchk]
aHR0cDovL8T6tcTN+NW+L2FkbWluL2FydGljbGUvZXRjaGsuYXNwP3ZlcmNvZGU9JmNsYXNzaWQ9
xPq1xMa1tcDEv0lEJnRpdGxlPTwldGl0bGUlPg==
[/urlchk]
[urlpost]
aHR0cDovL8T6tcTN+NW+L2FkbWluL2FydGljbGUvZXRwb3N0LmFzcA==
[/urlpost]
[urlreply]
aHR0cDovLw==
[/urlreply]
[isreply]
RmFsc2U=
[/isreply]
[len_t_s]
NQ==
[/len_t_s]
[len_t_l]
ODA=
[/len_t_l]
[len_c_s]
NTA=
[/len_c_s]
[len_c_l]
MTAwMDA=
[/len_c_l]
[ptitle]
dGl0bGU=
[/ptitle]
[pcontent]
Y29udGVudA==
[/pcontent]
[puser]
QWRtaW5OYW1l
[/puser]
[ppsw]
UGFzc1dvcmQ=
[/ppsw]
[para1]
Q2hhbm5lbElEPcT6tcTGtbXASUQNCkNsYXNzSUQ9xPq1xLfWwOBJRA0KU3BlY2lhbElEPQ0KdmVy
Y29kZT0NCmlzQWNjZXB0PTE=
[/para1]
[userlist]
udzA7dSx1cu6xT253MDt1LHD3MLr
[/userlist]
[paralist]
1/fV3z1BdXRob3INCs7E1cLAtNS0PUNvbWVGcm9tDQpUYWdzPVRhZ3N0cmluZw0KuLGx6sziPXN1
YnRpdGxlDQrL9cLUzbw9SW1hZ2VVcmw=
[/paralist]
[ftp]
RmFsc2U=
[/ftp]
[ftpserver]

[/ftpserver]
[ftpport]
MjE=
[/ftpport]
[ftpuser]

[/ftpuser]
[ftppsw]

[/ftppsw]
[ftppasv]
RmFsc2U=
[/ftppasv]
[ymupdir]
VHJ1ZQ==
[/ymupdir]
[codepage]
MA==
[/codepage]
[translang]
MA==
[/translang]
[transparas]
dGl0bGUNCmNvbnRlbnQ=
[/transparas]
[pathfile]

[/pathfile]
[urlfile]
L2FydGljbGUvVXBsb2FkUGlj
[/urlfile]
[pfiles]

[/pfiles]
[psurl]

[/psurl]
[isloginpost]
RmFsc2U=
[/isloginpost]
[postcookies]

[/postcookies]
[postokcode]

[/postokcode]
[postaddurl]

[/postaddurl]
[isubb]
RmFsc2U=
[/isubb]
[iscrlf]
RmFsc2U=
[/iscrlf]
[sn]
OTk5OQ==
[/sn]
[g_id]
NQ==
[/g_id]

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

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