最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 视频播放代码
时间:2010-04-16 编辑:简简单单 来源:一聚教程网
<%@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
%>
-
上一个: asp 上一篇,下一篇文章实例代码
相关文章
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- asp中获取日期为星期几的技巧 09-14
- Asp编码优化参考 09-14
- .Net Core认证系统源码解析 12-26
- SharePoint Server 2019新特性介绍 01-15