%'容错处理
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&"
"
PageList=PageList&"当前页数:
" & i+1 & "/" & c+1 &" "
PageList=PageList&"
" & "首页" & ""
select case i
case 0
PageList=PageList&" 上一页 "
case 1
PageList=PageList&"
" & "上一页" & ""
case else
PageList=PageList&"
" & "上一页" & ""
end select
for counter=0 to c
if counter=0 then
if counter=i then
PageList=PageList&" 1 "
else
PageList=PageList&"
" & 1 & " "
end if
else
if counter=i then
PageList=PageList&" "&counter+1&" "
else
PageList=PageList&"
" & counter+1 & " "
end if
end if
next
if i=c then
PageList=PageList&" 下一页 "
else
PageList=PageList&"
" & "下一页" & ""
end if
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,"
在图书价格战中让出版社头痛不已的零供渠道之争在3C家电领域再次出现。记者昨日调查发现,在“史上最猛价格战”背后,电商企业与供应商之间也在打着一场暗战。除了订单大幅增加外,“渠道促销、厂家埋单”让供应商有苦难言。在业内人士看来,电商企业与供应商的关系可能会随着“价格战”不断恶化。
订单爆棚 员工抓狂
订单量从单次一两百台提升至三四百台、发货频率从平均每周一次提升至几乎每天,某个人电脑生产企业商务部门负责人罗小姐切实体会到“价格战”带来的销量增长。本应每天晚上6点下班的罗小姐,已连续3天加班到晚上8点半左右,她的工作是处理京东商城、苏宁易购(微博)和天猫(微博)平台商家等客户的订单。
其实,以罗小姐所在的公司规模,电商平台促销带来的流量增长只是家常便饭。但与以往不同的是,此次几大电商同时在3C数码和大小家电领域开打价格战。
“‘五一’节前,我们公司所有负责电子商务客户供应链的同事在一起开了一个会布置工作。现在,负责电商销售的同事必须在下午3点之前下好单,这样我们的后续工作才有可能在当天完成。”罗小姐透露,如果下单稍晚,储运部门在发货的时候会忙到第二天早晨。
渠道压价钱难挣
这波“史上最猛价格战”对生产商的影响远不止“加班”而已。除了发货量猛增,越来越狠的“压价”更让厂家心疼。“现在各家电商企业都在拼价格,对于供应商而言,都是透支十分的资源,获得八分的收益,因此供应商对目前的市场也会相对谨慎。”TCL(微博)电子商务公司副总经理刘文武表示。在业内人士看来,被“蒸发”掉的两分,就是电商企业对渠道“压榨”的结果。
据某百货品牌负责人透露,“渠道促销、厂家埋单”其实是行规。“从整体上看,在企业宣称的让利额度中,约有一半金额需要供应商去承担。但‘一半’只是一个整体上的比例,具体谁承担多少让利额度,还要看渠道商和供应商的话语权。”该人士表示,大品牌承担的差价就会少一些,部分知名品牌甚至完全不需要为价格战埋单。而知名度越低、规模越小的品牌,被转嫁的成本就会越高。“这其实就是渠道商和供应商的博弈。”
",ArticlePageContent(i))
replace_code=replace(replace_code,"
当前页数:
1/2
首页 上一页 1
2 下一页尾页",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,"
当前页数:
1/2
首页 上一页 1
2 下一页尾页","")
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
%>