• 主网站
    • 网站案例
    • 域名主机
    • 网站建设
    • 网站推广
    • 系统开发
    • 设计文章
    • 联系我们
    • 网站制作教程
    • 在线转flv+flash在线录制视频
    • 在页面上显示PR值+图形
    • ASP+CSS实现网页随机背景
    • 文字在网页上面的应用
    • 用CSS实现无图片圆角效果
    • 什么样是合理的网页设计
    • CSS样式表的优化与技巧
    • CSS样式表的命名规范
    • XHTML代码的基本应用
    • 内容自动添加到指定的JS
    • 一组常用的弹出窗口
    • 查看网站更新的代码
    • JS刷新页面
    • 突破IIS6上传文件尺寸限制
    • 批量处理数据库
    • 用ASP判断Email地址
    • 新闻内容分页
    • ASP邮件发送程序
    • 网页防盗代码
    • ASP时间代码
    • 开始→运行→命令集锦!
    • 会员登陆的检测代码
    • Win2003的远程桌面连接端口
    • 更改apache的默认页
    • 网站制作中常用的CSS
    • DOC下常见的端口
    • xp下安装sql2000企业版
    • Thumbs.db文件是什么
    • msn随outlook启动
    • js调用ASP程序
    • 常用的JS代码!
    • 在网站制作中flash背景透明
    • 如何制作网站??
    • 限制数据库文件大小的方法
    • MYSQL中对数据库的操作
    • 保护邮件地址防垃圾有巧招
    • 解决MSSQL占用过多内存
    • ASP在线转flv+所略图+flash在线录制视频 -- (网站制作教程)

    •     以XML样式显示

      需要用到的组件
      ASPExec
      mencoder
      ffmpeg.exe

      步骤: 在线转换

      Set Executor = Server.CreateObject("ASPExec.Execute")
      Executor.Application = "cmd /c mencoder E:\qiancheng\upload\"&request.QueryString("keys")&" -o E:\qiancheng\shipin\record\streams\_definst_\record\"&lid&"\"&keys&".flv -of lavf -oac mp3lame -lameopts abr:br=56 -ovc lavc -lavfopts i_certify_that_my_video_stream_does_not_use_b_frames -lavcopts vcodec=flv:vbitrate=200:mbd=2:mv0:v4mv:last_pred=3:dia=3:cmp=3:vb_strategy=1 -vf scale=330:-3 -ofps 12 -srate 22050"
      Executor.Parameters = ""
      strResult = Executor.ExecuteDosApp

      asp执行 .bat文件

      第二步骤: 通过ffmpeg生成所略图+fso 删除源件

      Server.ScriptTimeout=0
      flvname=keys
      streamPath="../shipin/record/streams/_definst_/record/"&lid&"/"&flvname&".flv"
      imgW ="120"
      imgY = "90"
      imgQuality = "100"
      ss="3"
      newName = "../upload/"&flvname&".jpg"
      str="e:\qiancheng\webadmin\ffmpeg.exe"
      str=str+" -i "&server.mappath(streamPath)&" -ss 3 -vframes 1 -r 1 -ac 1 -ab 2 -s 120*90 -f image2 "&server.mappath(newName)&""
      Set shellffmpeg=server.CreateObject("ffmpeg.shellffmpeg")
      aa=shellffmpeg.shellffmpeg1(str)
      Set shellffmpeg = Nothing
      '删除上传的文件
      tupianid="../upload/"&request.QueryString("keys")
      set   fso=server.CreateObject("scripting.filesystemobject")   
      if fso.FileExists(Server.MapPath(tupianid))   then   
      fso.deletefile(server.MapPath(tupianid))   
      end if   
      set fso=nothing

      flash视频整站程序制作完成, 在线录制视频+音频+ 缩略图+在线转flv +asp + sqlserver

      QQ:4820016