完美破解虚拟主机不支持流媒体（FLV格式文件）批量添加FLV

• 完美破解虚拟主机不支持流媒体（FLV格式文件）批量添加FLV [返回文章列表]     发表于: 2008-11-22  138人(次)浏览

•  

  很郁闷，很郁闷，给客户做的网站马上就要完成了，只等客户验收收钱了，却出了问题。原本在本地测试时能播放的FLV文件一个个都播放不了了。

  原来是我买的空间不支持流媒体，据说很耗流量还是怎么的。难道要我把写好了的东西都改掉？那太麻烦了，一定有办法解决的。

  于是我想起了一年前我做一个全FLASH品牌网站的时候，客户要播放一个广告视频，也是用的FLV格式，在网站上搜索到了原因：

  FLV格式文件上传服务器后不能播放因为国内大多都是Win2003的主机.默认是没有指定输出FLV这种格式的虽然FTP里面可以看见,但无法通过http访问,也就无法播放了.

  　　[原因：WIN2003加强了IIS6的MIME验证，一切未注册扩展文件格式统统显示404错误。手动在IIS中HTTP头->MIME添加MIME影射关系，MIME类型: video/x-flv 扩展名:.flv，即可通过Flash7+客户端Load进来播放]

  解决办法：“虚拟主机都不支持Flv格式文件”的问题：比如你的Flv文件名称是a.flv,在虚拟主机上建一个名为“a.flv”的目录，在此目录下放你的Flv格式文件，将其改名为：index.htm,这样就行了，播放器中的文件名保持原样不动

  我现在需要大量的动态添加FLV视频，又不想花钱换空间不想换WMV等其他格式文件。那么怎么办呢？我想到了，我将以前手工单个的操作换成动态生成一个个的文件名.flv的文件，然后将FLV文件上传到该文件下，自动改名和文件类型为index.htm。在后台和前台显示页面的其他代码都不用改了。测试，真的OK。爽呆了，省了不少钱啊，特别是现在金融危机这么厉害。

  如果有和我通病相连的朋友，可以按这样的方法去操作。流媒体播放速度快不用全部下载完就播放，可以给客户更好的体验，收钱也更顺利啊 哈哈哈！

  效果预览地址：http://www.bateschina.net/work.asp?mainMenu=work&workclass=4

  顺便喊一句，我的网站：http://www.ourbrander.com/  有网站、FLASH应用的业务可以联系我啊

  相关的代码（我用的ASP语言，无忧上传）：

  
  for each formName in upload.objFile ''列出所有上传了的文件
   set file=upload.file(formName)  ''生成一个文件对象
   if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
   
    sFileName=file.FileName
    sFileExt = Mid (sFileName,InStrRev (sFileName, ".")+1)
    sRnd = Int(900 * Rnd) + 100
   'sSaveFileName = year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "." & sFileExt
   sSaveFileboxName = formPath&year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "." & sFileExt
   sSaveFileName="index.htm"
   '生成FLV的文件夹****************************************************************
   dim fso,path
   set fso=CreateObject("Scripting.FileSystemObject")
   path=sSaveFileboxName
   if fso.folderexists(server.mappath(sSaveFileboxName))=false then  
   fso.createfolder(server.mappath(sSaveFileboxName))  
   end if  
   set fso=nothing
   
   '**************************************************************** 
   
   
   
   
    file.SaveAs Server.mappath(sSaveFileboxName&"/"&sSaveFileName)   ''保存文件