<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Include/connect.asp" -->
<%
topic=request.form("topic")
username=session("Username")
videosysgroup=request.form("videosysgroup")
videogroup=request.form("videogroup")
content=request.form("content")
filename=request.form("filename")

Set fs = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
fs.CreateFolder("F:\UserVideo\"&username&"")
SFile = Server.MapPath("record/streams/_definst_/"&filename&".flv")
NFile = "F:\UserVideo\"&username&"\"&filename&".flv"
on Error Resume Next
fs.MoveFile SFile, NFile
fs.close
set fs=nothing

'信息入库
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLVideo where VideoID is null"
rs.open sql,cn,1,3
rs.addnew
rs("Topic")=topic
rs("Username")=username
rs("SysGroupID")=videosysgroup
rs("GroupID")=videogroup
rs("Content")=content
rs("Filename")=filename
rs("Filename_f")=""&filename&".flv"
rs("Type")=1
rs("Audit")=1
rs("Server")="v1"
rs.update
rs.close
set rs=nothing

set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_VideoSysGroup where GroupID="&request.form("videosysgroup")&""
rs.open sql,cn,1,3
rs("VideoNum")=rs("VideoNum")+1
rs.update
rs.close
set rs=nothing
%>
<font size="2">视频保存成功！</font><a href="#" onClick="window.opener.location.reload(); window.close();"><img src="../Images/Hompy/btn_confirm.gif" width="39" height="18" border="0" align="absmiddle"></a>