asp 视频播放代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>





<%Dim Sql,Id
Id=Html_Encode(Request.QueryString("id"))
 If Id<>"" Or Isnumeric(Id) Then
  Sql="Select * from Vod Where Id="&Id
  Call OpenDb()
  Rs.open Sql,Conn,1,3
  If Not Rs.eof Then
  Rs(8)=Rs(8)+1
  Rs.update
%>

 
   
 

<%Call Play(Rs("Vod_path"),400,340)%>

<% Call Closedb
 Else
  Response.Write("数据丢失,服务器忙...")
 End If
Else
 Response.write("操作失败,请不要乱搞.")
End if

Function Play(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,wma"
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 function

%>