'****************************************************'함수 명:SelPlay'작 사용:홈 페이지 에서 동 영상 재생 하기 수:strUrl －－－－ 비디오 주소 strWidth －－－화면 너비 strHeight －－－동 영상 높이 표시'********************************************************* 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 "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" End Select End If End Sub 호출 프로그램 코드 Call SelPlay(DvUrl,280,220)
