<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/admin_code_Flv.asp"-->
	<script type=text/javascript>var xijuan={channel:"video"}</script>
	<script type=text/javascript src="Inc/main.js"></script>
<body style="overflow-y:hidden"> 
<%
if Request.Cookies("asp163")("UserName")="" then
	response.Redirect "User_Login.asp"
end if

dim PhotoID,rsPhoto,sql,FoundErr,ErrMsg,PurviewChecked
dim ClassID,tClass,ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster
dim SkinID,LayoutID,SkinCount,LayoutCount,BrowsePurview,AddPurview
PurviewChecked=False
FoundErr=False
PhotoID=trim(request("PhotoID"))
if PhotoID="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>请指定要修改的视屏ID</li>"
	call WriteErrMsg()
	call CloseConn()
	response.end
else
	PhotoID=CLng(PhotoID)
end if
sql="select * from Flv where PhotoID=" & PhotoID & ""
Set rsPhoto= Server.CreateObject("ADODB.Recordset")
rsPhoto.open sql,conn,1,1
if rsPhoto.bof and rsPhoto.eof then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>找不到视屏</li>"
	call WriteErrMsg()
else
	ClassID=rsPhoto("ClassID")
	set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster From FlvClass where ClassID=" & ClassID)
	if tClass.bof and tClass.eof then
		founderr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的栏目</li>"
	else
		ClassName=tClass(0)
		RootID=tClass(1)
		ParentID=tClass(2)
		Depth=tClass(3)
		ParentPath=tClass(4)
		ClassMaster=tClass(5)
	end if
	if rsPhoto("Editor")=AdminName and rsPhoto("Passed")=False then
		PurviewChecked=True
	else
		if AdminPurview=1 or AdminPurview_Photo<=2 then
			PurviewChecked=True
		else
			PurviewChecked=CheckClassMaster(ClassMaster,AdminName)
			if PurviewChecked=False and ParentID>0 then
				set tClass=conn.execute("select ClassMaster from FlvClass where ClassID in (" & ParentPath & ")")
				do while not tClass.eof
					PurviewChecked=CheckClassMaster(tClass(0),AdminName)
					if PurviewChecked=True then exit do
					tClass.movenext
				loop
			end if
		end if
		if PurviewChecked=False then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>对不起，您的权限不够，不能修改此视屏！</li>"
		end if
	end if
end if
if FoundErr=True then
	call WriteErrMsg()
else
%>
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
<style type="text/css">
<!--
body {	background-color: #FFFFFF;
	margin-right: 8px;
	margin-bottom: 8px;
	margin-left: 8px;
	margin-top: 0px;
}
-->
</style>


</head>
<body>
 <form method="POST" name="myform" onSubmit="return CheckForm();" action="User_flvSave.asp" target="_self">
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr>
       <td width="1" height="1"></td>
       <td height="1" bgcolor="#BCBCBC"></td>
       <td width="1" height="1"></td>
     </tr>
     <tr>
       <td bgcolor="#BCBCBC"></td>
       <td height="25" align="center" bgcolor="f2f2f2"><strong>--- 修改视屏 ---</strong></td>
       <td bgcolor="#BCBCBC"></td>
     </tr>
   </table>
   <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr align="center">
                        <td>
                          <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
                                                       <tr bgcolor="#FFFFFF">
                              <td width="21%" align="right"><strong>分 &nbsp;&nbsp;类：</strong></td>
                             <td width="79%"> <%
			if AdminPurview=1 or AdminPurview_Photo<=2 then
			 	response.write "<select name='ClassID'>"	
				call Admin_ShowClass_Option(3,rsPhoto("ClassID"))
			

			 else
			 	call Admin_ShowPath2(ParentPath,ClassName,Depth)
				response.write "<input type='hidden' name='ClassID' value='" & rsPhoto("ClassID") & "'>"
			 end if
			 %>  </td>











                            </tr>
                            <tr bgcolor="#FFFFFF">
                              <td width="21%" align="right"><strong>标 &nbsp;&nbsp;题：</strong></td>
                              <td width="79%"><input name="PhotoName" type="text" id="PhotoName" value="<%=rsPhoto("PhotoName")%>" size="40" maxlength="255">
                                <input name="Keyword" type="hidden"
           id="Keyword" value="d">
                                  <strong>
                                                                   <input name="Author" type="hidden"
           id="Author3" size="17" maxlength="100" >
                                </strong></td>
                            </tr>
							
                            <tr bgcolor="#FFFFFF" class="tdbg">
                              <td rowspan="2" align="right"><strong><FONT color=red>缩略图：</FONT></strong></td>
                              <td>
                                <input name="PhotoUrl_Thumb" type="text" id="PhotoUrl_Thumbsm" value="<%=rsPhoto("PhotoUrl_Thumb")%>" size="40" maxlength="200">
                                <input name="PhotoUrl_Thumbsm" type="hidden" id="PhotoUrl_Thumbsm" value="<%=rsPhoto("PhotoUrl_Thumb")%>" size="40" maxlength="200">
                                <input name="PhotoUrl" type="hidden" id="PhotoUrl" size="40" maxlength="200" value="<%=rsPhoto("PhotoUrl")%>"></td>
                            </tr>  <tr bgcolor="#FFFFFF" class="tdbg">
                              <td><iframe style="top:2px" id="UploadFiles" src="upload_flvs.asp?PhotoUrlID=0" frameborder=0 scrolling=no width="290" height="25"></iframe></td>
                              </tr>
                            <tr bgcolor="#FFFFFF" class="tdbg">
                              <td align="right" valign="middle"><strong><FONT color=red>视屏地址：</FONT></strong>&nbsp;
</td>
                              <td>
            <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
            </table>
                          

<input name="PhotoIntro" type="text" id="PhotoIntro" value="<%=rsPhoto("PhotoIntro")%>" size="40"><BR>
 <iframe style="top:2px" id="UploadFiles" src="1upload_flvs.asp?PhotoIntro=0" frameborder=0 scrolling=no width="290" height="25"></iframe>  



                              </tr>
                            <tr bgcolor="#FFFFFF" class="tdbg">
                              <td align="right" valign="middle"><strong><FONT color=red>视屏地址：</FONT></strong>&nbsp; </td>
 <td>
            <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
            </table>

<INPUT name=AuthorHomepage style="WIDTH: 290px; HEIGHT: 33px" id=AuthorHomepage size=30 value="<%=rsPhoto("AuthorHomepage")%>" size="40">


                                <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
            </table>

                              <input name="PhotoSize" type="hidden" id="PhotoSize5" size="1" maxlength="10" value="0">                               </td>
                            </tr>
                            <tr bgcolor="#FFFFFF" class="tdbg">
                              <td colspan="2" align="center" valign="middle">
原创<input type="radio" name="AuthorEmail" value="1"/>&nbsp;转载<input type="radio" name="AuthorEmail" value="2"/>
							  <input name="PhotoID" type="hidden" id="PhotoID2" value="<%=PhotoID%>"><input name="Action" type="hidden" id="Action2" value="Modify">
                      <input
  name="Add" type="submit"  id="Add2" value=" 修 改 " style="cursor:hand;">   </td>
                            </tr>
                        </table>  
</td>
                      </tr>
   </table>
</form>

			<div class="caption">
				<span class="blue_bold font14">版权信息说明及提示</span><br />
					1. 您应保证您上传的内容正当、合法,不侵犯他人的肖像权、名誉权、知识产权等任何合法权益。<br />
					2. 您的上传代表您同意以任何方式使用您的内容且无须支付费用，除非双方另有约定。<br />
					3. 芜湖播客家园网如果认为您上传的内容不适当,有权删除或者修改。<br />
					4. 芜湖播客家园作为网络服务提供者，对非法转载，盗版行为的发生不具备充分的监控能力。
					   但是一经发现，负有移除盗版和非法转载作品以及停止继续传播的义务。芜湖播客家园网对
					   他人在网站上实施的此类侵权行为不承担法律责任，侵权的法律责任概由其本人承担。
			</div>
		</div>
	</div>
</div>

</body>
</html>

<%
end if
call CloseConn()
%>