<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 斐贝国际斐玛特商城全国连锁加盟--让你在花钱的同时也在赚钱! 斐贝国际斐玛特商城|Femart|斐贝国际女人湾电子商城|斐贝国际|斐贝国际商城|斐贝国际电子商务|斐贝|斐贝网|斐贝商城|斐贝女人湾|斐贝国际加盟|3G网店 菲玛特商城,免费注册网店 <% dim conn dim connstr dim db db="/manager/Database/DataShop.asp" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.Open connstr function decrypt(dcode) dim texts dim i for i=1 to len(dcode) texts=texts & chr(asc(mid(dcode,i,2))-i) next decrypt=texts end function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,2))+i) next encrypt = texts end function sub CloseConn() conn.close set conn=nothing end sub %> <% function gotTopic(str,strlen) if str="" then gotTopic="" exit function end if dim l,t,c, i str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<") l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then gotTopic=left(str,i) & "…" exit for else gotTopic=str end if next gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<") end function function JoinChar(strUrl) if strUrl="" then JoinChar="" exit function end if if InStr(strUrl,"?")1 then if InStr(strUrl,"&")" response.Write "" rs.open sql,conn,1,3 select case level case "最新公告" response.Write rs("gg") end select rs.close set rs=nothing response.Write "" response.Write "" end sub sub ShowLevel(level) select case level case "斐贝视频" ClassID=1 end select set rs=server.createobject("adodb.recordset") sql="Select * From NewsBigClass where ClassID='"&ClassID&"' order by BigClassID asc" rs.open sql,conn,1,3 response.Write "" do while not rs.eof select case level case "斐贝视频" response.Write "" end select rs.movenext loop response.Write "
 "&rs("BigClassName")&"
" rs.close set rs=nothing end sub sub Showtj(level,rows,num) select case level case "斐贝视频" ClassID=1 sql="select top "& num &" * from News where ClassID='"&ClassID&"' and Special=True and Passed=true order by sort asc,articleid asc" case "斐贝国际动态" ClassID=2 sql="select top "& num &" * from News where ClassID='"&ClassID&"' and Special=True and Passed=true order by sort asc,articleid desc" case "斐贝之家" ClassID=3 sql="select top "& num &" * from News where ClassID='"&ClassID&"' and Special=True and Passed=true order by sort asc,articleid desc" case "斐贝国际前景" ClassID=4 sql="select top "& num &" * from News where ClassID='"&ClassID&"' and Special=True and Passed=true order by sort asc,articleid desc" case "我要加盟" ClassID=5 sql="select top "& num &" * from News where ClassID='"&ClassID&"' and Special=True and Passed=true order by sort asc,articleid asc" end select 'sql="select top "& num &" * from News where ClassID='"&ClassID&"' and Special=True and Passed=true order by sort asc,articleid desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 select case level case "斐贝之家" response.Write "
" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "
" response.Write "" response.Write "" do while not rs.eof DefaultPicUrl="manager/"&rs("DefaultPicUrl") response.Write "" rs.movenext loop rs.close() set rs=nothing response.Write "" response.Write "
" response.Write "" response.Write "" response.Write "" response.Write "
" response.Write "" response.Write "
" response.Write ""&gotTopic(rs("Title"),24)&"" response.Write "
" response.Write "
" response.Write "
" response.Write "" case else response.Write "" do while not rs.eof response.Write "" select case level case "斐贝视频" for i=1 to rows if not rs.eof then DefaultPicUrl="manager/"&rs("DefaultPicUrl") response.Write "" rs.movenext loopno=loopno-1 end if next case "斐贝国际前景" for i=1 to rows if not rs.eof then response.Write "" rs.movenext loopno=loopno-1 end if next case "我要加盟" for i=1 to rows if not rs.eof then response.Write "" rs.movenext loopno=loopno-1 end if next case "斐贝国际动态" for i=1 to rows if not rs.eof then response.Write "" rs.movenext loopno=loopno-1 end if next end select response.Write "" loop rs.close() set rs=nothing response.Write "
" response.Write "" response.Write "" response.Write "
" response.Write "" response.Write "
" response.Write ""&rs("Title")&"" response.Write "
" response.Write "" response.Write "
 " response.Write ""&gotTopic(rs("Title"),36)&"" response.Write "
" response.Write "" response.Write "
 " response.Write ""&gotTopic(rs("Title"),36)&"" response.Write "
" response.Write "" response.Write "
 " response.Write ""&gotTopic(rs("Title"),36)&"" response.Write "
" end select end sub sub ShowMax(level,BigClassName,num,rows) select case level case "斐贝视频" ClassID=1 case "斐贝国际动态" ClassID=2 case "斐贝之家" ClassID=3 case "斐贝国际前景" ClassID=4 case "我要加盟" ClassID=5 end select sql="select top "& num &" * from News where ClassID='"&ClassID&"' and Passed=true " if BigClassName<>"" then sql=sql & " and BigClassName='" & BigClassName & "' " end if sql=sql & " order by Hits desc,sort asc,articleid asc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 response.Write "" do while not rs.eof response.Write "" for i=1 to rows if not rs.eof then response.Write "" rs.movenext end if next response.Write "" loop response.Write "
" response.Write "" response.Write "
  " response.Write ""&gotTopic(rs("Title"),42)&"" response.Write "
" end sub sub ShowBackNews(level,BigClassName,rows,volume) select case level case "斐贝视频" ClassID=1 case "斐贝国际动态" ClassID=2 case "斐贝之家" ClassID=3 case "斐贝国际前景" ClassID=4 case "我要加盟" ClassID=5 end select sql="select * from News where ClassID='"&ClassID&"' and Passed=true " if BigClassName<>"" then sql=sql & " and BigClassName='" & BigClassName & "' " end if sql=sql & " order by BigClassName asc,sort asc,articleid desc" strFileName="news.asp?level="&level&"&BigClassName="& BigClassName &"&lei=1" response.Write "" response.Write "" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write "" else loopno=volume rs.pagesize=volume page=trim(request("page")) if page<>"" then page=cint(page) else page=1 end if pagec=rs.pagecount if page>pagec then page=pagec end if rs.absolutepage=page do while not rs.eof and loopno>0 response.Write "" select case level case "斐贝视频" for i=1 to rows if not rs.eof then DefaultPicUrl="manager/"&rs("DefaultPicUrl") response.Write "" rs.movenext loopno=loopno-1 end if next case "斐贝之家" for i=1 to rows if not rs.eof then DefaultPicUrl="manager/"&rs("DefaultPicUrl") response.Write "" rs.movenext loopno=loopno-1 end if next case "斐贝国际动态" for i=1 to rows if not rs.eof then response.Write "" rs.movenext loopno=loopno-1 end if next case "斐贝国际前景","我要加盟" for i=1 to rows if not rs.eof then response.Write "" rs.movenext loopno=loopno-1 end if next end select response.Write "" loop rs.close set rs=nothing strUrl=JoinChar(strFileName) response.Write "" end if response.Write "
" response.Write " | "&level&"" if BigClassName<>"" then response.Write " > "&BigClassName&"" end if response.Write "
没有相关信息!
" response.Write "" response.Write "" response.Write "
" response.Write "" response.Write "
" response.Write ""&rs("Title")&"" response.Write "
" response.Write "" response.Write "" response.Write "
" response.Write "" response.Write "
" response.Write ""&gotTopic(rs("Title"),18)&"" response.Write "
" response.Write "" response.Write "" response.Write "" response.Write "
  " response.Write ""&rs("Title")&"" response.Write ""&FormatDateTime(rs("UpdateTime"),2)&"
" response.Write "" 'response.Write "" response.Write "" response.Write "
  " response.Write ""&rs("Title")&"" response.Write ""&FormatDateTime(rs("UpdateTime"),2)&"
" response.write "首页 " if page>1 then response.write "上一页 " else response.write"上一页 " end if if page下一页 " else response.write "下一页 " end if response.write "尾页 " response.write "当前:"&page&"/"&pagec&"" response.write " 转到:" response.Write "
" end sub sub ShowNew(level,BigClassName,ArticleID) sql="select * from News where ArticleID ="&ArticleID&"" set rs=server.createobject("adodb.recordset") response.Write "" rs.open sql,conn,1,3 if not rs.eof then sql="update News set hits=hits+1 where ArticleID=" & request("ArticleID") & "" conn.execute sql response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" end if rs.close set rs=nothing response.Write "
" response.Write " | "&level&"" if BigClassName<>"" then response.Write " > "&BigClassName&"" end if response.Write " > "&rs("Title")&"" response.Write "
"&rs("Title")&"
"&rs("Content")&"
" response.Write "
打印此页】 【关闭】" response.Write "
" end sub %>

全国各地来访的朋友,请多做停留!惊喜:免费加盟注册网店,并且是各个品牌厂家为您供货!想开网店者一定不要错过!

免费注册开店成功,即可获得各种品牌厂家的供货支持!

欢迎光临女人湾商城,本站长在斐贝国际女人湾商城注册了自己的网店,并为自己的女人湾商城做大力推广!全国各地只要有网络的地方都可免费注册拥有!站长祝您好运哦!本网站仅作为个人店主宣传只用!

 
 | 斐贝国际动态 > 斐贝国际菲玛特商城构筑诚信网购“防火墙”
斐贝国际菲玛特商城构筑诚信网购“防火墙”

中秋快要到了,网上的月饼生意也开始红红火火起来。月饼作为传统食品,向来主要在商场超市、专卖店等场所销售,但随着近年来电子商务的蓬勃发展,网购月饼现在已被越来越多人接受,网购月饼的规模每年都在两位数速度上升,未来网购将成为月饼销售的新生力量。

但是,记者在调查中发现,有许多网站的月饼及半成品并未标注生产者、生产日期和保质期。“吃月饼一定要新鲜、卫生、不变质,但网购月饼,对其馅料的质量和来源等往往难以判断,更难追根溯源。”市工商局12315申诉举报指挥中心工作人员表示。记者了解到,中国商业联合会近日发布了网上月饼抽样调查结果:40%的产品食品安全指标有问题。商业联合会还指出,网上月饼甚至还存在一些假冒名牌和“三无”产品的现象。

工商人员表示,目前,网上店铺大多没有食品卫生许可证,消费者网购食品需特别谨慎。购买时一定要注意包装盒上是否标明生产日期、保质期、厂名和厂址等相关信息,以免从网上买到“三无”的“山寨”月饼。工商部门提醒,网上店铺大多没有食品卫生许可证,其馅料来源难以追溯、制作运输条件也难保证,市民网购月饼还需谨慎。

也有广大的网友对于网购月饼表示支持。深圳市民王先生表示:“网购月饼能够给人们带来许多便利,选择的种类也多,月饼能够网购是件好事,购买时可以选择一些诚信度高的网站,不要轻信一些陌生网站的忽悠。”

临近中秋,在外地工作的陈女士早早的给父母在网上预订了月饼等礼品,她说:“现在打开电脑至少有几十个网站在卖月饼,而我是在斐贝国际的菲玛特商城上订的月饼还有其它一些礼品,总体价位还蛮合理。之所以选择菲玛特商城,是因为斐贝国际对入驻的商品都有严格的工商等资质审核,所以在菲玛特商城购买商品不用为卫生等问题担心,而且可以获得积分返还。”

斐贝国际旗下的菲玛特商城是一家不同于传统模式的创新B2C2C电子商务交易平台,它不仅具有B2C和C2C的优势,而且它构筑的诚信体制也让网络购物更加诚信、可靠,对营造和谐网购环境起到了很大的推动作用。

斐贝国际相关负责人向记者介绍说,斐贝国际菲玛特商城从三个方面入手构筑了诚信防火墙。首先,虽然任何商家都可以免费入驻菲玛特商城,但商城招商部门对每一家入驻商户都会有严格的工商、税务、卫生许可等必要的资质审查;其次,菲玛特商城还制订了七天退换货、假一赔三等切实保障消费者权益的规定;最后,菲玛特商城会密切监测消费者对商品的意见反馈,一旦收到消费者的投诉并且情况属实,菲玛特商城会及时给予商家警告,投诉率超标的商家会被强制下架。

记者还了解到,为了真正让消费能看得见、摸得着菲玛特商城上的实物,斐贝国际还建立了线下连锁店——善美?精致生活体验馆,以致力于给消费者以真实的线下购物体验和个人生活品位的提升。斐贝国际地面连锁相关负责人向记者介绍说:“善美?精致生活体验馆与菲玛特商城组成了线上、线下比翼双飞的营销格局,形成了良好的商家与消费者互动共赢的平台。”

业内专家称,网购诚信需要不断规范,这需要政府和企业共同的努力,斐贝国际以创新的思维构筑诚信“防火墙”的做法值得称赞,对于营造良好的网购环境有积极的推动作用。


打印此页】 【关闭
首页斐玛特商城介绍斐玛特商城动态斐玛特商城前景斐玛特商城之家斐玛特商城视频|我要加盟斐玛特商城联系我们进入斐玛特商城网站地图
Copyright © 2008-2020  斐贝国际斐玛特商城全国连锁加盟--斐贝国际女人湾电子商城  All rights reserved
联系QQ: 313930978 有事Q我
网 址: http://www.nvrenwan.com 邮 箱:313930978@qq.com
(本站声明:本站仅作为斐玛特商城店主店铺宣传之用,不代表斐玛特商城官方意见,
多数信息转载自斐玛特商城官方网站,若需了解更多信息请到官方网站)
友情联接:公司注册 商标注册 工商代理 代理记账     豫ICP备09001140号