Use wscript. Shell
<%
Server. scripttimeout = 0
'On error resume next
Flvname = request. querystring ("flvname ")
'Streampath = "../record/streams/_ definst _/" & flvname & ". FLV"
Streampath = "DD/" & flvname & ". FLV"
Imgw = "160"
Imgy = "120"
Imgquality = "70"
Ss = "3"
'Newname = "../videoimage/" & flvname & ". jpg"
Newname = "DD/" & flvname & ". jpg"
Strd = "ffmpeg.exe"
Strd = server. mappath (strd)
Strd = strd + "-I" & server. mappath (streampath) & "-ss 3-vframes 1-R 1-Ac 1-AB 2-s" & imgw & "*" & imgy & "-F image2" & server. mappath (newname )&""
Set wshshell = server. Createobject ("wscript. Shell ")
Issuccess = wshshell. Run (strd, 1, false)
When '(strd, 1, false) is 1, the server displays the progress. If it is 2, no
If issuccess = 0 then
Response. Write strd
Response. Write "<br/> successfully executed"
Else
Response. Write strd
Response. Write "<br/> command execution failed! Insufficient permissions or the program cannot run"
End if
Set wshshell = nothing
'If err. Number <> 0 then
'Response. Write "<p> error number:" & err. Number
'Response. Write "<p> cause:" & err. Description
'Response. Write "<p> Error Source:" & err. Source
'Response. End
'End if
%>