<%
'*******************************
'関数:selplay(strur、strwidth、strheight)
'パラメーター:Strurl、アニメーションビデオパス。ストリット、ビデオの高さ。 strheight、ビデオの高さ
著者:アリクシ
'日付:2007/7/13
'説明:ユーザーの実際のIPを取得しますが、プロキシアドレスに対しても有効です。返品値:テキストタイプIPアドレス
'例:<%= selplay( "mov.swf"、 "120"、 "90")%>
'*******************************
SubselPlay(strurl、strwidth、strheight)
dimexts、isext
ifstrurl <> ""それから
iSext = lcase(mid(strurl、instrrev(strurl、 "。")+1)))
それ以外
iSext = ""
endif
exts = "avi、wmv、asf、mov、rm、ra、ram、swf"
ifinstr(exts、isext)= 0then
Response.Write「違法なビデオファイル」
それ以外
selectcaseisext
ケース「AVI」、「WMV」、「ASF」、「MOV」
respons.write "<embedid = mediaplayersrc ="&strurl& "width ="&strwidth& "height ="&strheight& "loop =" "false" autostart = "" "true"> </embed> "
case "mov"、 "rm"、 "ra"、 "ram"
Response.Write "<objectHeight ="&strheight& "width ="&strwidth& "classID = clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa>"
Response.write "<paramname =" "_ exedx" "value =" "" ">"
Response.write "<paramname =" "_ endy" "value =" "9525" ">"
response.write "<paramname =" "autostart" "value =" "-1" ">"
Response.write "<paramname =" "shuffle" "value =" "" ">"
Response.write "<paramname =" "pretch" "value =" "" ">"
Response.write "<paramname =" "nolabels" "value =" "" ">"
Response.write "<paramname =" "src" "value =" "&" "" ">"
Response.Write "<paramname =" "Controls" "value =" "imageWindow" ">"
response.write "<paramname =" "console" "value =" "クリップ"> "
Response.Write "<paramname =" "loop" "value =" "" ">"
Response.write "<paramname =" "numloop" "value =" "" ">"
Response.write "<paramname =" "center" "value =" "" ">"
response.write "<paramname =" "maintingaspect" "value =" "" ">"
Response.write "<paramname =" "backgroundcolor" "value =" "#000000" ">"
Response.Write "</object>"
Response.Write "<br>"
Response.Write "<ObjectHeight = 32Width ="&strwidth& "classID = clsid:CFCDAA03-8BE4-11CF-B84-0020AFBBCCFA>"
Response.write "<paramname =" "_ exedx" "value =" "" ">"