Lors de la création d'un programme pour le client, j'ai soudainement rencontré un problème, c'est-à-dire que lorsque l'utilisateur de la page de produit soumet un fichier de lecture vidéo, comment lire le format vidéo correct dans l'URL soumis ... J'étais déprimé pendant un certain temps, et j'ai pensé à l'idée et j'ai commencé à le faire quand je l'ai dit ... l'idée était d'obtenir le type de fichier en premier et de sélectionner différents codes de lecteur Web selon le type ... trois fois et deux fois ... La fonction d'appel générale a été écrite pour faciliter les appels dans d'autres systèmes à l'avenir.
Le code source est maintenant publié comme suit:
La copie de code est la suivante:
Sub Selplay (Strurl, Strwidth, Strheight)
DIM EXTS, ISEXT
Si strurl <> alors
ISEXT = LCase (Mid (Strurl, Instrev (Strurl,.) + 1))
Autre
isext =
Terminer si
Exts = Avi, WMV, ASF, MOV, RM, RAM
Si instr (exts, iSExt) = 0 alors
Réponse.Write Fichier vidéo illégal
Autre
Sélectionner le cas ISEXT
Case Avi, WMV, ASF, MOV
Réponse.Write <embed id = mediaPlayer src = & strurl & width = & strwidth & height = & strheight & loop = false autostart = true> </embed>
Case MOV, RM, RAM
Response.Write <Object Height = & StrHeight & Width = & Strwidth & Classid = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
Réponse.write <param name = _extentx value = 12700>
Réponse.write <param name = _Extenty Value = 9525>
Réponse.write <param name = Autostart Value = -1>
Réponse.write <param name = shuffle valeur = 0>
Réponse.write <param name = prefetch Value = 0>
Réponse.write <param name = nolabels value = 0>
Réponse.write <param name = src value = & strurl &>
Réponse.write <param name = Controls value = imagewindow>
Réponse.write <param name = Console Value = Clip>
Réponse.write <param name = Loop Value = 0>
Réponse.write <param name = numloop value = 0>
Réponse.write <param name = Center Value = 0>
Réponse.write <param name = maintenueura valeur = 0>
Réponse.Write <param name = backgroundcolor value = # 000000>
Réponse.Write </BOBLE>
Réponse.WRITE <br>
Response.Write <Object Height = 32 Wideth = & Strwidth & Classid = ClSid: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
Réponse.write <param name = _extentx value = 12700>
Réponse.write <param name = _Extenty Value = 847>
Réponse.write <param name = Autostart Value = 0>
Réponse.write <param name = shuffle valeur = 0>
Réponse.write <param name = prefetch Value = 0>
Réponse.write <param name = nolabels value = 0>
Response.Write <param name = Controls Value = ControlPanel, Statusbar>
Réponse.write <param name = Console Value = Clip>
Réponse.write <param name = Loop Value = 0>
Réponse.write <param name = numloop value = 0>
Réponse.write <param name = Center Value = 0>
Réponse.write <param name = maintenueura valeur = 0>
Réponse.Write <param name = backgroundcolor value = # 000000>
Réponse.Write </BOBLE>
Fin de sélection
Terminer si
Sub-Sub
Méthode d'appel:
La copie de code est la suivante:
Appelez SelPlay (Dvurl, 280,220)
En fait, un meilleur code, dans un code source de lecteur en ligne relativement bon, etc., vous pouvez vous y référer, tels que: Max et d'autres systèmes de lecture vidéo.