<%
'***********************************
'Function: Selplay (Strurl, Strwidth, Strheight)
'Parameter: Strurl, jalur video animasi; Strwidth, tinggi video; Strheight, tinggi video
'Penulis: Alixi
'Tanggal: 2007/7/13
'Deskripsi: Dapatkan IP asli pengguna, dan masih berlaku untuk alamat proxy; Nilai Pengembalian: Jenis Teks Alamat IP
'Contoh: <%= selplay ("mov.swf", "120", "90")%>
'***********************************
Subselplay (Strurl, Strwidth, Strheight)
Dimexts, iSext
Ifstrurl <> "" Lalu
iSext = lcase (mid (strurl, instrrev (strurl, ".")+1))
Kalau tidak
iSext = ""
Endif
Exts = "avi, wmv, asf, mov, rm, ra, ram, swf"
Ifinstr (exts, iSext) = 0then
Response.write "File Video Ilegal"
Kalau tidak
SelectCaseisext
Kasus "avi", "wmv", "asf", "mov"
Response.write "<embedId = mediaplayersrc =" & strurl & "width =" & strwidth & "height =" & strheight & "loop =" "false" "autostart =" "true"> </sembed> "
Kasus "mov", "rm", "ra", "Ram"
Response.write "<objectheight =" & strheight & "width =" & strwidth & "classid = clsid: cfcdaa03-8be4-11cf-b84b-0020afbcccfa>"
Response.write "<paramname =" "_ extentx" "value =" "12700" ">"
Response.write "<paramname =" "_ Extente" "value =" "9525" ">"
Response.write "<paramname =" "autostart" "value =" "-1" ">"
Response.write "<paramname =" "shuffle" "value =" "0" ">"
Response.write "<paramname =" "prefetch" "value =" "0" ">"
Response.write "<paramname =" "nolabels" "value =" "0" ">"
Response.write "<paramname =" "src" "value =" "" & strurl & "" ">"
Response.write "<paramname =" "control" "value =" "ImageWindow" ""> "
Response.write "<paramname =" "console" "value =" "clip" ">"
Response.write "<paramname =" "loop" "value =" "0" ">"
Response.write "<paramname =" "numloop" "value =" "0" ">"
Response.write "<paramname =" "center" "value =" "0" ">"
Response.write "<paramname =" "MaintAspect" "value =" "0" ">"
Response.write "<paramname =" "latar belakangcolor" "value =" "#000000" ">"
Response.write "</bestig>"
Response.write "<br>"
Response.write "<objectheight = 32width =" & strwidth & "classid = clsid: cfcdaa03-8be4-11cf-b84b-0020afbbccfa>"
Response.write "<paramname =" "_ extentx" "value =" "12700" ">"