<!-- #include file="../include/no_cache.asp" -->
<%
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"
    session.Contents.Remove("play_video_genre")
  end if
case "real3"
  vgenre="OK"
  session.Contents.Remove("play_video_genre")
case else
  session.Contents.Remove("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
%>