<!--#include file="user_top.asp"-->
<!--#include file="inc/class_blog.asp"-->
<!--#include file="../cm-mov/const.asp"-->
<%
'----------------------------------------
'视频上传upload、在线录制record、视频编辑edit
'
'Author：boxius@gmail.com
'UpDate：10:39 2006-9-17
'----------------------------------------

Dim VideoID, Action, rs

VideoID = Clng(Request.QueryString("VideoID"))
Action = Request.QueryString("action")
%>
<head>
<%
Dim BoXiuNET, ResultStr

if "POST" = Request.ServerVariables("REQUEST_METHOD") then
	Set BoXiuNET = Server.CreateObject("BoXiuNET.BaseFunc")
	Set BoXiuNET.oblog = oblog
	ResultStr = BoXiuNET.InsertRecord()
	VideoID = BoXiuNET.VideoID
	Set BoXiuNET = Nothing

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

if "upload" = Action then	'上传视频
%>
	<!--#include file="../cm-mov/include/video_upload.asp"-->
<%
	Response.End
End if

if "edit" = Action then		'编辑视频
%>
	<!--#include file="../cm-mov/include/video_edit.asp"-->
<%
	Response.End
End if

if "record" = Action then	'在线录制
%>
	<!--#include file="../cm-mov/include/video_record.asp"-->
<%
	Response.End
End if

%>
</body>
</html>