VB.NET code:
Dim Exts, isExt As String
If strUrl <> "" Then
isExt = LCase(Mid(strUrl, InStrRev(strUrl, ".") + 1))
Else
isExt = ""
End If
Exts = "avi,wmv,asf,mov,rm,ra,ram,flv,rmvb"
If InStr(Exts, isExt) = 0 Then
Response.Write("非法视频文件")
Else
Select Case isExt
Case "avi", "wmv", "asf", "mov"
Response.Write("<object id='MediaPlayer' height='200' width='300' classid='CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6' VIEWASTEXT> ")
Response.Write("<param id='URL' name='URL' value='" & strUrl & "'>")
Response.Write(" <param name='rate' value='1'> <param name='balance' value='0'> <param name='currentPosition' value='0'> <param name='playCount' value='1'> <param name='autoStart' value='-1'><param name='ShowStatusBar' value='-1'> </object>")
Case "mov", "rm", "ra", "ram", "flv", "rmvb"
Response.Write("<OBJECT height='" & StrHeight & "' width='" & strWidth &
