asp通用播放器代码支持avi,wmv,asf,mov,rm,ra,ram等asp通用播放器代码支持avi,wmv,asf,mov,rm,ra,ram等
"" Then
isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1)) Else
isExt = ""
End If
Exts = "avi,wmv,asf,mov,rm,ra,ram"
If Instr(Exts,isExt)=0 Then
Response.write "非法视频文件"
Else
Select Case isExt
Case "avi","wmv","asf","...
asp通用播放器代码支持avi,wmv,asf,mov,rm,ra,ram等
<%'代码
Sub SelPlay(strUrl,strWidth,StrHeight)
Dim Exts,isExt
If strUrl <> "" Then
isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1)) Else
isExt = ""
End If
Exts = "avi,wmv,asf,mov,rm,ra,ram"
If Instr(Exts,isExt)=0 Then
Response.write "非法视频文件"
Else
Select Case isExt
Case "avi","wmv","asf","mov"
Response.write ""
Case "mov","rm","ra","ram"
Response.Write ""
Response.Write " "
Response.Write ""
End Select
End If
End Sub
%>
<%'调用
Call SelPlay("50024007_56.asf",280,220)%>