<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Include/checklogin.asp" -->
<!--#include file="Include/connect.asp" -->
<%
VideoID=request.querystring("videoid")
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLVideo where VideoID="&videoid&""
rs.open sql,cn,1,1

cn.execute ("delete from Show5_ALLVideo where VideoID='"&VideoID&"'")
cn.execute ("delete from Show5_Videocomment where VideoID='"&VideoID&"'")
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
fso.DeleteFile("F:\UserVideo\"&rs("Username")&"\"&rs("Filename")&".flv")
fso.DeleteFile("E:\Wwwroot\show5net\Videoimage\"&rs("Filename")&".jpg")
set fso=nothing
rs.close
set rs=nothing
Response.write("<script>alert('³É¹¦É¾³ýÊÓÆµ£¡');window.location.replace('m_uvideo.asp');</script>")
%>