ASP内容管理系统FCMS4.0 sp4 新闻专用接口- 获取代码 -ET采集官方网站-自在工坊 EditorTools全自动无人值守采集软件

ASP内容管理系统FCMS4.0 sp4 新闻专用接口

前往检查接口

前往发布接口

前往发布规则

检查接口说明

4、可选参数
　　栏目ID：ClassId 使用此项则只在该栏目检查是否重复。

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

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

下载GBK检查接口文件

下载UTF-8检查接口文件

检查接口代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><br/> <% Option Explicit</p><p> <br/>  %><br/> <%session.CodePage="936"%><br/> <!--#include file="../../FS_Inc/Const.asp" --><br/> <!--#include file="../../FS_InterFace/MF_Function.asp" --><br/> <!--#include file="../../FS_Inc/Function.asp" --><br/> <!--#include file="../../FS_Inc/Func_Page.asp" --><br/> <%'Copyright (c) 2006 Foosun Inc. Code by awen<br/> Server.ScriptTimeOut=999<br/> Response.Buffer = True<br/> Response.Expires = -1<br/> Response.ExpiresAbsolute = Now() - 1<br/> Response.CacheControl = "no-cache"<br/> response.Charset = "gb2312"</p><p> Dim Conn,Old_News_Conn,User_Conn,Search_Sql,Search_RS,strShowErr,Cookie_Domain,Cookie_Copyright,Cookie_eMail,Cookie_Site_Name<br/> Dim Server_Name,Server_V1,Server_V2<br/> Dim TmpStr,TmpArr,SqlDateType,FileSize,FileEditDate,TmpStr1,TmpStr2<br/> Dim Keyword,s_type,SubSys,ClassId,s_date,e_date  ,GetType,AreaID,PubType<br/> Dim ChildDomain,ClassPath<br/> Dim LocalUrl,RDSqlDateType<br/> Dim MsMinPric,MsMaxPric<br/> Dim StringType<br/> IF G_IS_SQL_DB = 1 Then<br/>  StringType = "SubString"<br/> Else<br/>  StringType = "Mid"<br/> End If </p><p> <br/> ''日期<br/> If G_IS_SQL_DB = 1 Then  <br/>  SqlDateType = "'"<br/> else<br/>  SqlDateType = "#"<br/> end If</p><p> <br/> Keyword = NoHtmlHackInput(NoSqlHack(Replace(request("Keyword"),"'","''")))</p><p> ClassId = NoHtmlHackInput(NoSqlHack(Replace(request("ClassId"),"'","''")))</p><p> <br/> If Keyword = "" then <br/>  response.Write("[err]关键字不能为空[/err]")<br/>  response.End()<br/> else<br/>  <br/>  '===========================================<br/>  ''sql的处理<br/>  MF_Default_Conn</p><p>  Search_Sql = "select top 1 * from FS_NS_News A,FS_NS_NewsClass B where A.ClassID=B.ClassID and isLock=0 and isRecyle=0 and isdraft=0 and NewsTitle='"&Keyword&"' "<br/>  if ClassID<>"" then Search_Sql = and_where(Search_Sql) & Search_TextArr(ClassId,"A.ClassID","") <br/>  <br/>  'On Error Resume Next<br/>  Set Search_RS = CreateObject(G_FS_RS)<br/>  Search_RS.Open Search_Sql,Conn,1,1<br/>  if Err<>0 then <br/>   response.Write("[err]查询条件不匹配.无法继续.<br />"&Err.Number&":"&Err.description&"[/err]")<br/>   response.End()<br/>  end if<br/>  IF not Search_RS.eof then<br/>   response.Write("1")<br/>  Else<br/>   response.Write("0")<br/>  END IF<br/>  RsClose<br/>  </p><p> <br/> end if<br/> Sub RsClose()<br/>  Search_RS.Close<br/>  Set Search_RS = Nothing<br/> end Sub</p><p> <br/> Set Old_News_Conn = Nothing<br/> Set User_Conn = Nothing<br/> Set Conn = Nothing<br/> response.End()<br/> %>

发布接口说明

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

4、附加参数
ClassID 栏目ID
NewsType 文章类型（普通、图片、标题），取值分别为 TextNews、PicNews、TitleNews，默认TextNews
注：当文章类型为图片时，自动使用第一个图片为文章大、小图，如果文章里没有图片，文章类型自动改为普通

5、可选参数
SpecialID_EName 专题英文名
Templet 模板地址
PopID 权重，取值 0：一般，4：栏目置顶，5：总置顶，默认0
TitleColor 标题颜色，16进制表示，如ff0000为红色
TitleBorder 标题是否粗体显示，1为是
TitleItalic 标题是否斜体显示，1为是
isShowReview 是否显示评论连接，1为是
URLAddress 链接地址，文章类型为标题（即NewsType=TitleNews）时使用
KeywordText 关键字，多个关键字以英文逗号分隔
KeywordSaveTF 是否记忆关键字，1为是
Author 作者
AuthorSaveTF 是否记忆作者，1为是
Source 来源
SourceSaveTF 是否记忆来源，1为是
NewsNaviContent 新闻导读

NewsProperty_Rec 推荐，1为是
NewsProperty_mar 滚动，1为是
NewsProperty_rev 允许评论，1为是
NewsProperty_constr 投稿，1为是
NewsProperty_hots 热点，1为是
NewsProperty_jc 精彩，1为是
NewsProperty_unr 不规则，1为是
NewsProperty_ann 公告，1为是
NewsProperty_filt 幻灯，1为是

NewsProperty_tt 头条，1为是
TodayNewsPicTF 头条类型，当头条为1时生效，取值FoosunCMS为图片头条，留空为文字头条，默认为空
FontFace 头条参数-字体，图片头条时生效
FontSize 头条参数-字体大小，图片头条时生效
FontColor 头条参数-字体颜色，图片头条时生效
FontSpace 头条参数-文字间距，图片头条时生效
FontBgColor 头条参数-图片背景色，图片头条时生效
PicTitlewidth 头条参数-图片宽度，图片头条时生效

NewsProperty_Remote 是否远程存图，1为是
PointNumber 浏览点数
Money 金币
BrowPop 浏览权限
Hits 点击次数
addtime 添加日期
IsAdPic 是否显示画中画

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

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

下载GBK发布接口文件

下载UTF-8发布接口文件

发布接口代码

<% Option Explicit</p><p> %><br/> <!--#include file="../../FS_Inc/Const.asp" --><br/> <!--#include file="../../FS_Inc/Function.asp"--><br/> <!--#include file="../../FS_InterFace/MF_Function.asp" --><br/> <!--#include file="../../FS_InterFace/NS_Function.asp" --><br/> <!--#include file="lib/cls_main.asp" --><br/> <!--#include file="../../FS_InterFace/NS_Public.asp" --><br/> <!--#include file="../../FS_InterFace/MS_Public.asp" --><br/> <!--#include file="../../FS_InterFace/DS_Public.asp" --><br/> <!--#include file="../../FS_InterFace/ME_Public.asp" --><br/> <!--#include file="../../FS_InterFace/MF_Public.asp" --><br/> <!--#include file="../../FS_InterFace/SD_Public.asp" --><br/> <!--#include file="../../FS_InterFace/HS_Public.asp" --><br/> <!--#include file="../../FS_InterFace/AP_Public.asp" --><br/> <!--#include file="../../FS_InterFace/Other_Public.asp" --><br/> <!--#include file="../PublicSite/Public_Function.asp" --><br/> <%'Copyright (c)2006 by Foosun Inc. Code by Simpwind.Xie<br/>  Response.Buffer = True<br/>  Response.Expires = -1<br/>  Response.CacheControl = "no-cache"<br/>  Dim Conn,User_Conn,obj_Save_Rs,strShowErr,str_checkTF<br/>  MF_Default_Conn<br/>  MF_User_Conn<br/>  <br/> 'ET增加帐户登陆代码<br/> Function ETlogin<br/>  Dim p_RsLoginObj,p_RsLogObj<br/>  Dim p_UserName,p_UserPass,p_System,p_SqlLog,p_SqlLogin,p_Url,p_TempUserPass<br/>  Dim p_PassArr,p_TrueResult,p_CheckedResult,GetRamCode_adminCode<br/>  <br/>  GetRamCode_adminCode = GetRamCode(8)<br/>  p_UserName = NoSqlHack(Replace(Trim(Request.Form("Name")),"'","''"))<br/>  p_TempUserPass = Replace(Trim(Request.Form("Password")),"'","''")<br/>  if p_UserName = "" or  p_TempUserPass = "" then<br/>   Response.Write("[err]错误：请填写完整帐户密码[/err]")<br/>   Response.End<br/>  end if<br/>  Set p_RsLoginObj = server.CreateObject (G_FS_RS)<br/>  p_SqlLogin = "select Admin_Name,Admin_Pass_Word,Admin_Is_Locked,Admin_Parent_Admin,Admin_Is_Super,Admin_Pop_List,Admin_Add_Admin,Admin_Style_Num from FS_MF_Admin where Admin_Name='"&p_UserName&"'"<br/>  p_RsLoginObj.Open p_SqlLogin,Conn,1,1<br/>  if Not p_RsLoginObj.EOF then<br/>   if cint(p_RsLoginObj("Admin_Is_Locked")) = 1 then<br/>    Response.Write("[err]错误:\n您已经被锁定,请与管理联系[/err]")<br/>    Response.End<br/>   end if<br/>   Session("Admin_Name") = p_RsLoginObj("Admin_Name")<br/>   Session("Admin_Pass_Word") = p_RsLoginObj("Admin_Pass_Word")<br/>   Session("Admin_Parent_Admin") = p_RsLoginObj("Admin_Parent_Admin")<br/>   Session("Admin_Is_Super") = p_RsLoginObj("Admin_Is_Super")<br/>   Session("Admin_Pop_List") = p_RsLoginObj("Admin_Pop_List")<br/>   Session("Admin_Add_Admin") = p_RsLoginObj("Admin_Add_Admin")<br/>   Session("Admin_Style_Num") = p_RsLoginObj("Admin_Style_Num")<br/>   '更新随机码<br/>   Conn.execute("Update FS_MF_Admin Set admin_Code = '"& GetRamCode_adminCode &"' where Admin_Name='"& Session("Admin_Name") &"' and Admin_Pass_Word='"& Session("Admin_Pass_Word") &"'")<br/>   session("fs_admin_Code")= GetRamCode_adminCode<br/>   SubSys_Cookies:MFConfig_Cookies:NSConfig_Cookies:DSConfig_Cookies<br/>  else<br/>   Response.Write("[err]错误:\n请检查用户名和密码的正确性[/err]")<br/>   Response.End<br/>  end if<br/>  Set p_RsLoginObj = Nothing<br/> End Function</p><p> 'ET增加正则查询函数<br/> dim picpatrn<br/> picpatrn="<img [^>]*src *= *(?:""|')?([^""' ]+\.(?:gif|jpg|bmp|png))(?:""|'| |/>|>)+"<br/> Function Regone(patrn, strng)<br/>   Dim regEx, Matches,ms,RetStr      ' Create variable.<br/>   Set regEx = New RegExp         ' Create a regular expression.<br/>   RetStr=""<br/>   regEx.Pattern = patrn         ' Set pattern.<br/>   regEx.IgnoreCase = True         ' Set case insensitivity.<br/>   regEx.Global = false         ' Set global applicability.</p><p>   Set Matches = regEx.Execute(strng)   ' Execute search.</p><p>   if Matches.count>0 then<br/>    Set ms=Matches(0)<br/>  if not isnull(trim(ms.submatches(0))) then RetStr=trim(ms.submatches(0))<br/>   end if<br/>   Regone = RetStr<br/> End Function</p><p> <br/> '以上为ET增加代码</p><p>  ETlogin<br/>  <br/>  MF_Session_TF <br/>  set Fs_news = new Cls_News<br/>  Fs_News.GetSysParam()<br/>  'If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end<br/>  Dim Fs_news,str_News_Action,str_NewsType,str_isdraft,str_ClassID,str_SpecialEName,str_SpecialID_EName,str_NewsTitle,str_TitleColor,str_titleBorder,str_TitleItalic,str_isShowReview,str_PopID<br/>  Dim str_URLAddress,str_CurtTitle,str_KeyWords,str_KeywordSaveTF,str_Templet,str_NewsSmallPicFile,str_NewsPicFile,str_PicborderCss,str_Author,str_AuthorSaveTF,str_Source,str_SourceSaveTF<br/>  Dim str_NewsNaviContent,str_Content,str_PointNumber,str_Money,str_GroupID,str_FileName,str_FileExtName,str_addtime,str_Hits,str_NewsID,str_TodayNewsPicTF,str_isDraftTF,str_ReturnUrl,obj_isdraft_rs<br/>  Dim str_NewsProperty_Rec,str_NewsProperty_mar,str_NewsProperty_rev,str_NewsProperty_constr,str_NewsProperty_tt,str_NewsProperty_hots,str_NewsProperty_jc,str_NewsProperty_unr,str_NewsProperty_ann,str_NewsProperty_filt,str_NewsProperty_Remote<br/>  Dim str_NewsProperty_Rec_1,str_NewsProperty_mar_1,str_NewsProperty_rev_1,str_NewsProperty_constr_1,str_NewsProperty_tt_1 ,str_NewsProperty_hots_1,str_NewsProperty_jc_1,str_NewsProperty_unr_1,str_NewsProperty_ann_1,str_NewsProperty_filt_1,str_NewsProperty_Remote_1,IsAdPic,AdPicWH,AdPicLink,AdPicAdress<br/>  '(c)2002-2006 版权所有：Foosun Inc. 不得进行任何性质的程序拷贝、传播。By Foosun__Simpwind.Xie<br/>  <br/>  str_ClassID = Request.Form("ClassID")<br/>  str_FileExtName = Request.Form("FileExtName")<br/>  str_Templet =  Request.Form("Templet")</p><p>  If Trim(str_ClassID)="" then<br/>   'strShowErr = "<li>请选择栏目或您填写的栏目不正确</li>"<br/>   'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>   Response.Write("[err]请选择栏目或您填写的栏目ID不正确[/err]")<br/>   Response.end<br/>  End if<br/>  <br/>  <br/>  Dim tmp_class_obj,tmp_defineid,tmp_sTemplets<br/>  set tmp_class_obj = conn.execute("select FileExtName,NewsTemplet,DefineID from FS_NS_NewsClass where classID='"& str_ClassID &"'")<br/>  if tmp_class_obj.eof then<br/>   tmp_class_obj.close:set tmp_class_obj = nothing<br/>   response.Write "[err]错误的栏目ID,找不到栏目[/err]"<br/>   Response.end<br/>  end if<br/>  <br/>  if trim(str_FileExtName)="" then str_FileExtName=tmp_class_obj(0)</p><p>  tmp_sTemplets = tmp_class_obj(1)</p><p>  <br/>  if trim(str_Templet)="" then str_Templet=tmp_sTemplets</p><p>  tmp_defineid = tmp_class_obj(2)<br/>  set tmp_class_obj = nothing<br/>  <br/>  <br/>  If not tmp_defineid="" Then<br/>   If tmp_defineid>0 Then<br/>    Dim CustColumnRs,CustSql,CustColumnArr<br/>    CustSql="select DefineID,ClassID,D_Name,D_Coul,D_Type,D_isNull,D_Value,D_Content,D_SubType from [FS_MF_DefineTable] Where D_SubType='NS' and  Classid="&tmp_defineid &""<br/>    Set CustColumnRs=CreateObject(G_FS_RS)<br/>    CustColumnRs.Open CustSql,Conn,1,3<br/>    If Not CustColumnRs.Eof Then<br/>     CustColumnArr=CustColumnRs.GetRows()<br/>    End If<br/>    CustColumnRs.close:Set CustColumnRs = Nothing<br/>   End If<br/>  end if<br/>  '=====================================<br/>  'str_News_Action = Request.Form("News_Action")<br/>  str_News_Action =  "add_Save" </p><p>  if str_News_Action = "add_Save" then:str_NewsID = Fs_News.GetRamCode(15):Else:str_NewsID = Trim(Request.Form("NewsID")):End if<br/>  str_NewsType = Request.Form("NewsType")<br/>  if trim(str_NewsType)="" then str_NewsType="TextNews"<br/>  'str_isdraft = Request.Form("isdraft")<br/>  str_isdraft =""<br/> ' if str_isdraft<>"" then<br/> '  Set obj_isdraft_rs = server.CreateObject(G_FS_RS)<br/> '  obj_isdraft_rs.Open "Select ID from FS_NS_News where isdraft=1  Order by ID desc",Conn,1,3<br/> '  if obj_isdraft_rs.recordcount>20 then<br/> '   strShowErr = "<li>您的草稿箱中的"& Fs_news.allInfotitle&"已经超过20条信息，操作失败</li>"<br/> '   Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/> '   Response.end<br/> '  End if<br/> ' End if<br/>  <br/>  str_SpecialID_EName =  Request.Form("SpecialID_EName")<br/>  'str_SpecialEName = Request.Form("SpecialID")<br/>  str_NewsTitle= Request.Form("NewsTitle")<br/>  str_TitleColor = Request.Form("TitleColor")<br/>  str_titleBorder = Request.Form("titleBorder")<br/>  str_TitleItalic =  Request.Form("TitleItalic")<br/>  str_isShowReview = Request.Form("isShowReview")<br/>  str_PopID = Request.Form("PopID")<br/>  if trim(str_PopID)="" then str_PopID=0<br/>  <br/>  str_URLAddress = Request.Form("URLAddress")<br/>  str_CurtTitle = Request.Form("CurtTitle")<br/>  str_KeyWords =  Request.Form("KeywordText")<br/>  str_KeywordSaveTF =  Trim(Request.Form("KeywordSaveTF"))</p><p>  'str_NewsSmallPicFile =  Request.Form("NewsSmallPicFile")<br/>  'str_NewsPicFile =  Request.Form("NewsPicFile")<br/>  str_PicborderCss = Request.Form("PicborderCss")<br/>  str_Author = Request.Form("Author")<br/>  str_AuthorSaveTF= Request.Form("AuthorSaveTF")<br/>  str_Source = Request.Form("Source")<br/>  str_SourceSaveTF = Request.Form("SourceSaveTF")<br/>  str_NewsNaviContent = Request.Form("NewsNaviContent")</p><p>  str_Content = Request.Form("Content")</p><p>  <br/>  str_PointNumber = Request.Form("PointNumber")<br/>  str_Money = Request.Form("Money")<br/>  str_GroupID = Request.Form("BrowPop")<br/>  'str_FileName = Request.Form("FileName")<br/>  str_FileName = Fs_News.strFileNameRule(Fs_News.fileNameRule,0,0)<br/>  'str_addtime = Request.Form("addtime")<br/>  str_addtime = now()<br/>  str_Hits = Request.Form("Hits") <br/>  if trim(str_Hits)="" then str_Hits=0<br/>  <br/>  str_NewsProperty_Rec = Trim(Request.Form("NewsProperty_Rec")) <br/>  str_NewsProperty_mar = Trim(Request.Form("NewsProperty_mar")) <br/>  str_NewsProperty_rev = Trim(Request.Form("NewsProperty_rev")) <br/>  str_NewsProperty_constr =  Trim(Request.Form("NewsProperty_constr")) <br/>  str_NewsProperty_tt =   Trim(Request.Form("NewsProperty_tt")) <br/>  str_NewsProperty_hots=   Trim(Request.Form("NewsProperty_hots")) <br/>  str_NewsProperty_jc=   Trim(Request.Form("NewsProperty_jc")) <br/>  str_NewsProperty_unr = Trim(Request.Form("NewsProperty_unr")) <br/>  str_NewsProperty_ann = Trim(Request.Form("NewsProperty_ann")) <br/>  str_NewsProperty_filt = Trim(Request.Form("NewsProperty_filt")) <br/>  str_NewsProperty_Remote = Trim(Request.Form("NewsProperty_Remote")) <br/>  str_TodayNewsPicTF = Trim(Request.Form("TodayNewsPicTF")) <br/>  <br/>  IsAdPic = Request.Form("IsAdPic")<br/>  AdPicWH = Request.Form("AdPicWH")<br/>  AdPicLink = Request.Form("AdPicLink")<br/>  AdPicAdress =  Request.Form("AdPicAdress")<br/>  if IsAdPic<>0 and (trim(AdPicWH)="" or trim(AdPicAdress)="") then<br/>   Dim GetClassAdPicInfoRs,GetClassAdPicInfoSql<br/>   GetClassAdPicInfoSql="Select IsAdPic,AdPicWH,AdPicLink,AdPicAdress From FS_NS_NewsClass Where ClassID='"&str_ClassId&"'"<br/>   Set GetClassAdPicInfoRs=Conn.execute(GetClassAdPicInfoSql)<br/>   If Not GetClassAdPicInfoRs.Eof Then<br/>    IsAdPic=GetClassAdPicInfoRs("IsAdPic")<br/>    AdPicWH=GetClassAdPicInfoRs("AdPicWH")<br/>    AdPicLink=GetClassAdPicInfoRs("AdPicLink")<br/>    AdPicAdress=GetClassAdPicInfoRs("AdPicAdress")   <br/>   End If<br/>   GetClassAdPicInfoRs.Close<br/>   Set GetClassAdPicInfoSql=Nothing<br/>  end if<br/>  <br/>  <br/>  Set obj_Save_Rs = server.CreateObject(G_FS_RS)<br/>  '判断合法性<br/>  If Trim(str_NewsTitle)="" then<br/>   'strShowErr = "<li>请填写标题</li>"<br/>   'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>   Response.Write("[err]请填写标题[/err]")<br/>   Response.end<br/>  End if<br/>  '自定义字段检查（默认值，必填值）<br/>  '(c)2002-2006 版权所有：Foosun Inc. 不得进行任何性质的程序拷贝、传播。By Foosun__Simpwind.Xie <br/>  If IsArray(CustColumnArr) Then<br/>   For i = 0 to UBound(CustColumnArr,2)<br/>    If CustColumnArr(5,i)="0" Then<br/>     If Request.Form("FS_NS_Define_"&CustColumnArr(3,i))="" Then<br/>      'strShowErr = "<li>["&CustColumnArr(2,i)&"-自定义字段]不可以为空，请填写或设置默认值</li>"<br/>      'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>      Response.Write("[err]["&CustColumnArr(2,i)&"-自定义字段]不可以为空，请填写或设置默认值[/err]")<br/>      Response.end<br/>     End If<br/>     If CustColumnArr(4,i)="6" Then<br/>      If Not Isdate(Request.Form("FS_NS_Define_"&CustColumnArr(3,i))) Then<br/>       'strShowErr="<li>["&CustColumnArr(2,i)&"-自定义字段]必须为为日期，请重新填写！</li>"<br/>       'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>       Response.Write("[err]["&CustColumnArr(2,i)&"-自定义字段]必须为为日期，请重新填写！[/err]")<br/>       Response.end<br/>      End If<br/>     End If<br/>    End If<br/>    If CustColumnArr(4,i)="5" Then<br/>     If Not IsNumeric(Request.Form("FS_NS_Define_"&CustColumnArr(3,i))) Then<br/>      'strShowErr="<li>["&CustColumnArr(2,i)&"-自定义字段]必须为数字，请重新填写！</li>"<br/>      'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>      Response.Write("[err]["&CustColumnArr(2,i)&"-自定义字段]必须为数字，请重新填写！[/err]")<br/>      Response.end<br/>     End If<br/>    End If<br/>   Next<br/>  End If<br/>  if str_NewsType="TitleNews" then<br/>   If Trim(str_URLAddress)="" then<br/>    'strShowErr = "<li>选择外部栏目,请填写外部地址连接</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]选择外部栏目,请填写外部地址连接[/err]")<br/>    Response.end<br/>   End if<br/>  Else<br/>   If isNull(Trim(str_Templet))  or len(Trim(str_Templet))<5 then<br/>    'strShowErr = "<li>请正确填写模板地址</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]请正确填写模板地址[/err]")<br/>    Response.end<br/>   End if<br/>   If isNull(Trim(str_Content))  or len(Trim(str_Content))<3 then<br/>    'strShowErr = "<li>请填写内容</li><li>您填写的内容少于3个字符</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]请填写内容，您填写的内容少于3个字符[/err]")<br/>    Response.end<br/>   End if<br/>  str_NewsSmallPicFile=regone(picpatrn,str_Content)<br/>  if (str_NewsSmallPicFile="" and str_NewsType="PicNews") then str_NewsType="TextNews"<br/>  str_NewsPicFile =  str_NewsSmallPicFile<br/>   <br/>   <br/>   If isNull(Trim(str_FileName))  then<br/>    'strShowErr = "<li>文件名不正确，请填写正确</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]文件名不正确，请填写正确[/err]")<br/>    Response.end<br/>   End if<br/>   If isNull(Trim(str_addtime))  then<br/>    'strShowErr = "<li>请填写日期</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]请填写日期[/err]")<br/>    Response.end<br/>   End if<br/>   If isdate(Trim(str_addtime)) =false then<br/>    'strShowErr = "<li>请正确填写添加日期</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]请正确填写添加日期[/err]")<br/>    Response.end<br/>   End if<br/>   If isnull(Trim(str_FileName)) then<br/>    'strShowErr = "<li>请填写文件名</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]请填写文件名[/err]")<br/>    Response.end<br/>   End if<br/>   If isnumeric(Trim(str_hits)) =false then<br/>    'strShowErr = "<li>请正确填写点击率</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]请正确填写点击率[/err]")<br/>    Response.end<br/>   End if<br/>   if str_NewsType="PicNews" then<br/>    If isnull(Trim(str_NewsSmallPicFile))  or len(Trim(str_NewsSmallPicFile))<5 then<br/>     'strShowErr = "<li>请填写图片小图</li><li>请正确填写图片小图</li>"<br/>     'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>     Response.Write("[err]请填写图片小图，请正确填写图片小图[/err]")<br/>     Response.end<br/>    End if<br/>   End if<br/>   if Instr(str_FileName,"自动编号ID") =false and Instr(str_FileName,"唯一NewsID")=false then<br/>    if Not fs_news.chkinputchar(str_FileName) then<br/>      'strShowErr = "<li>文件名格式有错误</li><li>允许字符为：<br>&nbsp;&nbsp;&nbsp;&nbsp;大小写字母及@,.0123456789|-_</li>"<br/>      'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>      Response.Write("[err]文件名格式有错误，允许字符为：大小写字母及@,.0123456789|-_[/err]")<br/>      Response.end<br/>    End if<br/>     End if<br/>     If IsAdPic=1 Then<br/>     If AdPicWH="" or IsNull(AdPicWH) Then<br/>     'strShowErr = "<li>请填写图片高度与宽度</li>"<br/>     'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>     Response.Write("[err]请填写图片高度与宽度[/err]")<br/>     Response.end<br/>     End If<br/>   if instr(AdPicWH,",")=0 or instr(AdPicWH,"，")>0 then<br/>    'strShowErr = "<li>图片高度与宽度填写错误</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]图片高度与宽度填写错误[/err]")<br/>    Response.end<br/>   end if  <br/>     If Ubound(split(AdPicWH,","))<>3 Then<br/>    ' strShowErr = "<li>图片高度与宽度,显示布局格式,插入位置有误，格式为100,200,1,400</li>"<br/>     'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>     Response.Write("[err]图片高度与宽度,显示布局格式,插入位置有误，格式为100,200,1,400[/err]")<br/>     Response.end<br/>     End If<br/>     If Not IsNumeric(split(AdPicWH,",")(3)) Then<br/>    'strShowErr = "<li>插入位置格式有误，应为正整数</li>"<br/>    'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>    Response.Write("[err]图片插入位置格式有误，应为正整数[/err]")<br/>    Response.end<br/>     End If<br/>     If split(AdPicWH,",")(3)<0 Then <br/>    ' strShowErr = "<li>插入位置格式有误，应为正整数</li>"<br/>     'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>     Response.Write("[err]图片插入位置格式有误，应为正整数[/err]")<br/>     Response.end<br/>     End If<br/>     If AdPicAdress="" Or IsNull(AdPicAdress) Then<br/>     'strShowErr = "<li>图片地址不能为空</li>"<br/>     'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>     Response.Write("[err]图片地址不能为空[/err]")<br/>     Response.end<br/>     End If<br/>     End If<br/>  End if<br/> ' if str_News_Action = "add_Save" then<br/>   '判断是否有添加权限<br/>   if not Get_SubPop_TF(str_ClassID,"NS001","NS","news") then Err_Show<br/>   Set obj_Save_Rs=Server.CreateObject(G_FS_RS)<br/>   obj_Save_Rs.Open "Select * from FS_NS_News where NewsID='"& str_NewsID &"'",Conn,1,3<br/>   if Not obj_Save_Rs.eof then<br/>     'strShowErr = "<li>NewsID意外重复，请重新添加</li>"<br/>     'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>      Response.Write("[err]NewsID意外重复，请重新添加[/err]")<br/>     Response.end<br/>   End if<br/>   '判断文件名是否重复<br/>   Dim tmp_filename_rs<br/>   set tmp_filename_rs = Conn.execute("select ID From FS_NS_News where ClassID ='"& str_ClassID &"' and FileName='"& str_FileName &"' and FileExtName='"& str_FileExtName &"' order by id desc")<br/>   if Not tmp_filename_rs.eof then<br/>     'strShowErr = "<li>文件名重复</li>"<br/>     'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>      Response.Write("[err]文件名重复[/err]")<br/>     Response.end<br/>   End if<br/>   tmp_filename_rs.close:set tmp_filename_rs = nothing<br/>   obj_Save_Rs.addnew<br/>   obj_Save_Rs("NewsID") = str_NewsID<br/>   obj_Save_Rs("SaveNewsPath") = Fs_news.SaveNewsPath(Fs_news.fileDirRule)<br/> ' Elseif str_News_Action = "Edit_Save" then<br/> '  '判断是否有修改权限<br/> '  if not Get_SubPop_TF(str_ClassID,"NS002","NS","news") then Err_Show<br/> '  obj_Save_Rs.Open "Select * from FS_NS_News where NewsID='"& str_NewsID &"'",Conn,1,3<br/> ' End if<br/>  <br/>  '生成图片头条,有待修正<br/>  Dim str_FontSize,str_FontSpace,str_FontColor,str_FontBgColor,FontFace,PicTitle,str_PicTitle,str_Picwidth<br/>  str_FontSize = Request.Form("FontSize")<br/>  str_FontSpace = Request.Form("FontSpace")<br/>  str_FontColor = Request.Form("FontColor")<br/>  str_FontBgColor = Request.Form("FontBgColor")<br/>  PicTitle = Request.Form("PicTitle")<br/>  if PicTitle = "" then<br/>   str_PicTitle = str_NewsTitle<br/>  else<br/>   str_PicTitle = PicTitle<br/>  end if<br/>  str_Picwidth = Request.Form("PicTitlewidth")<br/>  FontFace =  Request.Form("FontFace")<br/>  If str_TodayNewsPicTF = "FoosunCMS" Then<br/>   '图片地址：TempSysRootDir&TmpClassInfo(7) &"/"& TmpClassInfo(2)&NewsPath<br/>   Dim NumCanvasWidth,NumCanvasHeight,StrSavePath,TodayClassEName,TempSysRootDir<br/>   if str_picwidth = "" then<br/>    NumCanvasWidth =CInt(GetStrLengthE(str_PicTitle))*Cint(str_FontSize)<br/>   else<br/>    NumCanvasWidth =CInt(str_Picwidth)<br/>   end if<br/>   NumCanvasHeight = str_FontSize<br/>   if trim(G_VIRTUAL_ROOT_DIR) = "" then<br/>    TempSysRootDir = ""<br/>   else<br/>    TempSysRootDir = "/"&G_VIRTUAL_ROOT_DIR<br/>   end if<br/>   TodayClassEName=Conn.Execute("select ClassEName From FS_NS_NewsClass Where ClassID='" & str_ClassID & "'")(0)<br/>   StrSavePath=Server.MapPath(TempSysRootDir & "/Files/TodayPicFiles/"& str_NewsID & ".jpg")<br/>     '得到水印组件类型<br/>   Dim tmp_returnvalue<br/>   Select Case request.Cookies("FoosunMFCookies")("FoosunMFPicClassid")<br/>    Case "0"<br/>     tmp_returnvalue = AspJpegCreateTextPic(NumCanvasWidth,NumCanvasHeight,"&H"&str_FontBgColor,0,str_FontColor,FontFace,0,str_FontSize,str_PicTitle,0,StrSavePath)<br/>    Case "1"<br/>     tmp_returnvalue = WsImgWatermarkText(NumCanvasWidth,NumCanvasHeight,"&H"&str_FontColor&"&",FontFace,str_FontSize,0,0,0,str_NewsTitle,StrSavePath)<br/>    Case "2"<br/>     NumCanvasWidth = CInt(GetStrLengthE(str_NewsTitle))*(Cint(str_FontSize))<br/>     tmp_returnvalue = ImageGenCreateTextPic(NumCanvasWidth,NumCanvasHeight,rgb(HexToDec(left(str_FontBgColor,2)),HexToDec(mid(str_FontBgColor,3,2)),HexToDec(right(str_FontBgColor,2))),rgb(HexToDec(left(str_FontColor,2)),HexToDec(mid(str_FontColor,3,2)),HexToDec(right(str_FontColor,2))),FontFace,str_FontSize,str_NewsTitle,0,0,StrSavePath)   <br/>   End Select<br/>   if tmp_returnvalue then<br/>    Call saveTody()<br/>   else<br/>    str_TodayNewsPicTF = ""<br/>   end if<br/>  End If  <br/>  <br/>  '开始插入或者更新数据<br/>  if trim(str_GroupID)<>"" or str_PointNumber <>"" or str_Money<>"" then <br/>   if trim(str_FileExtName)<>"asp" then<br/>     'strShowErr = "<li>您设置了浏览权限，扩展名必须为.asp</li>"<br/>     'Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")<br/>      Response.Write("[err]您设置了浏览权限，扩展名必须为.asp[/err]")<br/>     Response.end<br/>   End if<br/>  End if<br/>  obj_Save_Rs("PopId") = str_PopId<br/>  obj_Save_Rs("ClassID") = str_ClassID<br/>  obj_Save_Rs("SpecialEName") = str_SpecialID_EName<br/>  obj_Save_Rs("NewsTitle") = str_NewsTitle<br/>  obj_Save_Rs("NewsNaviContent") = str_NewsNaviContent<br/>  if str_isShowReview<>"" then:obj_Save_Rs("isShowReview") = 1:Else:obj_Save_Rs("isShowReview") = 0:End if<br/>  obj_Save_Rs("TitleColor") = str_TitleColor<br/>  if str_titleBorder <>"" then:obj_Save_Rs("titleBorder") = 1:Else:obj_Save_Rs("titleBorder") = 0:End if <br/>  if str_TitleItalic <>"" then:obj_Save_Rs("TitleItalic") = 1:Else:obj_Save_Rs("TitleItalic") = 0:End if <br/>  if str_NewsType="TitleNews" then<br/>   obj_Save_Rs("URLAddress") = str_URLAddress<br/>   obj_Save_Rs("IsURL") = 1 <br/>   obj_Save_Rs("NewsPicFile") = str_NewsPicFile<br/>   obj_Save_Rs("NewsSmallPicFile") = str_NewsSmallPicFile<br/>  Else <br/>   obj_Save_Rs("IsURL") = 0 <br/>   obj_Save_Rs("CurtTitle") = str_CurtTitle<br/>   dim sys_Config,Save_Content,inside_rs ,Remote_Content,config_domain,config_insideLink<br/>   set sys_Config = Conn.execute("select top 1 IsDomain,InsideLink From FS_NS_SysParam")<br/>   config_domain = sys_Config("isDomain")<br/>   config_insideLink = sys_Config("insideLink")<br/>   sys_Config.close:set sys_Config=nothing<br/>   if config_domain="" then<br/>    config_domain = request.Cookies("FoosunMFCookies")("FoosunMFDomain")<br/>   else<br/>    config_domain = config_domain<br/>   end if<br/>   Dim TempForVar<br/>   '分批保存新闻内容入数据库<br/>   Save_Content = ""<br/>   For TempForVar = 1 To Request.Form("Content").Count<br/>    Save_Content = Save_Content & Request.Form("Content")(TempForVar)<br/>   Next<br/>   '如果开启远程保存，此处需要引入远程保存函数<br/>   if Request.Form("NewsProperty_Remote")<>"" then   <br/>    if instr(Lcase(Save_Content),"<img")>0 then<br/>     CreateDateDir(Server.MapPath(Replace("/"&G_VIRTUAL_ROOT_DIR&"/"&G_UP_FILES_DIR&"/Remoteupfile","//","/")))<br/>     Remote_Content = ReplaceRemoteUrl(Save_Content,replace("/" & G_VIRTUAL_ROOT_DIR &"/"&G_UP_FILES_DIR & "/Remoteupfile/"&year(Now())&"-"&month(now())&"/"&day(Now()),"//","/"),"http://"&config_domain,replace("/"&G_VIRTUAL_ROOT_DIR,"//","/"))<br/>    else<br/>     Remote_Content =Save_Content<br/>    end if<br/>    else<br/>     Remote_Content =Save_Content<br/>    end if<br/>   ''--------------------------------------自动分页的处理 <br/>    '' G_FS_Page_Txtlength  [FS:PAGE]<br/>   if request.Form("ClearAllPage")="1" then Remote_Content = replace(Remote_Content,"[FS:PAGE]","")<br/>   Remote_Content = AutoSplitPages(Remote_Content,"[FS:PAGE]",G_FS_Page_Txtlength)<br/>   ''--------------------------------------<br/>   obj_Save_Rs("Content") = Remote_Content<br/>   '远程保存结束<br/>   if str_NewsType="PicNews" then:obj_Save_Rs("isPicNews") = 1:Else:obj_Save_Rs("isPicNews") = 0:End if<br/>   obj_Save_Rs("NewsPicFile") = str_NewsPicFile<br/>   obj_Save_Rs("NewsSmallPicFile") = str_NewsSmallPicFile<br/>   obj_Save_Rs("PicborderCss") = str_PicborderCss<br/>   obj_Save_Rs("Templet") = str_Templet<br/>   if Trim(str_GroupID)<>"" or Trim(str_PointNumber)<>"" or Trim(str_Money)<>"" then:obj_Save_Rs("isPop") =1:else:obj_Save_Rs("isPop")=0:End if<br/>   obj_Save_Rs("Source") = str_Source<br/>   obj_Save_Rs("Keywords") = str_Keywords<br/>   obj_Save_Rs("Author") = str_Author<br/>   obj_Save_Rs("Hits") = clng(str_Hits)<br/>   obj_Save_Rs("FileName") = str_FileName<br/>   obj_Save_Rs("FileExtName") = str_FileExtName<br/>  End if<br/>   if str_TodayNewsPicTF <> "" then:obj_Save_Rs("TodayNewsPic") = 1:Else:obj_Save_Rs("TodayNewsPic") = 0:End if<br/>   obj_Save_Rs("Editor") = Session("Admin_Name")<br/>  if Fs_News.isCheck = 1 then<br/>   obj_Save_Rs("isLock") = 1<br/>   str_checkTF=true<br/>  Else<br/>   Dim obj_lockTF,tmp_definedid_class<br/>   Set obj_lockTF=conn.execute("select  NewsCheck,DefineID From FS_NS_NewsClass Where ClassID='"& str_ClassID &"'")<br/>   if obj_lockTF("NewsCheck") = 1 then<br/>    obj_Save_Rs("isLock") = 1<br/>    str_checkTF=true<br/>   Else<br/>    obj_Save_Rs("isLock") = 0<br/>    str_checkTF=false<br/>   End if<br/>   tmp_definedid_class = obj_lockTF(1)<br/>   obj_lockTF.close:set obj_lockTF = nothing<br/>  End if<br/>  '得到新闻类型参数 <br/>  if str_NewsProperty_Rec <>"" then:str_NewsProperty_Rec_1 = 1:else:str_NewsProperty_Rec_1 = 0:End if<br/>  if str_NewsProperty_mar <>"" then:str_NewsProperty_mar_1 = 1:else:str_NewsProperty_mar_1 = 0:End if<br/>  if str_NewsProperty_rev <>"" then:str_NewsProperty_rev_1 = 1:else:str_NewsProperty_rev_1 = 0:End if<br/>  if str_NewsProperty_constr <>"" then:str_NewsProperty_constr_1 = 1:else:str_NewsProperty_constr_1 = 0:End if<br/>  if str_NewsProperty_tt <>"" then:str_NewsProperty_tt_1 = 1:else:str_NewsProperty_tt_1 = 0:End if<br/>  if str_NewsProperty_hots <>"" then:str_NewsProperty_hots_1 = 1:else:str_NewsProperty_hots_1 = 0:End if<br/>  if str_NewsProperty_jc <>"" then:str_NewsProperty_jc_1 = 1:else:str_NewsProperty_jc_1 = 0:End if<br/>  if str_NewsProperty_unr <>"" then:str_NewsProperty_unr_1 = 1:else:str_NewsProperty_unr_1 = 0:End if<br/>  if str_NewsProperty_ann <>"" then:str_NewsProperty_ann_1 = 1:else:str_NewsProperty_ann_1 = 0:End if<br/>  if str_NewsProperty_filt <>"" then:str_NewsProperty_filt_1 = 1:else:str_NewsProperty_filt_1 = 0:End if<br/>  if str_NewsProperty_Remote <>"" then:str_NewsProperty_Remote_1 = 1:else:str_NewsProperty_Remote_1 = 0:End if<br/>  obj_Save_Rs("NewsProperty") = str_NewsProperty_Rec_1&","&str_NewsProperty_mar_1&","&str_NewsProperty_rev_1&","&str_NewsProperty_constr_1&","&str_NewsProperty_Remote_1&","&str_NewsProperty_tt_1&","&str_NewsProperty_hots_1&","&str_NewsProperty_jc_1&","&str_NewsProperty_unr_1&","&str_NewsProperty_ann_1&","&str_NewsProperty_filt_1<br/>  obj_Save_Rs("isRecyle") = 0<br/>  obj_Save_Rs("addtime") = str_addtime<br/>  '辅助字段信息保存<br/>  '(c)2002-2006 版权所有：Foosun Inc. 不得进行任何性质的程序拷贝、传播。By Foosun__Simpwind.Xie <br/> ' if str_News_Action = "add_Save" then<br/>   dim obj_c_rs,i <br/>   If IsArray(CustColumnArr) Then<br/>    set obj_c_rs = Server.CreateObject(G_FS_RS)<br/>    obj_c_rs.open "select * From [FS_MF_DefineData] where 1=2",Conn,1,3<br/>    For i = 0 to UBound(CustColumnArr,2)<br/>     If Request.Form("FS_NS_Define_"&CustColumnArr(3,i))<>"" Then<br/>      obj_c_rs.Addnew<br/>      obj_c_rs("InfoType") = "NS"<br/>      obj_c_rs("InfoID") = str_NewsID<br/>      obj_c_rs("TableEName") =CustColumnArr(3,i)<br/>      obj_c_rs("ColumnValue")=Request.Form("FS_NS_Define_"&CustColumnArr(3,i))<br/>      obj_c_rs.Update<br/>     End If<br/>    Next<br/>    obj_c_rs.Close:Set obj_c_rs = nothing<br/>   End If<br/> ' else<br/>   'CustSql="select DefineID,ClassID,D_Name,D_Coul,D_Type,D_isNull,D_Value,D_Content,D_SubType from [FS_MF_DefineTable] Where D_SubType='NS' and  Classid="& trim(Request.Form("d_Id")) &""<br/> '  If IsArray(CustColumnArr) Then<br/> '   Dim SaveAuxiSql<br/> '   For i = 0 to Ubound(CustColumnArr,2)<br/> '    set obj_c_rs = Server.CreateObject(G_FS_RS)<br/> '    SaveAuxiSql="select * From [FS_MF_DefineData] where InfoID='"&str_NewsID&"' and TableEName='" & CustColumnArr(3,i) & "' and InfoType='NS'"<br/> '    obj_c_rs.Open SaveAuxiSql,Conn,1,3<br/> '    If obj_c_rs.Eof Then<br/> '     If Request.Form("FS_NS_Define_"&CustColumnArr(3,i))<>"" Then<br/> '      obj_c_rs.Addnew<br/> '      obj_c_rs("InfoType") = "NS"<br/> '      obj_c_rs("TableEName")=CustColumnArr(3,i)<br/> '      obj_c_rs("ColumnValue")=Request.Form("FS_NS_Define_"&CustColumnArr(3,i))<br/> '      obj_c_rs("InfoID") = str_NewsID<br/> '      obj_c_rs.Update<br/> '     End If<br/> '    Else<br/> '     obj_c_rs("ColumnValue")=Request.Form("FS_NS_Define_"&CustColumnArr(3,i))<br/> '     obj_c_rs.Update<br/> '    End If<br/> '    obj_c_rs.Close:set obj_c_rs=nothing<br/> '   Next<br/> '  End If<br/> ' end if<br/>  if Trim(str_isdraft)<>"" then:obj_Save_Rs("isdraft")=1:else:obj_Save_Rs("isdraft")=0:end if<br/>  <br/>  If IsAdPic=1 Then<br/>   obj_Save_Rs("IsAdPic")=1<br/>   obj_Save_Rs("AdPicWH")=AdPicWH<br/>   obj_Save_Rs("AdPicLink")=AdPicLink<br/>   obj_Save_Rs("AdPicAdress")=AdPicAdress<br/>  Else<br/>   obj_Save_Rs("IsAdPic")=0<br/>  End If<br/>  obj_Save_Rs.update<br/>  Dim Get_News_ID,rssql '取自动编号ID<br/>  if G_IS_SQL_DB = 0 then<br/>   Get_News_ID = obj_Save_Rs("ID")<br/>  Else<br/>   set rssql = Conn.execute("select top 1 id from FS_NS_News order by id desc")<br/>   Get_News_ID = rssql(0)<br/>   rssql.close:set rssql = nothing<br/>  End if<br/>  obj_Save_Rs.close:set obj_Save_Rs = nothing <br/>  if str_NewsType<>"TitleNews" then<br/>   '开始保存关键字，作者，来源等  <br/>   Dim obj_save_Gener_Rs,obj_save_Gener_Rs1,obj_save_Gener_Rs2,obj_TF_Rs,tmp<br/>   if str_KeywordSaveTF <>"" then<br/>    for each tmp in split(Trim(Request.Form("KeywordText")),",")<br/>      if tmp <> "" then <br/>      Set obj_save_Gener_Rs=server.CreateObject(G_FS_RS)<br/>        obj_save_Gener_Rs.open "select Gid,G_Type,G_Name From [FS_NS_General] where G_Type=1 and G_Name='"&tmp&"'",Conn,1,3<br/>        If obj_save_Gener_Rs.eof Then<br/>       obj_save_Gener_Rs.Addnew<br/>       obj_save_Gener_Rs("G_Name") = tmp<br/>       obj_save_Gener_Rs("G_Type") = 1<br/>       obj_save_Gener_Rs.Update<br/>        End If<br/>        obj_save_Gener_Rs.Close:set obj_save_Gener_Rs = nothing<br/>      end if<br/>    next<br/>   End if<br/>   '保存作者<br/>   if str_AuthorSaveTF <>"" then<br/>    Set obj_save_Gener_Rs1=server.CreateObject(G_FS_RS)<br/>    obj_save_Gener_Rs1.Open "select Gid,G_Type,G_Name from FS_NS_General where G_Type=3 and G_Name='"& Trim(Request.Form("Author")) &"'",Conn,3,3<br/>    if obj_save_Gener_Rs1.eof then:obj_save_Gener_Rs1.addnew:obj_save_Gener_Rs1("G_Type") =3:obj_save_Gener_Rs1("G_Name") = Request.Form("Author"):obj_save_Gener_Rs1.update:end if:set obj_save_Gener_Rs1 = nothing<br/>   End if<br/>   '保存来源<br/>   if str_SourceSaveTF <>"" then<br/>    Set obj_save_Gener_Rs2=server.CreateObject(G_FS_RS)<br/>    obj_save_Gener_Rs2.Open "select Gid,G_Type,G_Name from FS_NS_General where G_Type=2 and G_Name='"& Trim(Request.Form("Source")) &"'",Conn,3,3<br/>    if obj_save_Gener_Rs2.eof then:obj_save_Gener_Rs2.addnew:obj_save_Gener_Rs2("G_Type") =2:obj_save_Gener_Rs2("G_Name") = Request.Form("Source"):obj_save_Gener_Rs2.update:end if:set obj_save_Gener_Rs2 = nothing<br/>   End if<br/>   '如果生成文件名规则中有：新闻自动编号ID <br/>   Dim TempRsObj<br/>   If Instr(str_FileName,"自动编号ID") Then<br/>    str_FileName = Replace(str_FileName,"自动编号ID",Get_News_ID)<br/>    Set TempRsObj=server.CreateObject(G_FS_RS)<br/>    TempRsObj.open "select FileName From [Fs_NS_News] where NewsID='"&str_NewsID&"' and ID="&Clng(Get_News_ID)&"",Conn,1,3<br/>    if not TempRsObj.eof Then<br/>     TempRsObj("FileName") = Replace(TempRsObj("FileName"),"自动编号ID",Get_News_ID)<br/>     TempRsObj.update<br/>    End If<br/>    TempRsObj.Close<br/>   End IF<br/>   Dim TempRsObj_1<br/>   If Instr(str_FileName,"唯一NewsID") Then<br/>    str_FileName = Replace(str_FileName,"唯一NewsID",str_NewsID)<br/>    Set TempRsObj_1=server.CreateObject(G_FS_RS)<br/>    TempRsObj_1.open "select FileName From [Fs_NS_News] where NewsID='"&str_NewsID&"'",Conn,1,3<br/>    if not TempRsObj_1.eof Then<br/>     TempRsObj_1("FileName") = Replace(TempRsObj_1("FileName"),"唯一NewsID",str_NewsID)<br/>     TempRsObj_1.update<br/>    End If<br/>    TempRsObj_1.Close<br/>   End IF<br/>  End if<br/>  if Trim(str_GroupID) <>"" or str_PointNumber <> "" or str_Money<>"" then <br/>   Dim obj_insert_rs<br/>   set obj_insert_rs = Server.CreateObject(G_FS_RS)<br/>   if str_News_Action = "add_Save" then<br/>    obj_insert_rs.Open "select  GroupName,PointNumber,FS_Money,InfoID,PopType,isClass From FS_MF_POP",Conn,1,3<br/>    obj_insert_rs.addnew<br/>   Elseif str_News_Action = "Edit_Save" then<br/>    obj_insert_rs.Open "select  GroupName,PointNumber,FS_Money,InfoID,PopType,isClass From FS_MF_POP where InfoID='"& str_NewsID &"' and PopType='NS' and isClass=0",Conn,1,3<br/>    if obj_insert_rs.eof then<br/>     obj_insert_rs.addnew<br/>    end if<br/>   End if<br/>   obj_insert_rs("GroupName")=str_GroupID<br/>   if str_PointNumber <>""  then:obj_insert_rs("PointNumber")=str_PointNumber:Else:obj_insert_rs("PointNumber")=0:End if<br/>   if str_Money <>"" then:obj_insert_rs("FS_Money")=str_Money:Else:obj_insert_rs("FS_Money")=0:End if<br/>   obj_insert_rs("InfoID")=str_NewsID<br/>   obj_insert_rs("PopType")="NS"<br/>   obj_insert_rs("isClass")=0<br/>   obj_insert_rs.update<br/>   obj_insert_rs.close:set obj_insert_rs = nothing<br/>  End if<br/>  '保存图片头条,插入数据库<br/>  sub saveTody()<br/>   if str_TodayNewsPicTF<>"" then<br/>    dim insertTodayPicobj<br/>    set insertTodayPicobj = Server.CreateObject(G_FS_RS)<br/>    insertTodayPicobj.open "select * From FS_NS_TodayPic where NewsId='"& str_NewsID &"'",Conn,1,3<br/>    if  insertTodayPicobj.eof then<br/>     insertTodayPicobj.addnew<br/>     insertTodayPicobj("NewsID")= str_NewsID<br/>     insertTodayPicobj("TodayPic_font")= Request.Form("FontFace")<br/>     insertTodayPicobj("TodayPic_size")= Request.Form("FontSize")<br/>     insertTodayPicobj("TodayPic_color")= Request.Form("FontColor")<br/>     insertTodayPicobj("TodayPic_space")= Request.Form("FontSpace")<br/>     insertTodayPicobj("TodayPic_PicColor")= Request.Form("FontBgColor")<br/>     insertTodayPicobj("ClassID")= str_ClassID<br/>     insertTodayPicobj("TodayPic_SavePath")= str_NewsID<br/>     insertTodayPicobj("TodayTitle")= Request.Form("PicTitle")<br/>     if not isnumeric(Request.Form("PicTitlewidth")) then<br/>      insertTodayPicobj("Todaywidth")= 300<br/>     else<br/>      insertTodayPicobj("Todaywidth")= clng(Request.Form("PicTitlewidth"))<br/>     end if<br/>     insertTodayPicobj("addtime")= now<br/>     insertTodayPicobj.update<br/>     insertTodayPicobj.close:set insertTodayPicobj = nothing<br/>    Else<br/>     insertTodayPicobj("TodayPic_font")= Request.Form("FontFace")<br/>     insertTodayPicobj("TodayPic_size")= Request.Form("FontSize")<br/>     insertTodayPicobj("TodayPic_color")= Request.Form("FontColor")<br/>     insertTodayPicobj("TodayPic_space")= Request.Form("FontSpace")<br/>     insertTodayPicobj("TodayPic_PicColor")= Request.Form("FontBgColor")<br/>     insertTodayPicobj("TodayPic_SavePath")= str_NewsID <br/>     insertTodayPicobj("addtime")= now<br/>     insertTodayPicobj("TodayTitle")= Request.Form("PicTitle")<br/>     if not isnumeric(Request.Form("PicTitlewidth")) then<br/>      insertTodayPicobj("Todaywidth")= 300<br/>     else<br/>      insertTodayPicobj("Todaywidth")= clng(Request.Form("PicTitlewidth"))<br/>     end if<br/>     insertTodayPicobj.update<br/>     insertTodayPicobj.close:set insertTodayPicobj = nothing<br/>    End if<br/>   End if<br/>  end sub<br/>  '生成静态文件开始<br/>  <br/>  If Not str_NewsType="TitleNews" Then<br/>   Call Refresh("NS_news",Get_News_ID)<br/>  End If<br/>  '*****保留<br/> ' if Trim(str_isdraft)<>"" then<br/> '  str_isDraftTF="<li>"& Fs_news.allInfotitle &"已经保存到草稿箱中</li><li>"& Fs_news.allInfotitle &"未发布</li>"<br/> '  str_ReturnUrl ="../News_MyFolder.asp?Action=draft"<br/> ' else<br/> '  if str_News_Action = "Edit_Save" then<br/> '   str_isDraftTF=""<br/> '  Else<br/> '   str_isDraftTF="<li>"& Fs_news.allInfotitle &"添加成功!</li>"<br/> '  End if<br/> '  str_ReturnUrl = "../news_Manage.asp?ClassID="&str_ClassID&""<br/> ' end if<br/> ' if str_News_Action = "add_Save" then<br/>   if str_checkTF = true then<br/>    strShowErr = ""& str_isDraftTF &"<li>系统设置(或者栏目)为需要审核后才能发布到前台</li><br><li><a href=""../News_Add.asp?ClassID="& str_ClassID &"""><b>继续添加</b></a>&nbsp;&nbsp;<b><a href=../News_Edit.asp?ClassID="&str_Classid&"&NewsID="&str_NewsID&"><font color=red>返回编辑 </font></a></b>&nbsp;&nbsp;<a href=""../News_Manage.asp?ClassID="& str_ClassID &"""><b>返回管理</b></a></li>"<br/>   Else<br/>    'strShowErr = ""& str_isDraftTF &"<br><li><a href=""../News_Add.asp?ClassID="& str_ClassID &"""><b>继续添加</b></a>&nbsp;&nbsp;<b><a href=../News_Edit.asp?ClassID="&str_ClassID&"&NewsID="&str_NewsID&"><font color=red>返回编辑 </font></a></b>&nbsp;&nbsp;<a href=""../News_Manage.asp?ClassID="& str_ClassID &"""><b>返回管理</b></a></li>"<br/>   End if<br/>   if str_TodayNewsPicTF<>"" then<br/>    If tmp_returnvalue = False Then<br/>     strShowErr = ""& str_isDraftTF &"<li>新闻添加成功</li><li><font color=red>注意：头条图片生成失败,没有开启水印组件或者水印组件异常!!</font></li><br><li><a href=""../News_Add.asp?ClassID="& str_ClassID &"""><b>继续添加</b></a>&nbsp;&nbsp;<b><a href=../News_Edit.asp?ClassID="&str_ClassID&"&NewsID="&str_NewsID&"><font color=red>返回编辑 </font></a></b>&nbsp;&nbsp;<a href=""../News_Manage.asp?ClassID="& str_ClassID &"""><b>返回管理</b></a></li>"<br/>    End If <br/>   end if<br/> ' Elseif str_News_Action = "Edit_Save" then<br/> '  strShowErr = ""& str_isDraftTF &"<li>修改成功!!</li><li><a href=""../News_Edit.asp?NewsID="& str_NewsID &"&ClassID="&str_ClassID&"""><b>继续修改新闻??</b></a>&nbsp;&nbsp;<a href=""../News_Manage.asp?ClassID="& str_ClassID &"""><b>返回新闻管理??</b></a></li>"<br/> '  if str_TodayNewsPicTF<>"" then<br/> '   If tmp_returnvalue = False Then<br/> '    strShowErr = ""& str_isDraftTF &"<li>修改成功</li><li><font color=red>注意：头条图片生成失败,没有开启水印组件或者水印组件异常!!</font></li><li><a href=""../News_Edit.asp?NewsID="& str_NewsID &"&ClassID="&str_ClassID&"""><b>继续修改新闻??</b></a>&nbsp;&nbsp;<a href=""../News_Manage.asp?ClassID="& str_ClassID &"""><b>返回新闻管理??</b></a></li>"<br/> '   End If <br/> '  end if<br/> ' End if<br/>  'Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl="& str_ReturnUrl &"")<br/>  Response.Write("1"&strShowErr&"")<br/>  Response.end<br/> %><br/> <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->

发布规则使用说明

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

ET采集2发布规则范例

# ET发布规则文本<br/> # 发布规则名称：Fcms 4.0 sp4<br/> # 版本号：2.0.721 beta<br/> # 生成时间：2009-09-30 21:26:32<br/> #<br/> [name]<br/> RmNtcyA0LjAgc3A0<br/> [/name]<br/> [urlchk]<br/> aHR0cDovL8T6tcTN+Na3L2FkbWluL25ld3MvRVRjaGsuYXNwP2tleXdvcmQ9PCV0aXRsZSU+<br/> [/urlchk]<br/> [urlpost]<br/> aHR0cDovL8T6tcTN+Na3L2FkbWluL25ld3MvRVRwb3N0LmFzcA==<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/> TmV3c1RpdGxl<br/> [/ptitle]<br/> [pcontent]<br/> Q29udGVudA==<br/> [/pcontent]<br/> [puser]<br/> bmFtZQ==<br/> [/puser]<br/> [ppsw]<br/> cGFzc3dvcmQ=<br/> [/ppsw]<br/> [para1]<br/> Q2xhc3NJRD3E+rXEwLjEv0lE<br/> [/para1]<br/> [userlist]<br/> 1cu6xTE9w9zC6zENCtXLusUyPcPcwusy<br/> [/userlist]<br/> [paralist]<br/> udi8/NfWPUtleXdvcmRUZXh0DQrX99XfPUF1dGhvcg0KzsTVwsC01LQ9U291cmNlDQrOxNXC1arS<br/> qj1OZXdzTmF2aUNvbnRlbnQ=<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/> TmV3c1RpdGxlDQpDb250ZW50<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 从上栏复制规则）

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