<٪
'*********************************
"الوظيفة: Selplay (Strurl ، Strwidth ، Strheight)
'المعلمات: Strurl ، مسار فيديو الرسوم المتحركة ؛ strwidth ، ارتفاع الفيديو ؛ Strheight ، ارتفاع الفيديو
المؤلف: Alixi
"التاريخ: 2007/7/13
الوصف: الحصول على عنوان IP الحقيقي للمستخدم ، ولا يزال صالحًا لعنوان الوكيل ؛ قيمة الإرجاع: عنوان IP نوع النص
"مثال: <٪ = selplay (" mov.swf "،" 120 "،" 90 ") ٪>
'*********************************
Subselplay (Strurl ، Strwidth ، Strheight)
dimexts ، isext
ifstrurl <> "" ثم
isext = lace (mid (Strurl ، Instrrev (strurl ، ".")+1))
آخر
isext = ""
Endif
exts = "Avi ، WMV ، ASF ، Mov ، RM ، RA ، RAM ، SWF"
ifinstr (exts ، isext) = 0then
استجابة. الكتابة "ملف فيديو غير قانوني"
آخر
selectaseSeSt
حالة "AVI" ، "WMV" ، "ASF" ، "Mov"
Response.write "<inmbedid = mediaPlayerSrc =" & strurl & "width =" & strwidth & "height =" & strheight & "loop =" false "" autostart = "true"> </inmbed> "
حالة "Mov" ، "RM" ، "RA" ، "RAM"
استجابة. write "<Objectheight =" & strheight & "width =" & strwidth & "classid = clsid: CFCDAA03-8BE4-11CF-B84B-0020FBBCCFA>"
استجابة. write "<ParmName =" "_ extentx" "value =" "12700" ">"
استجابة. write "<ParmName =" "_ extenty" "value =" "9525" ">"
استجابة. write "<ParmName =" "autostart" "value =" "-1" ">"
استجابة. write "<ParmName =" "Shuffle" "value =" "0" ">"
استجابة. write "<ParmName =" "prefech" "value =" "0" ">"
استجابة. write "<ParmName =" "nolabels" "value =" "0" ">"
Response.write "<ParmName =" "src" "value =" "" & strurl & "" ">"
استجابة. write "<ParmName =" "عناصر التحكم" "value =" "ImageWindow" ""> "
استجابة. write "<ParmName =" "Console" "value =" "Clip" ">"
استجابة. write "<ParmName =" "loop" "value =" "0" ">"
استجابة. write "<ParmName =" "numloop" "value =" "0" ">"
استجابة. write "<ParmName =" "المركز" "value =" "0" ">"
استجابة. write "<ParmName =" "stainAtnaspect" "value =" "0" ">"
reponse.write "<ParmName =" "BackgroundColor" "value =" "#000000" ">"
استجابة. "</object>"
الرد. "<br>"
استجابة. write "<objectheight = 32width =" & strwidth & "classid = clsid: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>"
استجابة. write "<ParmName =" "_ extentx" "value =" "12700" ">"