<!-- #Include File="../Include/Channel_Movie.asp" -->
<!-- #include file="no_cache.asp" -->
<!-- #Include File="Common.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Dim vurl,vgenre
vurl=session("play_video_url")
vgenre=session("play_video_genre")
If isnull(vgenre) Then vgenre=""

Select Case lCase(vgenre)
Case "real"
	session("play_video_genre")="real2"
	vgenre="real2"
Case "real2"
	If lCase(left(vurl,7))="rtsp://" Then
		session("play_video_genre")="real3"
		vgenre="real3"
	Else
		vgenre="OK"
		Cls.Session_Del("play_video_genre")
	End If
Case "real3"
	vgenre="OK"
	Cls.Session_Del("play_video_genre")
Case Else
	Cls.Session_Del("play_video_url")
End Select
If vurl="" or isnull(vurl) Then
%>
<script language=javascript>
<!--
alert("错误信息：\n\n请勿向本站提交非法信息！RM 地址现为加密状态！");
//location.href="./";
window.close();
-->
</script>
<%
End If
'response.redirect vurl
response.write vurl
%>
