- 博客(2)
- 收藏
- 关注
原创 ASP根据提交的视频格式进行正确的播放的函数
Sub SelPlay(strUrl,strWidth,StrHeight)Dim Exts,isExtIf strUrl isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1))Else isExt = ""End IfExts = "avi,wmv,asf,mov,rm,ra,ram"If Instr(Exts,isExt)=0 Then
2007-09-28 08:48:00 298
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人