<!--#include file="conn.asp"-->
<!--#include file="inc/class_sys.asp"-->
<!--#include file="../cm-mov/const.asp"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'在线录制前的用户验证功能
'
'Author:CM
'Update:6:32 2006-9-9
'Email:boxius@gmail.com  
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%><%
Dim oblog
Set oblog = New class_sys
oblog.start

'验证登陆情况
if not oblog.checkuserlogined() then
	response.Redirect("login.asp?fromurl="&replace(oblog.GetUrl,"&","$"))
End if

Dim Action, ResultStr, BoXiuNET, VideoID
Action = Request.QueryString("action")

Set BoXiuNET = Server.CreateObject("BoXiuNET.BaseFunc")
Set BoXiuNET.oblog = oblog

if "userid" = Action then	'请求验证用户
	ResultStr = BoXiuNET.recordGET_userid(MyDomain, FmsVrtPath, FmsUsePort)
	if ResultStr <> "www.boxiu.net" then Response.Write(ResultStr)
end if

if "record" = Action then	'请求保存flv流文件
	ResultStr = BoXiuNET.recordGET_record(SavePath, FmsAppPath, FmsVrtPath, CmdPath, ImagePath)
	VideoID = BoXiuNET.VideoID
	Set BoXiuNET = Nothing

	if "www.boxiu.net" = ResultStr then
		Response.Redirect("../cm-mov_video.asp?action=edit&logid=" & VideoID & "&t=10")
	else
		Response.Write(ResultStr)
	End if
end if

Set BoXiuNET = Nothing
%>