www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/flv/flv.asp
<!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<%
call zwtj()
'取得参数///////////////////////////////////////////////////////////////////////
function getinfos(lx,val)
dim rsi
set rsi=conn.execute("select * from Jw_flvJw_infos where lx='"&lx&"'")
do while not rsi.eof
Response.Write("<option value='"&rsi("id")&"'")
if val<>"" then
if trim(val)=rsi("id") then
Response.Write(" selected")
end if
end if
Response.Write(">"&rsi("mc")&"</option>")
rsi.movenext
loop
call recordend(rsi)
end function
'取得级别//////////////////////////////////////////////////////////////////////
function getdj(val)
dim rsd
set rsd=conn.execute("select * from Jw_flvlevel")
do while not rsd.eof
Response.Write("<option value='"&rsd("id")&"'")
if val<>"" then
if trim(val)=rsd("id") then
Response.Write(" selected")
end if
end if
Response.Write(">"&rsd("mc")&"</option>")
rsd.movenext
loop
call recordend(rsd)
end function
'属性/////////////////////////////////////////////////////////////////
sub tssx(sx1,sx2)
if sx1=1 then
Response.Write("<span class=""fontr"">[置顶]<span>")
end if
if sx2=1 then
Response.Write("<span class=""fontr"">[禁用]<span>")
end if
end sub
function ymdh()
if fid=0 then
ymdh=""
end if
dim fpath,path,i
fpath=getmc("Jw_flvclass","id",fid,"fpath")
path=split(fpath,",")
for i=1 to (ubound(path)-1)
ymdh=ymdh&"<a href=""?fid="&path(i)&""">"&getmc("Jw_flvclass","id",path(i),"mc")&"</a> > "
next
end function
'//////////////////////////////////////////////////////////////////////////////////////////////////
mytit=mytit&"<a href=""?fid=0"">视频管理</a> > "
select case action
case "add"
mytit=mytit&ymdh()&"添加视频"
call add()
case "del"
call del()
case "show",""
if fid=0 then
mytit=mytit&"所有视频"
else
mytit=mytit&ymdh()&"视频列表"
end if
call show()
case "ups"
mytit=mytit&ymdh()&"编辑视频"
call ups()
case "px"
mytit=mytit&ymdh()&"视频排序"
call cdpx()
case "zd"
call zd()
case "qxzd"
call qxzd()
case "jy"
call jy()
case "qy"
call qy()
case "aadd"
call aadd()
case "doup"
call doup()
case "qqzz"
call qqzz()
end select
'视频列表///////////////////////////////////////////////////////////////////////////////////////
sub show()
if fid=0 then
sql="select * from Jw_flv order by zd desc,qz desc"
else
sql="select * from Jw_flv where fid="&fid&" order by zd desc,"&order("Jw_flvclass",fid)
end if
call record(rs,sql,1)
call head()
%>
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><strong><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加视频 </a>|| <a href="?action=px&fid=<%= fid %>">视频排序</a> || <a href="flvclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" id="form1" method="post" action="">
<tr>
<td width="4%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="58%" bgcolor="#C5E0F3"><strong>视频标题</strong></td>
<td width="13%" align="center" bgcolor="#C5E0F3"><strong>创建人</strong></td>
<td width="13%" align="center" bgcolor="#C5E0F3"><strong>所属分类</strong></td>
<td width="11%" align="center" bgcolor="#C5E0F3"><strong>权重</strong></td>
<td width="11%" align="center" bgcolor="#C5E0F3"><strong>操作</strong></td>
<td width="3%" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onClick="selectit()"/></td>
</tr>
<%
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0
if i mod 2=0 then
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><% If getmc("Jw_flvclass","id",rs("fid"),"newspath")<>"" Then %>
<a href="<%= getmc("Jw_flvclass","id",rs("fid"),"newspath") %>?fid=<%= rs("fid") %>&id=<%= rs("id") %>" target="_blank"><%= rs("mc") %></a>
<% Else %>
<%= rs("mc") %>
<% End If %>
<% call tssx(rs("zd"),rs("show")) %></td>
<td align="center"><%= rs("creater") %></td>
<td align="center">
<%
If rs("fid")=0 Then
Response.Write("根目录")
else
Response.Write(getmc("Jw_flvclass","id",rs("fid"),"mc"))
end if
%></td>
<td align="center"><%= rs("qz") %></td>
<td align="center"><table border="0" cellpadding="2" cellspacing="0">
<tr>
<td valign="bottom"><a href="?action=ups&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091537508.gif" alt="编辑信息" width="14" height="15" border="0" align="absbottom" /></a></td>
<td valign="bottom"><% If rs("show")=0 Then %>
<a href="?action=jy&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091539318.gif" alt="锁定" width="13" height="13" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qy&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/20050703091613193.gif" alt="解锁" width="12" height="13" border="0" align="absbottom" /></a>
<% End If %></td>
<td valign="bottom"><% If rs("zd")=0 Then %>
<a href="?action=zd&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/qxzd.gif" alt="置顶" width="16" height="16" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qxzd&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/zd.gif" alt="取消置顶" width="16" height="16" border="0" align="absbottom" /></a>
<% End If %></td>
<td valign="bottom"><% If rs("tj")=0 Then %>
<a href="?action=tj&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/qxtj.gif" alt="推荐" width="16" height="18" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qxtj&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/tj.gif" alt="取消推荐" width="16" height="18" border="0" align="absbottom" /></a>
<% End If %></td>
</tr>
</table></td>
<td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onclick="td_bgcolor(r<%=rs("id")%>,1);"></td>
</tr>
<%
i=i-1
rs.movenext
loop
%>
<tr>
<td colspan="7" bgcolor="#C5E0F3">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="6%" bgcolor="#C5E0F3"><input name="del" type="button" class="button_1" id="del" value="删除所选" onmouseup="tjqr('您确定要删除？此操作无法逆转！','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
<td width="94%" align="right" bgcolor="#C5E0F3"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub
'添加/////////////////////////////////////////////////////////////////////////////////////////////
sub add()
call chkqx(11,4)
call head()
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><strong><%= mytit %> || <a href="?action=px&fid=<%= fid %>">视频排序</a> || <a href="flvclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="11%" bgcolor="#D9ECF7">所属分类：</td>
<td width="89%" bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="40" value="<%= getlmdh("Jw_flvclass",fid) %>" />
<input name="fid" type="hidden" id="fid" value="<%= fid %>" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_flvclass&fid=<%= fid %>','','left=100,top=100,scrollbars=yes,resizable=yes,width=400,height=300')"/></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频标题：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36%"><input name="mc" type="text" class="inp" id="mc" size="40" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'"/></td>
<td width="64%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">浏 览：</td>
<td bgcolor="#D9ECF7"><input name="hits" type="text" class="inp" id="hits" onfocus="this.className='focus'" onblur="this.className='inp'" value="0" size="40"/></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">关 键 字：</td>
<td bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="gjzstr" type="text" class="inp" id="gjzstr" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="gjz" type="hidden" id="gjz" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" style="cursor:hand;"onclick="MM_openBrWindow('../selgjz.asp','','scrollbars=yes,resizable=yes,width=600,height=400')"/></td>
<td><span class="fonth">可以填写或选择多个关键字，用","隔开</span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#D9ECF7">预览图片：</td>
<td bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<input name="bimg" type="text" class="inp" id="bimg" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="simg" type="hidden" id="simg" /></td>
<td align="center"><img src="../../images/admin/img.gif" alt="上传" width="20" height="20" onclick="MM_openBrWindow('../upfile.asp?lx=1&f1=bimg&f2=simg','','left='+(event.clientX+205)+',top='+(event.clientY+115)+',width=350,height=20')" style="cursor:hand;"/></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频地址：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="242"><input name="softpath" type="text" class="inp" id="softpath" size="40" onfocus="this.className='focus'" onblur="out_Jw_flvpath();this.className='inp'"/>
</td>
<td><img src="../../images/admin/img.gif" alt="上传" width="20" height="20" onclick="MM_openBrWindow('../upfile.asp?lx=2&f1=softpath','','left='+(event.clientX+205)+',top='+(event.clientY+115)+',width=350,height=20')" style="cursor:hand;"/></td>
<td width="411"><div id="csoftpath"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频大小：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23%"><input name="softsize" type="text" class="inp" id="softsize" size="20" onfocus="this.className='focus'" onblur="out_Jw_flvsize();this.className='inp'"/>
MB </td>
<td width="77%"><div id="csoftsize"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频属性：</td>
<td bgcolor="#D9ECF7">
<table border="0" cellpadding="2" cellspacing="0">
<tr>
<td bgcolor="#D9ECF7">审核</td>
<td bgcolor="#D9ECF7"><input name="show" type="checkbox" id="show" value="0" checked="checked"/></td>
<td bgcolor="#D9ECF7">置顶 </td>
<td bgcolor="#D9ECF7"><input name="zd" type="checkbox" id="zd" value="1"/></td>
<td bgcolor="#D9ECF7">推荐</td>
<td bgcolor="#D9ECF7"><input name="tj" type="checkbox" id="tj" value="1"/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频说明：</td>
<td bgcolor="#D9ECF7"><textarea name="content" cols="60" rows="6" class="inp" id="content" onfocus="this.className='focus'" onblur="this.className='inp'"></textarea></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input onclick="goo('?action=aadd')" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeyJw_flv" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo(goo('?action=aadd'));
</SCRIPT>
<%
call connend()
call foot()
end sub
'执行添加//////////////////////////////////////////////////////////////////////////////////////
sub aadd()
call chkqx(11,4)
dim mc,qz,fid1,fpath,content,simg,bimg,spic,gjz,hits,gjzstr,zt,show,zd,softpath,softsize,tj
mc=getform("mc",1,1)
fid1=getform("fid",2,0)
qz=scpx("Jw_flv",fid1)
simg=getform("simg",1,1)
bimg=getform("bimg",1,1)
hits=getform("hits",2,0)
fpath=getmc("Jw_flvclass","id",fid1,"fpath")
content=getform("content",1,1)
show=getform("show",2,0)
zd=getform("zd",2,0)
softpath=getform("softpath",1,1)
softsize=getform("softsize",2,0)
gjzstr=getform("gjzstr",1,1)
tj=getform("tj",2,0)
if hits="" then
hits=0
end if
if show="" then
show=0
end if
if zd="" then
zd=0
end if
if tj="" then
tj=0
end if
'判断是否根栏目//////////////////////////////////////////////////////////////////////////////
if fid1=0 then
call errs("请选择视频分类")
end if
gjz=clgjz(gjzstr)
'插入记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select top 1 * from Jw_flv where 1=1",3)
rs.addnew()
rs("mc")=mc
rs("qz")=qz
rs("fid")=fid1
rs("fpath")=fpath
rs("content")=content
rs("simg")=simg
rs("bimg")=bimg
rs("gjz")=gjz
rs("hits")=hits
rs("show")=show
rs("zd")=zd
rs("softpath")=softpath
rs("softsize")=softsize
rs("creater")=creater
rs("tj")=tj
rs("ctim")=now()
rs("lastm")=now()
rs.update()
call recordend(rs)
'给图片加水印////////////////////////////////////////////////////////////////////////////////
if spic<>"" then
str=split(spic,"|")
if tjsy=0 then
if sylx=0 then '图片水印
for j=0 to ubound(str)-1
call picsy(str(j))
conn.execute("insert into upfile (path,ctim,filesize,ext) values ('"&str(j)&"',now(),"&getfilesize(pdlj(str(j)))&",'"&fileexec(str(j))&"')")
next
else '文字水印
for j=0 to ubound(str)-1
call textsy(str(j))
conn.execute("insert into upfile (path,ctim,filesize,ext) values ('"&str(j)&"',now(),"&getfilesize(pdlj(str(j)))&",'"&fileexec(str(j))&"')")
next
end if
end if
end if
'结束/////////////////////////////////////////////////////////////////////////////////////
if err.number>0 then
call errs("有错误发生")
end if
call errs(0)
end sub
'修改////////////////////////////////////////////////////////////////////////////////////////////
sub ups()
call chkqx(11,5)
set rs=conn.execute("select * from Jw_flv where id="&id)
if rs.eof then
call cc("记录不存在！")
end if
dim gjz,str,i,gjzstr
gjz=rs("gjz")
if gjz<>"" then
str=split(gjz,",")
for i=0 to ubound(str)
gjzstr=gjzstr&getmc("Jw_newskey","id",str(i),"mc")&","
next
gjzstr=left(gjzstr,len(gjzstr)-1)
end if
call head()
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#1C75A7" id="tit"> <strong><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加视频 </a>|| <a href="?action=px&fid=<%= fid %>">视频排序</a> || <a href="flvclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="10%" bgcolor="#D9ECF7">所属分类：</td>
<td width="90%" bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="40" value="<%= getlmdh("Jw_flvclass",rs("fid")) %>" />
<input name="fid" type="hidden" id="fid" value="<%= rs("fid") %>" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=Jw_flvclass&fid=<%= rs("fid") %>','','left=100,top=100,scrollbars=yes,resizable=yes,width=400,height=300')"/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频标题：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36%"><input name="mc" type="text" class="inp" id="mc" size="40" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'" value="<%= rs("mc") %>"/></td>
<td width="64%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">浏 览：</td>
<td bgcolor="#D9ECF7"><input name="hits" type="text" class="inp" id="hits" size="40" value="<%= rs("hits") %>" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">关 键 字：</td>
<td bgcolor="#D9ECF7"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="gjzstr" type="text" class="inp" id="gjzstr" size="40" value="<%= gjzstr %>" onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="gjz" type="hidden" id="gjz" value="<%= gjz %>"/></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selgjz.asp','','scrollbars=yes,resizable=yes,width=600,height=400')"/></td>
<td><span class="fonth">可以填写或选择多个关键字，用","隔开</span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#D9ECF7">预览图片：</td>
<td bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input value="<%= rs("bimg") %>" name="bimg" type="text" class="inp" id="bimg" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="simg" type="hidden" id="simg" value="<%= rs("simg") %>"/></td>
<td align="center"><img src="../../images/admin/img.gif" alt="上传" width="20" height="20" onclick="MM_openBrWindow('../upfile.asp?lx=1&f1=bimg&f2=simg&up=1&tab=Jw_flv&id=<%= id %>','','left='+(event.clientX+205)+',top='+(event.clientY+115)+',width=350,height=20')" style="cursor:hand;"/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频地址：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36%"><input name="softpath" type="text" class="inp" id="softpath" size="40" onfocus="this.className='focus'" onblur="out_Jw_flvpath();this.className='inp'" value="<%= rs("softpath") %>"/></td>
<td width="1%"><img src="../../images/admin/img.gif" alt="上传" width="20" height="20" onclick="MM_openBrWindow('../upfile.asp?lx=2&f1=softpath&up=1&tab=Jw_flv&id=<%= id %>','','left='+(event.clientX+205)+',top='+(event.clientY+115)+',width=350,height=20')" style="cursor:hand;"/></td>
<td width="61%"><div id="csoftpath"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频大小：</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23%"><input name="softsize" type="text" class="inp" id="softsize" size="20" onfocus="this.className='focus'" onblur="out_Jw_flvsize();this.className='inp'" value="<%= rs("softsize") %>"/>
MB </td>
<td width="77%"><div id="csoftsize"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频属性：</td>
<td bgcolor="#D9ECF7"><table border="0" cellpadding="2" cellspacing="0">
<tr>
<td bgcolor="#D9ECF7">审核</td>
<td bgcolor="#D9ECF7"><input name="show" type="checkbox" id="show" value="0" <% If rs("show")=0 Then Response.Write("checked") end if%>/></td>
<td bgcolor="#D9ECF7">置顶 </td>
<td bgcolor="#D9ECF7"><input name="zd" type="checkbox" id="zd" value="1" <% If rs("zd")=1 Then Response.Write("checked") end if%>/></td>
<td bgcolor="#D9ECF7">推荐</td>
<td bgcolor="#D9ECF7"><input name="tj" type="checkbox" id="tj" value="1" <% If rs("zd")=1 Then Response.Write("checked") end if%>/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">视频说明：</td>
<td bgcolor="#D9ECF7"><textarea name="content" cols="60" rows="6" class="inp" id="content" onfocus="this.className='focus'" onblur="this.className='inp'"><%= rs("content") %></textarea></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">最后更新：</td>
<td bgcolor="#D9ECF7"><input name="lastm" type="text" class="inp" id="lastm" size="50" disabled="disabled" value="<%= rs("lastm") %>" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input onclick="goo('?action=doup&id=<%= rs("id") %>&fid=<%= fid %>')" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'" /></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeyJw_flv" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo('?action=doup&id=<%= id %>');
</SCRIPT>
<%
call connend()
call foot()
end sub
'执行修改////////////////////////////////////////////////////////////////////////////////////
sub doup()
call chkqx(11,5)
dim mc,fid1,fpath,content,simg,bimg,spic,gjz,hits,gjzstr,show,zd,softpath,softsize,tj
mc=getform("mc",1,1)
fid1=getform("fid",2,0)
simg=getform("simg",1,1)
bimg=getform("bimg",1,1)
hits=getform("hits",2,0)
fpath=getmc("Jw_flvclass","id",fid1,"fpath")
content=getform("content",1,1)
show=getform("show",2,0)
zd=getform("zd",2,0)
softpath=getform("softpath",1,1)
softsize=getform("softsize",2,0)
gjzstr=getform("gjzstr",1,1)
tj=getform("tj",2,0)
if hits="" then
hits=0
end if
if show="" then
show=0
end if
if zd="" then
zd=0
end if
if tj="" then
tj=0
end if
dim fidy
fidy=getmc("Jw_flv","id",id,"fid")
'判断是否根栏目//////////////////////////////////////////////////////////////////////////////
if fid1=0 then
call errs("不能将视频移到根目录下")
end if
gjz=clgjz(gjzstr)
'更新记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select * from Jw_flv where id="&id,3)
rs("mc")=mc
rs("fid")=fid1
rs("fpath")=fpath
rs("content")=content
rs("simg")=simg
rs("bimg")=bimg
rs("gjz")=gjz
rs("hits")=hits
rs("show")=show
rs("zd")=zd
rs("tj")=tj
rs("softpath")=softpath
rs("softsize")=softsize
rs.update
call recordend(rs)
call zhgx("Jw_flv",id)
'结束/////////////////////////////////////////////////////////////////////////////////////
if err.number>0 then
call errs("有错误发生")
end if
call errs(0)
end sub
'删除//////////////////////////////////////////////////////////////////////////////////////////
sub del()
call chkqx(11,6)
dim dpic,j
dim idstr,iid,i
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")
for i=0 to ubound(iid)
'删除视频
set rs=conn.execute("select * from Jw_flv where id="&iid(i))
if not rs.eof then
'删除小图
if not rs("simg")="" then
call delfile(rs("simg"))
end if
if not rs("bimg")="" then
call delfile(rs("bimg"))
end if
end if
call recordend(rs)
'删除视频
conn.execute("delete * from Jw_flv where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
'视频排序///////////////////////////////////////////////////////////////////////////////
sub cdpx()
call chkqx(11,5)
if fid=0 then
sql="select * from Jw_flv order by zd desc,"&order("Jw_flvclass",fid)
else
sql="select * from Jw_flv where fid="&fid&" order by zd desc,"&order("Jw_flvclass",fid)
end if
call record(rs,sql,1)
call head()
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><strong><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加视频 </a>|| <a href="?action=px&fid=<%= fid %>">视频排序</a> || <a href="flvclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="2%" align="center" bgcolor="#D9ECF7"><strong>ID</strong></td>
<td width="43%" bgcolor="#D9ECF7"><strong>视频标题</strong></td>
<td width="29%" align="center" bgcolor="#D9ECF7"><strong>权重</strong></td>
</tr>
<%
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0
if i mod 2=0 then
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<form action="?action=qqzz&fid=<%= fid %>&id=<%= rs("id") %>" name="form" id="form" method="post">
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><%= rs("mc") %></td>
<td align="center"><input name="qz" type="text" class="btn2" id="qz" size="8" value="<%= rs("qz") %>"><input name="Submit" type="submit" class="btn2" value="更新"></td>
</tr>
</form>
<%
i=i+1
rs.movenext
loop
%>
<tr>
<td colspan="3" bgcolor="#EAF4FB"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub
'执行排序//////////////////////////////////////////////////////////////////////////////
sub qqzz()
call chkqx(11,5)
if fid="" then
fid=getmc("Jw_flv","id",id,"fid")
end if
call dopx("Jw_flv",fid,id,Trim(Request.Form("qz")))
call zhgx("Jw_flv",id)
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
'置顶//////////////////////////////////////////////////////////////////////////////////////
sub zd()
call chkqx(11,5)
dim val
val=1
if id<>"" then
call uptab("Jw_flv","zd",val,"id",id)
call zhgx("Jw_flv",id)
end if
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
'取消置顶//////////////////////////////////////////////////////////////////////////////////////
sub qxzd()
call chkqx(11,5)
dim val
val=0
if id<>"" then
call uptab("Jw_flv","zd",val,"id",id)
call zhgx("Jw_flv",id)
end if
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
'禁用//////////////////////////////////////////////////////////////////////////////////////
sub jy()
call chkqx(11,5)
dim val
val=1
if id<>"" then
call uptab("Jw_flv","show",val,"id",id)
call zhgx("Jw_flv",id)
end if
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
'起用//////////////////////////////////////////////////////////////////////////////////////
sub qy()
call chkqx(11,5)
dim val
val=0
if id<>"" then
call uptab("Jw_flv","show",val,"id",id)
call zhgx("Jw_flv",id)
end if
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
%>
<script language="javascript" src="/<%= hturl %>/inc/chk.js"></script>
<script language="javascript">
function out_content()
{
var chk=true;
chk=outb(GE("msg"),cons.getHTML()," 视频内容已输入"," 请输入视频内容");
return chk;
}
function goo(act)
{
var chk=true;
if (!out_mc()){chk=false;}
if (!out_Jw_flvpath()){chk=false;}
if (!out_Jw_flvsize()){chk=false;}
if (chk==true){
GE("go").disabled="disabled";
GE("reset").disabled="disabled";
var fid=GE("fid").value;
var mc=escape(GE("mc").value);
var content=escape(GE("content").value);
var gjzstr=escape(GE("gjzstr").value);
var gjz=GE("gjz").value;
var hits=GE("hits").value;
var simg=escape(GE("simg").value);
var bimg=escape(GE("bimg").value);
var softpath=escape(GE("softpath").value);
var softsize=GE("softsize").value;
var show=1;
if(GE("show").checked){show=0;}
var zd=0;
if(GE("zd").checked){zd=1;}
var tj=0;
if(GE("tj").checked){tj=1;}
var Ajax = new oAjax(act,backs);
var arrKey = new Array("fid","mc","content","gjzstr","gjz","hits","simg","bimg","softpath","softsize","show","zd","tj");
var arrValue =new Array(fid,mc,content,gjzstr,gjz,hits,simg,bimg,softpath,softsize,show,zd,tj);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+" 操作成功";
window.location.href="?fid=<%= fid %>"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+" "+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
</script>