新华发行集团启动连锁系统
|
|
来源:新京报
|
为解决发展瓶颈问题实现多元资本合作
本报讯(记者术术)昨日,中国出版集团举行新闻发布会,宣布集团下属的新华发行集团总公司国内图书连锁经营网络正式启动。
据介绍,新华发行集团总公司曾提出国内发行业务发展方略:即新华书店总店进行股份制改造,实现体制机制创新,从根本上解决发展瓶颈问题;强化物流配送能力,优化集团发行资源,建立强大批销中盘;面向全国市场,建设区域分销中心,完成全国骨干网络布局;结合当地资源,实现包括各地新华发行集团、新华书店、民营文化企业的多元资本合作,优势互补,快速结网,低成本扩张,打造完善供应链,建立以总店为核心的全国图书连锁系统;面向市场,面向客户,围绕集团的发展思路,建设功能强大,服务完善,反应迅速,与供应链合一并贯穿始终的信息服务系统。
昨天的会上,新华书店总店刘国辉总经理表示,新华发行集团总公司及所属新华书店总店经过近两年的探索,已经为实现上述构想打下了很多有利的基础。目前,已经在国内10余个省、市、区建立自营、合资、加盟和关联连锁网络店近100家:可即时利用的连锁卖场资源100余家,初步形成国内连锁网络近200家。
刘国辉透露,新华发行集团总公司的发展目标是:在5年内,通过多种方式,形成包括辽宁、上海、武汉、成都、西安、广州6大区域配送中心,1000家以上连锁店在内的全国性发行网络,力争年销售金额争取达到30个亿。 |
|
|
<%
if SpecialID<>0 then
Response.Write "
| | "
set rs4=server.CreateObject("ADODB.RecordSet")
rs4.Source="select * from special where SpecialID=" & SpecialID
rs4.Open,conn,1,1
Response.Write "相关专题:" & trim(rs4("specialname")) &" | "
rs4.Close
set rs4=nothing
Response.Write "专题信息: | | "
rs.Source="select top 5 NewsID,Title,BigClassName,SmallClassName,SpecialID,updatetime,click from News where (NewsID<>" & NewsID & " and SpecialID=" & SpecialID & ") order by NewsID DESC"
rs.Open,conn,1,1
if rs.EOF then
Response.Write " 没有专题信息 | "
else
while not rs.EOF
Response.Write " " & trim(rs("Title")) & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "] | "
rs.MoveNext
wend
Response.Write "[更多... ] | "
end if
rs.Close
set rs=nothing
end if
'------------------------------------------------------------------------------------------------------------------------------------
Response.Write "
| | "
Response.Write "相关信息: | | "
if about<>"" then
sql="select top 5 * from news where about like '%" & about & "%' and title not like '%" & title & "%' order by newsid desc"
set rs=conn.execute(sql)
do while not rs.eof
Response.write " " & trim(rs("Title")) & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "] | "
rs.movenext
loop
Response.Write "[更多... ] | "
else
Response.write " 没有相关信息 | "
end if
'rs.close
set rs=nothing
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top 5 * from review where NewsID=" & NewsID & " order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
if rs1.EOF then NoReview=1
Response.Write "
| | "
Response.Write "相关评论: | | "
%>
<%
if not NoReview then
while not rs1.EOF
author=server.HTMLEncode(trim(rs1("author")))
email=server.HTMLEncode(trim(rs1("email")))
content=trim(rs1("content"))
content=replace(content,"<","<")
content=replace(content,">",">")
content=replace(content,chr(13)," ")
ContentLen=len(Content)
%>
|
<%
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing
%>
|
| | |