
<% 
 '===========================================================================================
	'软件名称：126 cms 视频影视管理系统
	'程序版权：126电影               '咨询QQ：479025
	'开发作者：magicblack(479025)    '官方网站：http://www.126oo.com/
	'Copyright (C) 2009 - ... 126oo.com  All Rights Reserved.
	'郑重声明:
	'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
	'    2、任何个人或组织不得以盈利为目的发布,修改,本软件及其他副本上一切关于版权的信息；
	'    3、126电影保留此软件的法律追究权利；
'==========================================================================================
%>

<%
response.Charset="GBK"
Dim app_Play
app_Play="联盟数据1 (unionflv)|联盟数据2 (57ooflv)|优酷视频 (youku)|我乐视频 (56)|新浪视频(iask)|土豆视频 (tudou)|ku6视频 (ku6)|ＱＱ播客 (qq)|搜狐视频 (sohu)|六房间 (6rooms)|BOBOP2P (bobo)|Ｑ播P2P (qvod)|FLV视频 (flv)|flash(swf)文件 (swf)|Real播放器 (real)|Media播放器 (media)|56高清 (56hd)|搜狐高清 (sohuhd)|天线高清 (openv)|土豆高清 (tudouhd)|新浪高清 (sinahd)|ku6高清 (ku6hd)|迅雷Gvod (gvod)"

Dim app_UnionSource
app_UnionSource = "www.126oo.com (unionflv)|www.126oo.com (57ooflv)"

Function GetUnionPlayUrl(UnionSource)
	Dim YW_P_1,YW_P_2,YW_P_3,YW_P_i
	Dim YW_P_4,YW_P_5,YW_P_6,YW_P_j
	
	YW_P_1=Split(app_UnionSource,"|")
	YW_P_2=UBound(YW_P_1)
	For YW_P_i=0 To YW_P_2
		If InStr(YW_P_1(YW_P_i),"("&UnionSource&")")>0 Then 
			YW_P_3 = YW_P_1(YW_P_i)
			YW_P_4 =Split(YW_P_3," ")
			YW_P_5 = UBound(YW_P_4)
			if YW_P_5 > 0 then 
				YW_P_6 = YW_P_4(0)
				GetUnionPlayUrl = YW_P_6
			end if
			exit function
		end if
	Next 
end Function


Function GetShowPlaySelect(PlaySource)
Dim YW_P_1,YW_P_2,YW_P_3,YW_P_i
YW_P_1=Split(app_Play,"|")
YW_P_2=UBound(YW_P_1)
For YW_P_i=0 To YW_P_2
	If InStr(YW_P_1(YW_P_i),"("&PlaySource&")")>0 Then 
		YW_P_3="<option value="""&Split(Split(YW_P_1(YW_P_i),")")(0),"(")(1)&""" selected>"&YW_P_1(YW_P_i)&"</option>"
	Else 
		YW_P_3="<option value="""&Split(Split(YW_P_1(YW_P_i),")")(0),"(")(1)&""">"&YW_P_1(YW_P_i)&"</option>"
	End If 
GetShowPlaySelect=GetShowPlaySelect&YW_P_3
Next 
End Function

Function GetShowPlayText(app_Play)

Select Case app_Play
Case "youku":GetShowPlayText="优酷"
Case "56":GetShowPlayText="我乐"
Case "flv":GetShowPlayText="FLV"
Case "tudou":GetShowPlayText="土豆"
Case "iask":GetShowPlayText="新浪"
Case "6rooms":GetShowPlayText="六房间"
Case "qq":GetShowPlayText="ＱＱ"
Case "ku6":GetShowPlayText="酷6"
Case "sohu":GetShowPlayText="搜狐"
Case "bobo":GetShowPlayText="BOBO"
Case "qvod":GetShowPlayText="Ｑ播"
Case "real":GetShowPlayText="Real"
Case "media":GetShowPlayText="Media"
Case "unionflv":GetShowPlayText="联盟数据1"
Case "57ooflv":GetShowPlayText="联盟数据2"
Case "sohuhd":GetShowPlayText="搜狐高清"
Case "openv":GetShowPlayText="天线高清"
Case "tudouhd":GetShowPlayText="土豆高清"
Case "sinahd":GetShowPlayText="新浪高清"
case "ku6hd":GetShowPlayText="ku6高清"
Case "govd":GetShowPlayText="迅雷Gvod"
Case "swf":GetShowPlayText="flash(swf)文件"
Case Else:GetShowPlayText="未知"
End Select

End function
%>