sonygod

呵.
有N个人共同开发.我也是其中之一.但SOGUA太无人情味
我也只能如此

服务器端
//main.asc
application.onConnect = function (newClient) {
  application.acceptConnection(newClient);
  newClient.delMovie = function (fileName) {
    theFile = Stream.get(fileName);
    if (theFile){
      theFile.onStatus = function(info){
        if(info.code == "NetStream.Clear.Success"){
          trace(info.description);
        }
        if(info.code == "NetStream.Clear.Failure"){
          trace(info.description);
        }
      };
      theFile.clear();
    }
  }
}
//自动转flash为jpg

<!--#include virtual="/inc/OpenDataBaseConn.Asp"-->
<!--#include virtual="/inc/ClassFun.asp"-->
<%
rem ***************************************函数开始****************************************************
'regsvr32 ImageEditCOM.dll

  Function CreatePhoto(Com,Flv,Jpg,PhotoK,CPho)
    '*****************************开始生成相片******************************
    set  ImageEditer= Server.CreateObject("ImageEditCOM.ImageEditer")
    Re = false
    Re = ImageEditer.FLVToJPG(Com,Flv,Jpg,170,128)'将Flv转换成Jpg
    if Re then
    '*****************************开始合成相片*******************************
    Re = ImageEditer.picmix(PhotoK,Jpg,CPho,100)'合成图片
    'Re = ImageEditer.Clip("e:\03.jpg","e:\04.jpg",240,320)'图片的剪切
    end if
    Set ImageEditer = nothing
    CreatePhoto = Re
  End Function
Rem ***************************************函数结束*************************************************


Rem ****************************************开始处理合生成图片***************************************
TempFlv = Trim(Request("Flv"))
TempFrame = Trim(Request("Mc"))
Temptitles = Trim(Request("titles"))
TempTypes = Trim(Request("types"))'类型
If TempFlv="" or TempFrame="" or Temptitles="" then
  Response.Write("Flag=")
  Response.End()
End if
TempHave = strhave(TempFlv,"|")
PasterPicMaster = Session("MemberName") 'SOGUA的用户名
NICKNAME = Session("NickName") '用户可定义的名称
For i=1 to TempHave
TempFileName = GetId()
TempFlv_a = selectstr(TempFlv,i,"|")
TempFrame_a = selectstr(TempFrame,i,"|")
Temptitles_a = selectstr(Temptitles,i,"|")
Temptypes_a = selectstr(TempTypes,i,"|")
  Com = Server.MapPath("/Images/Flash/FlashCom/ffmpeg.exe")'生成图片的EXE
  Flv = Server.MapPath("/app/PIC/streams/_definst_/"&TempFlv_a&".flv")'Flash文件(Del)
  Jpg = Server.MapPath("/Images/Flash/FlashCom/"&TempFileName&".jpg")'Flv转成JPG的相片(Del)
  PhotoK = Server.MapPath("/Images/Flash/PhotoK/"&TempFrame_a&".gif")'相框
  CPho = Server.MapPath("/pic/PasterPic/"&TempFileName&".jpg")'合成后的相片  
  
  if CreatePhoto(Com,Flv,Jpg,PhotoK,CPho) then
    'Call DeleteFile(Flv)'删除FLV文件
    'Call DeleteFile(REPLACE(Ucase(Flv),".FLV",".IDX"))'删除IDX文件
    Call DeleteFile(Jpg)'删除FLV转换成的JPG文件
    '录入数据库
    CmdSql = "Insert into PasterPicContent(PasterPicMaster,PasterPicTitle,PasterPicName,PasterPicDate,NICKNAME,PasterPicID,TypeId) values('"&PasterPicMaster&"','"&Temptitles_a&"','"&TempFileName&".jpg',getDate(),'"&NICKNAME&"',"&Temptypes_a&",1)"
    'Response.Write(CmdSql)
    Call ExecuteSqlcmd(CmdSql,ObjcmdDBDefault,ErrorPage)
    '完成操作
    Act = True
  else
    Act = False
    Exit For
  End if
Next
if Act then
  Response.Write("Flag=done")
else
  Response.Write("Flag=")
End if
%>
//
还有其他的用户数据我就不公开了..

希望对大家有帮助..