<%
'*******************************
'기능 : 셀프레이 (Strurl, strwidth, strheight)
'매개 변수 : Strurl, 애니메이션 비디오 경로; strwidth, 비디오 높이; stheight, 비디오 높이
'저자 : Alixi
'날짜 : 2007/7/13
'설명 : 사용자의 실제 IP를 얻으 며 여전히 프록시 주소에 유효합니다. 반환 값 : 텍스트 유형 IP 주소
'예 : <%= selplay ( "mov.swf", "120", "90")%>
'*******************************
subselplay (strurl, strwidth, strheight)
dimexts, isext
ifstrurl <> ""그런 다음
isext = lcase (mid (strurl, instrev (strurl, ")+1))))
또 다른
isext = ""
endif
Exts = "avi, wmv, asf, mov, rm, ra, ram, swf"
ifinstr (exts, isext) = 0then
Response.write "불법 비디오 파일"
또 다른
select caseisext
사례 "avi", "wmv", "asf", "mov"
응답.
사례 "mov", "rm", "ra", "ram"
응답. "<objectheight ="& stheight & "width ="& strwidth & "classid = clsid : cfcdaa03-8be4-11cf-b84b-0020afbccfa>"
response.write "<paramname =" "_ ExtentX" "value =" "12700" ">"
response.write "<paramname =" "_ extenty" "value =" "9525" ">"
response.write "<paramname =" "autostart" "value =" "-1" ">"
response.write "<paramname =" "셔플" "value =" "0" ">"
response.write "<paramname =" "prefetch" "value =" "0" ">"
response.write "<paramname =" "nolabels" "value =" "0" ">"
response.write "<paramname =" "src" "value =" ""& strurl & "" ">"
response.write "<paramname =" "컨트롤" "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 =" "mailtingAspect" "value =" "0" ">"
response.write "<paramname =" "backgroundColor" "value =" "#000000" ">"
응답. "</object>"
응답. "<br>"
응답. "<objectheight = 32width ="& strwidth & "classid = clsid : cfcdaa03-8be4-11cf-b84b-0020afbccfa>"
response.write "<paramname =" "_ ExtentX" "value =" "12700" ">"