<%
'*********************************
'Funktion: seleple (StRURL, Strwidth, StrHeight)
'Parameter: STRURL, Animation Video Pfad; Strwidth, Videohöhe; StrHeight, Videohöhe
'Autor: Alixi
'Datum: 2007/7/13
'Beschreibung: Holen Sie sich die tatsächliche IP des Benutzers und gilt immer noch für die Proxy -Adresse. Rückgabewert: Texttyp IP -Adresse
'Beispiel: <%= selPlay ("mov.swf", "120", "90")%>
'*********************************
Subselplay (StRURL, STRWIDTH, STRHEYT)
DiMexts, iSext
Ifstrurl <> "" dann
isext = lase (Mid (StRURL, Instrrev (StRURL, ")+1))
Anders
isext = "" "
Endif
Exts = "avi, wmv, asf, mov, rm, ra, ram, swf"
IfInstr (exts, isext) = 0Then
Antwort.Write "Illegale Videodatei"
Anders
SelectCaseSext
Fall "Avi", "WMV", "ASF", "MOV"
Response.write "<embedID = MediaPlayersrc =" & stRURL & "width =" & strwidth & "height =" & strHeight & "Loop =" "false" "autostart =" "true"> </embed> "
Fall "mov", "rm", "ra", "ram"
Response.write "<objectHeight =" & strHeight & "width =" & strwidth & "classid = clSID: CFCDAA03-8BE4-11CF-B84B-0020FBBCCFA>"
Response.write "<paramname =" "_ excentx" "value =" "12700" ">"
Antwort.Write "<paramname =" "_ extententy" "value =" "9525" ">"
Response.write "<paramname =" "autostart" "value =" "-1" ">"
Antwort.Write "<paramname =" "Shuffle" "value =" "0" ">"
Response.write "<paramname =" "Prefetch" "value =" "0" ">"
Antwort.Write "<paramname =" "nolabels" "value =" "0" ">"
Response.write "<paramname =" "Src" "value =" "" "& stRURL &" ""> ""
Antwort.Write "<paramname =" "steuert" "value =" "ImageWindow" ""> ""
Response.write "<paramname =" "" console "" value = "" clip ""> "
Antwort.Write "<paramname =" "Loop" "value =" "0" ">"
Response.write "<paramname =" "numloop" "value =" "0" ">"
Antwort.Write "<paramname =" "center" "value =" "0" ">"
Response.write "<paramname =" "pflegen:" "value =" "0" ">" "
Response.write "<paramname =" "HintergrundColor" "value =" "#000000" ">"
Response.write "</object>"
Response.write "<br>"
Response.write "<objectHeight = 32Width =" & strwidth & "classId = clSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>"
Response.write "<paramname =" "_ excentx" "value =" "12700" ">"