<%'容错处理 function article_to_html(a_id) On Error Resume Next %> <% '首页基本信息内容读取替换 set rs=server.createobject("adodb.recordset") sql="select web_name,web_url,web_image,web_title,web_keywords,web_contact,web_tel,web_TopHTML,web_BottomHTML,web_description,web_copyright,web_theme from web_settings" rs.open(sql),cn,1,1 if not rs.eof and not rs.bof then web_name=rs("web_name") web_url=rs("web_url") web_image=rs("web_image") web_title=rs("web_title") web_keywords=rs("web_keywords") web_description=rs("web_description") web_copyright=rs("web_copyright") web_theme=rs("web_theme") web_consult=rs("web_contact") web_TopHTML=rs("web_TopHTML") web_BottomHTML=rs("web_BottomHTML") web_tel=rs("web_tel") end if rs.close set rs=nothing %> <% '搜索文件夹获取 set rs_1=server.createobject("adodb.recordset") sql="select FileName,FolderName from web_Models_type where [id]=35" rs_1.open(sql),cn,1,1 if not rs_1.eof and rs_1("FolderName")<>"" then Search_FolderName="/"&rs_1("FolderName") end if rs_1.close set rs_1=nothing '模板类型获取 set rs_1=server.createobject("adodb.recordset") sql="select FileName,FolderName from web_Models_type where [id]=5" rs_1.open(sql),cn,1,1 if not rs_1.eof then Model_FileName=rs_1("FileName") if rs_1("FolderName")<>"" then Model_FolderName="/"&rs_1("FolderName") ArticleContent_FolderName="/"&rs_1("FolderName") end if end if rs_1.close set rs_1=nothing %><% '底部导航 web_BottomMenu="" set rs=server.createobject("adodb.recordset") sql="select [name],[url],[image] from web_menu_type where BottomNav=1 order by [order]" rs.open(sql),cn,1,1 if not rs.eof then for i=1 to rs.recordcount web_BottomMenu=web_BottomMenu&"
  • "&rs("name")&"
  • " rs.movenext next end if rs.close set rs=nothing '顶部导航 web_TopMenu="" set rs=server.createobject("adodb.recordset") sql="select * from web_menu_type where TopNav=1 order by [order]" rs.open(sql),cn,1,1 if not rs.eof then web_TopMenu=web_TopMenu&"" end if rs.close set rs=nothing '新闻动态 set rs=server.createobject("adodb.recordset") sql="select top 1 [id] from [category] where ClassType=1 and ppid=1 order by [order]" rs.open(sql),cn,1,1 if not rs.eof then NewsID=rs("id") end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sql="select top 5 title,content,file_path,[url],time from [article] where cid='"&NewsID&"' and view_yes=1 and ArticleType=1 order by [time] desc" rs.open(sql),cn,1,1 if not rs.eof and not rs.bof then Block01_LeftItem=Block01_LeftItem&"
    " for i=1 to 5 rs_url="" if rs("url")<>"" then rs_url=rs("url") else rs_url=ArticleContent_FolderName&"/"&rs("file_path") end if Block01_LeftItem=Block01_LeftItem&"
    "&year(rs("time"))&"/"&month(rs("time"))&"/"&day(rs("time"))&"
    " Block01_LeftItem=Block01_LeftItem&"
    "&left(rs("title"),14)&"
    " rs_0.close set rs_0=nothing rs.movenext next Block01_LeftItem=Block01_LeftItem&"
    " else Block01_LeftItem=Block01_LeftItem&"No Data." end if rs.close set rs=nothing '顶部广告读取 set rs=server.createobject("adodb.recordset") sql="select top 1 [id],ADtype,[ADcode] from web_ads where [position]=35 and view_yes=1 order by [time] desc" rs.open(sql),cn,1,1 if not rs.eof then if rs("ADtype")=4 then Inner_BannerTop=Inner_BannerTop&rs("ADcode") else Inner_BannerTop=Inner_BannerTop&"" end if else Inner_BannerTop=Inner_BannerTop&"" end if rs.close set rs=nothing %> <% ' 文章内容读取替换 set rs=server.createobject("adodb.recordset") sql="select * from [article] where view_yes=1 and [id]="&a_id&"" rs.open(sql),cn,1,1 if not rs.eof then article_title=rs("title") ArticleContent=rs("content") article_keywords=rs("keywords") article_description=rs("description") article_from_url=rs("from_url") article_time=year(rs("time"))&"-"&month(rs("time"))&"-"&day(rs("time")) article_from_name=rs("from_name") article_count=rs("comment") Article_FilePath=rs("file_path") '下载内容 if rs("Files")<>"" then DownloadFiles=split(rs("Files"),",") dc=ubound(DownloadFiles) for ii=0 to dc Article_Downloads=Article_Downloads&" " next end if '您现在的位置读取替换 set rs_0=server.createobject("adodb.recordset") sql="select [id],[pid],[ppid],[name],[folder] from [category] where [id]="&rs("cid")&" and ppid=1" rs_0.open(sql),cn,1,1 folder_name=rs_0("folder") CategoryName=rs_0("name") ClassName1=rs_0("name") ClassFolder1=rs_0("folder") ClassID=rs_0("id") if rs("pid")<>"" then set rs_1=server.createobject("adodb.recordset") sql="select [id],[pid],[ppid],[name],[folder] from [category] where [id]="&rs("pid")&" and ppid=2" rs_1.open(sql),cn,1,1 folder_name_1=rs_1("folder") CategoryName=rs_1("name") end if if rs("ppid")<>"" then set rs_2=server.createobject("adodb.recordset") sql="select [id],[pid],[ppid],[name],[folder] from [category] where [id]="&rs("ppid")&" and ppid=3" rs_2.open(sql),cn,1,1 folder_name_2=rs_2("folder") CategoryName=rs_2("name") end if '---------------------- if folder_name<>"" then folder_path=MainClass_FolderName&"/"&folder_name&"/" end if category_position1=""&rs_0("name")&"" if folder_name_1<>"" then folder_path=MainClass_FolderName&"/"&folder_name&"/"&folder_name_1&"/" end if category_position2=" > "&rs_1("name")&"" if folder_name_2<>"" then folder_path=MainClass_FolderName&"/"&folder_name&"/"&folder_name_1&"/"&folder_name_2&"/" end if category_position3=" > "&rs_2("name")&"" if rs("ppid")<>"" then category_position=category_position1&category_position2&category_position3 end if if rs("ppid")="" and rs("pid")<>"" then category_position=category_position1&category_position2 end if if rs("ppid")="" and rs("pid")="" and rs("cid")<>"" then category_position=category_position1 end if end if rs.close set rs=nothing '侧边栏当前栏目列表 Block_LeftClassList="" set rsl=server.createobject("adodb.recordset") sql="select [name],[folder],[id],[pid],[ppid] from [category] where pid="&ClassID&" order by [order] " rsl.open(sql),cn,1,1 Block_LeftClassList=Block_LeftClassList&"" rsl.close set rsl=nothing '上一篇,下一篇读取替换 set rs=server.createobject("adodb.recordset") sql="select top 1 [title],[file_path],url,[time] from [article] where [id]>"&a_id&" and view_yes=1 and ArticleType=1 order by [id] " rs.open(sql),cn,1,1 article_next=article_next&"" rs.close set rs=nothing %> <% ArticlePageContent=split(ArticleContent,"
    ") c=ubound(ArticlePageContent) if c>0 then for i=0 to c if i=0 then PageNO="" else PageNO=i+1 PageNO="("&PageNO&")" end if %> <% '分页部分 PageList="" PageList=PageList&"" %> <% '读取模板内容 TemplatePath="/templates/"&web_theme&"/"&Model_FileName replace_code=ReadFromUTF(TemplatePath,"utf-8") %> <% replace_code=replace(replace_code,"无锡国际新能源电动车展览会",web_name) replace_code=replace(replace_code,"http://jsbicycle.com",web_url) replace_code=replace(replace_code,"2021115145549.png",web_image) replace_code=replace(replace_code,"无锡电动车展",web_title) replace_code=replace(replace_code,"",web_copyright) replace_code=replace(replace_code,"HituxCMSUni",web_theme) replace_code=replace(replace_code,"",web_consult) replace_code=replace(replace_code,"",PageNO) replace_code=replace(replace_code,"

    网站首页 | 关于我们 | 联系方式 | 网站地图

    Copyright 2021 江苏省自行车有限公司 版权所有
    All rights reserved

    苏ICP备20030047 技术支持 无锡E网

    ",web_BottomHTML) replace_code=replace(replace_code,"",web_tel) replace_code=replace(replace_code,"/Search",search_FolderName) replace_code=replace(replace_code,"",article_comment) replace_code=replace(replace_code,"",article_kw) replace_code=replace(replace_code,"",article_refer) replace_code=replace(replace_code,"新闻媒体 > 媒体报道",category_position) replace_code=replace(replace_code,"媒体报道",CategoryName) replace_code=replace(replace_code,"",Block_LeftClassList) replace_code=replace(replace_code,"新闻媒体",ClassName1) replace_code=replace(replace_code,"News",ClassFolder1) replace_code=replace(replace_code,"936",a_id) replace_code=replace(replace_code,"电商价格战煎熬上游供应商:订单爆棚员工抓狂",article_title) replace_code=replace(replace_code,"电商,订单",article_keywords) replace_code=replace(replace_code,"“‘五一’节前,我们公司所有负责电子商务客户供应链的同事在一起开了一个会布置工作。现在,负责电商销售的同事必须在下午3点之前下好单,这样我们的后续工作才有可能在当天完成。”罗小姐透露,如果下单稍晚,储运部门在发货的时候会忙到第二天早晨。 ",article_description) replace_code=replace(replace_code,"",article_short) replace_code=replace(replace_code,"",article_from_url) replace_code=replace(replace_code,"2012-5-23",article_time) replace_code=replace(replace_code,"新浪",article_from_name) replace_code=replace(replace_code,"

      在图书价格战中让出版社头痛不已的零供渠道之争在3C家电领域再次出现。记者昨日调查发现,在“史上最猛价格战”背后,电商企业与供应商之间也在打着一场暗战。除了订单大幅增加外,“渠道促销、厂家埋单”让供应商有苦难言。在业内人士看来,电商企业与供应商的关系可能会随着“价格战”不断恶化。

      订单爆棚 员工抓狂

      订单量从单次一两百台提升至三四百台、发货频率从平均每周一次提升至几乎每天,某个人电脑生产企业商务部门负责人罗小姐切实体会到“价格战”带来的销量增长。本应每天晚上6点下班的罗小姐,已连续3天加班到晚上8点半左右,她的工作是处理京东商城、苏宁易购(微博)和天猫(微博)平台商家等客户的订单。

      其实,以罗小姐所在的公司规模,电商平台促销带来的流量增长只是家常便饭。但与以往不同的是,此次几大电商同时在3C数码和大小家电领域开打价格战。

      “‘五一’节前,我们公司所有负责电子商务客户供应链的同事在一起开了一个会布置工作。现在,负责电商销售的同事必须在下午3点之前下好单,这样我们的后续工作才有可能在当天完成。”罗小姐透露,如果下单稍晚,储运部门在发货的时候会忙到第二天早晨。

      渠道压价钱难挣

      这波“史上最猛价格战”对生产商的影响远不止“加班”而已。除了发货量猛增,越来越狠的“压价”更让厂家心疼。“现在各家电商企业都在拼价格,对于供应商而言,都是透支十分的资源,获得八分的收益,因此供应商对目前的市场也会相对谨慎。”TCL(微博)电子商务公司副总经理刘文武表示。在业内人士看来,被“蒸发”掉的两分,就是电商企业对渠道“压榨”的结果。

      据某百货品牌负责人透露,“渠道促销、厂家埋单”其实是行规。“从整体上看,在企业宣称的让利额度中,约有一半金额需要供应商去承担。但‘一半’只是一个整体上的比例,具体谁承担多少让利额度,还要看渠道商和供应商的话语权。”该人士表示,大品牌承担的差价就会少一些,部分知名品牌甚至完全不需要为价格战埋单。而知名度越低、规模越小的品牌,被转嫁的成本就会越高。“这其实就是渠道商和供应商的博弈。”

    ",ArticlePageContent(i)) replace_code=replace(replace_code,"",PageList) replace_code=replace(replace_code,"0",article_count) replace_code=replace(replace_code,"",article_next) replace_code=replace(replace_code,"",Article_Downloads) replace_code=replace(replace_code,"",web_TopMenu) replace_code=replace(replace_code,"
  • 首页
  • 电话
  • 观众服务
  • 现场直播
  • 留言
  • ",web_BottomMenu) replace_code=replace(replace_code,"
    2013/6/2
    最大的赢家莫过于芯片厂商和电
    2012/5/23
    智慧科技展出企业活力,行业高
    2012/5/23
    电商价格战煎熬上游供应商:订
    2012/5/23
    微软加入新一代DRAM团体H
    2012/5/21
    法院成功追诉生产假冒诺基亚手
    ",Block01_LeftItem) replace_code=replace(replace_code,"",Block02_LeftItem) replace_code=replace(replace_code,"",Inner_BannerTop) %> <% '判断文件夹是否存在,否则创建 Set Fso=Server.CreateObject("Scripting.FileSystemObject") If Fso.FolderExists(Server.MapPath(Model_FolderName))=false Then NewFolderDir=Model_FolderName call CreateFolderB(NewFolderDir) end if %> <%'声明HTML文件名,指定文件路径 if i=0 then filepath=Model_FolderName&"/"&Article_FilePath else filepath=Model_FolderName&"/"&i&Article_FilePath end if %> <% '生成静态文件 '读取模板 '****************************************** '功能:生成UTF-8文件 '****************************************** mappath =filepath Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Open .Charset = "utf-8" .Position = objStream.Size .WriteText=replace_code .SaveToFile server.mappath(mappath),2 .Close End With Set objStream = Nothing %> <% next else %> <% '读取模板内容 TemplatePath="/templates/"&web_theme&"/"&Model_FileName replace_code=ReadFromUTF(TemplatePath,"utf-8") %> <% replace_code=replace(replace_code,"无锡国际新能源电动车展览会",web_name) replace_code=replace(replace_code,"http://jsbicycle.com",web_url) replace_code=replace(replace_code,"2021115145549.png",web_image) replace_code=replace(replace_code,"无锡电动车展",web_title) replace_code=replace(replace_code,"",web_copyright) replace_code=replace(replace_code,"HituxCMSUni",web_theme) replace_code=replace(replace_code,"",web_consult) replace_code=replace(replace_code,"","") replace_code=replace(replace_code,"

    网站首页 | 关于我们 | 联系方式 | 网站地图

    Copyright 2021 江苏省自行车有限公司 版权所有
    All rights reserved

    苏ICP备20030047 技术支持 无锡E网

    ",web_BottomHTML) replace_code=replace(replace_code,"",web_tel) replace_code=replace(replace_code,"/Search",search_FolderName) replace_code=replace(replace_code,"",article_comment) replace_code=replace(replace_code,"",article_kw) replace_code=replace(replace_code,"",article_refer) replace_code=replace(replace_code,"新闻媒体 > 媒体报道",category_position) replace_code=replace(replace_code,"媒体报道",CategoryName) replace_code=replace(replace_code,"",Block_LeftClassList) replace_code=replace(replace_code,"新闻媒体",ClassName1) replace_code=replace(replace_code,"News",ClassFolder1) replace_code=replace(replace_code,"936",a_id) replace_code=replace(replace_code,"电商价格战煎熬上游供应商:订单爆棚员工抓狂",article_title) replace_code=replace(replace_code,"电商,订单",article_keywords) replace_code=replace(replace_code,"“‘五一’节前,我们公司所有负责电子商务客户供应链的同事在一起开了一个会布置工作。现在,负责电商销售的同事必须在下午3点之前下好单,这样我们的后续工作才有可能在当天完成。”罗小姐透露,如果下单稍晚,储运部门在发货的时候会忙到第二天早晨。 ",article_description) replace_code=replace(replace_code,"",article_short) replace_code=replace(replace_code,"",article_from_url) replace_code=replace(replace_code,"2012-5-23",article_time) replace_code=replace(replace_code,"新浪",article_from_name) replace_code=replace(replace_code,"

      在图书价格战中让出版社头痛不已的零供渠道之争在3C家电领域再次出现。记者昨日调查发现,在“史上最猛价格战”背后,电商企业与供应商之间也在打着一场暗战。除了订单大幅增加外,“渠道促销、厂家埋单”让供应商有苦难言。在业内人士看来,电商企业与供应商的关系可能会随着“价格战”不断恶化。

      订单爆棚 员工抓狂

      订单量从单次一两百台提升至三四百台、发货频率从平均每周一次提升至几乎每天,某个人电脑生产企业商务部门负责人罗小姐切实体会到“价格战”带来的销量增长。本应每天晚上6点下班的罗小姐,已连续3天加班到晚上8点半左右,她的工作是处理京东商城、苏宁易购(微博)和天猫(微博)平台商家等客户的订单。

      其实,以罗小姐所在的公司规模,电商平台促销带来的流量增长只是家常便饭。但与以往不同的是,此次几大电商同时在3C数码和大小家电领域开打价格战。

      “‘五一’节前,我们公司所有负责电子商务客户供应链的同事在一起开了一个会布置工作。现在,负责电商销售的同事必须在下午3点之前下好单,这样我们的后续工作才有可能在当天完成。”罗小姐透露,如果下单稍晚,储运部门在发货的时候会忙到第二天早晨。

      渠道压价钱难挣

      这波“史上最猛价格战”对生产商的影响远不止“加班”而已。除了发货量猛增,越来越狠的“压价”更让厂家心疼。“现在各家电商企业都在拼价格,对于供应商而言,都是透支十分的资源,获得八分的收益,因此供应商对目前的市场也会相对谨慎。”TCL(微博)电子商务公司副总经理刘文武表示。在业内人士看来,被“蒸发”掉的两分,就是电商企业对渠道“压榨”的结果。

      据某百货品牌负责人透露,“渠道促销、厂家埋单”其实是行规。“从整体上看,在企业宣称的让利额度中,约有一半金额需要供应商去承担。但‘一半’只是一个整体上的比例,具体谁承担多少让利额度,还要看渠道商和供应商的话语权。”该人士表示,大品牌承担的差价就会少一些,部分知名品牌甚至完全不需要为价格战埋单。而知名度越低、规模越小的品牌,被转嫁的成本就会越高。“这其实就是渠道商和供应商的博弈。”

    ",ArticleContent) replace_code=replace(replace_code,"","") replace_code=replace(replace_code,"0",article_count) replace_code=replace(replace_code,"",article_next) replace_code=replace(replace_code,"",Article_Downloads) replace_code=replace(replace_code,"",web_TopMenu) replace_code=replace(replace_code,"
  • 首页
  • 电话
  • 观众服务
  • 现场直播
  • 留言
  • ",web_BottomMenu) replace_code=replace(replace_code,"
    2013/6/2
    最大的赢家莫过于芯片厂商和电
    2012/5/23
    智慧科技展出企业活力,行业高
    2012/5/23
    电商价格战煎熬上游供应商:订
    2012/5/23
    微软加入新一代DRAM团体H
    2012/5/21
    法院成功追诉生产假冒诺基亚手
    ",Block01_LeftItem) replace_code=replace(replace_code,"",Block02_LeftItem) replace_code=replace(replace_code,"",Inner_BannerTop) %> <% '判断文件夹是否存在,否则创建 Set Fso=Server.CreateObject("Scripting.FileSystemObject") If Fso.FolderExists(Server.MapPath(Model_FolderName))=false Then NewFolderDir=Model_FolderName call CreateFolderB(NewFolderDir) end if %> <%'声明HTML文件名,指定文件路径 filepath=Model_FolderName&"/"&Article_FilePath %> <% '生成静态文件 '读取模板 '****************************************** '功能:生成UTF-8文件 '****************************************** mappath =filepath Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Open .Charset = "utf-8" .Position = objStream.Size .WriteText=replace_code .SaveToFile server.mappath(mappath),2 .Close End With Set objStream = Nothing %> <% end if %> <% end function %>