<%
'*******************************
'Fonction: SelPlay (Strurl, Strwidth, Strheight)
«Paramètres: Strurl, chemin vidéo d'animation; strwidth, hauteur vidéo; Strheight, hauteur vidéo
'Auteur: Alixi
'Date: 2007/7/13
«Description: Obtenez la véritable adresse IP de l'utilisateur, et elle est toujours valable pour l'adresse proxy; Valeur de retour: Adresse IP de type de texte
'Exemple: <% = selPlay ("mov.swf", "120", "90")%>
'*******************************
Sous-jeu (Strurl, Strwidth, Strheight)
Dimexts, isext
Ifstrurl <> "" alors
ISEXT = LCase (Mid (Strurl, Instrev (Strurl, ".") + 1))
Autre
isext = ""
Endire
Exts = "Avi, WMV, ASF, MOV, RM, RA, RAM, SWF"
IFinstr (exts, iSExt) = 0Then
Response.write "Fichier vidéo illégal"
Autre
SelectCaseisext
Cas "avi", "wmv", "asf", "mov"
Response.Write "<embedId = mediaPlayersrc =" & strurl & "width =" & strwidth & "height =" & strheight & "loop =" "false" "autostart =" "true"> </embed> "
Cas "mov", "rm", "ra", "ram"
Response.Write "<objectheight =" & strheight & "width =" & strwidth & "classid = ClSid: cfcdaa03-8be4-11cf-b84b-0020afbbccfa>"
Réponse.write "<paramname =" "_ extentx" "value =" "12700" ">"
Response.write "<paramname =" "_ Extted" "value =" "9525" ">"
Réponse.write "<paramname =" "autostart" "value =" "- 1" ">"
Réponse.write "<paramname =" "shuffle" "value =" "0" ">"
Réponse.write "<paramname =" "Prefetch" "value =" "0" ">"
Réponse.write "<paramname =" "nolabels" "value =" "0" ">"
Réponse.write "<paramname =" "src" "value =" "" & strurl & "" ">"
Réponse.write "<paramname =" "Controls" "value =" "ImageWindow" ""> "
Réponse.write "<paramname =" "console" "value =" "clip" ">"
Réponse.write "<paramname =" "loop" "value =" "0" ">"
Réponse.write "<paramname =" "numloop" "value =" "0" ">"
Réponse.write "<paramname =" "Center" "value =" "0" ">"
Réponse.write "<paramname =" "se mainteniraSpect" "value =" "0" ">"
Réponse.write "<paramname =" "backgroundColor" "value =" "# 000000" ">"
Réponse.Write "</Bject>"
Réponse.WRITE "<br>"
Response.Write "<objectheight = 32Width =" & strwidth & "classid = clsid: cfcdaa03-8be4-11cf-b84b-0020afbbccfa>"
Réponse.write "<paramname =" "_ extentx" "value =" "12700" ">"