<％
'*******************************
'関数：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 =" "" ">"