📄 admin_video.asp
字号:
</tr>
<tr>
<td><div align="center">影片类型：</div></td>
<td>[ <img src="images/video/real.gif" width="16" height="16">
<input type="radio" value="rm" name="movie" checked>
] [<img src="images/video/mov.gif" width="18" height="18"> <input type="radio" value="mov" name="movie">
] [<img src="images/video/media.gif" width="17" height="17"> <input type="radio" value="md" name="movie">
] </td>
</tr>
<tr>
<td><div align="center">开放方式：</div></td>
<input type="hidden" name="serverip" size="13" class="smallinput" maxlength="15" value="<%=request("serverip")%>">
<%set rs=server.createobject("adodb.recordset")
sql="select * from video_sev where id="&request("serverip")
rs.open sql,conn,1,1
%>
<td> <input type="radio" value="1" name="ld" checked>在线观看 <input type="radio" value="0" name="ld">影片下载 <input type="radio" value="2" name="ld">即能观看也可下载</td>
</tr>
<tr><td align=center>影片主演：</td><td><input type=text name=name value='无' size=50 maxlength=50></td></tr>
<script language="javascript">
function setid()
{
str='';
if(!window.add_frm.no.value)
window.add_frm.no.value=1;
for(i=1;i<=window.add_frm.no.value;i++)
str+=' 影片地址： <%=rs("ipsip")%><%=rs("movie")%> <input type="text" name="url'+i+'" class="button" style="padding-left:1pt" size=15 value="'+window.add_frm.no1.value+''+i+''+window.add_frm.no2.value+'"><select name="free'+i+'" class="button" style="padding-left:1pt" size=1 value=""><option value="0">收费</option><option value="1">免费</option></select> 第'+i+'集<BR>';
window.upid.innerHTML=str+'<br>';
}
</script>
<tr><td align=center>影片地址：</td><td><input type="text" name="no1" class="button" value="" size="32">集数<span lang="en-us"> </span> <input type="text" name="no" class="button" value="2" size="2">格式<input type="text" name="no2" class="button" value=".rm" size="5">
<input type="button" name="Button" class="buttonface" onclick="setid();" value="设定">
(在点击“设定”按钮后才可输入影片对应地址) <% response.write redx %>
</td></tr>
<tr>
<td colspan="2" id="upid" width="564"></td>
</tr>
<tr><td valign=top align=center><br>影片备注</td><td><textarea rows=6 name=remark cols=70></textarea></td></tr>
<tr><td align=center>影片长度：</td><td><input type=text name=long size=12 value='90分钟'> 图片：<input type=test name=pic size=28> <a href='upload.asp?uppath=video&upname=<%response.write ispic%>&uptext=pic' target=upload_frame>上传图片</a> <a href='upload.asp?uppath=video&upname=n&uptext=remark' target=upload_frame>上传至内容</a></td></tr>
<tr><td align=center>上传文件：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=video&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
<tr height=30><td></td><td><input type=submit value=' 提 交 添 加 '></td></tr>
</form></table><%
end if
%></td></tr></table><%
end sub
sub video_main()
dim rssum,thepages,page,viewpage,del_temp
%>
<table border="0" width="600" cellspacing="0" cellpadding="0">
<tr align=center height=300 valign=top><td width=120 class=htd>
<%
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from videotype order by typeid",conn,1,1
do while not rs.eof
nid=int(rs(0))
if cid=nid then
response.write vbcrlf&" <img src=""images/video/box.gif"" width=""12"" height=""11"" border=""0""> <a href='?c_id="&nid&"'><b><font class=red_3>"&rs(1)&"</b></font></a><br>"
else
response.write vbcrlf&" <img src=""images/video/box1.gif"" width=""12"" height=""11"" border=""0""> <a href='?c_id="&nid&"'><font class=red_3>"&rs(1)&"</font></a><br>"
end if
rs.movenext
loop
rs.close
%>
</td><td width=680>
<table border=1 width='100%' cellspacing=0 cellpadding=1 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
<script language=javascript src='style/admin_del.js'></script>
<form name=del_form action='<%response.write pageurl%>del_ok=ok&dtype=video' method=post><%
if trim(request.querystring("type"))<>"" then
title=request("title")
if request("name")="name" then
sqladd=" where title like '%"&request("title")&"%'"
else
sqladd=" where title like '%"&request("title")&"%'"
end if
elseif cid<>0 then
sqladd=" where c_id="&cid
end if
sql="select id,c_id,title,hot,hidden,error,good from video"&sqladd&" order by tim desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rssum=0
else
rssum=int(rs.recordcount)
end if
nummer=19
if rssum mod nummer > 0 then
thepages=rssum\nummer+1
else
thepages=rssum\nummer
end if
page=trim(request.querystring("page"))
if not(isnumeric(page)) then page=1:viewpage=1
if int(page)>thepages then
viewpage=1
else
viewpage=page
end if
del_temp=nummer
if rssum=0 then del_temp=0
if int(page)=int(thepages) then
del_temp=rssum-nummer*(thepages-1)
end if
response.write vbcrlf&"<tr><td colspan=3 align=center>共有 <font class=red>"&rssum&"</font> 个影片 ┋ 共<font class=red>"&thepages&"</font>页 ┋ 这是第<font class=red>"&viewpage&"</font>页 ┋ <a href='"&pageurl&"action=addsever'>添加影片</a> </td></tr>" & _
vbcrlf & "<tr><td colspan=3 align=center>分页:"&jk_pagecute(nummer,thepages,viewpage,pageurl,6,"#ff0000") & _
" <input type=checkbox name=del_all value=1 onClick=selectall('"&del_temp&"')> 选中所有 <input type=submit value='删除所选' onclick=""return suredel('"&del_temp&"');""></td></tr>" & _
vbcrlf&"<tr align=center bgcolor=#ffffff><td width='8%'>序号</td><td width='65%'>类型和名称</td><td width='27%'>操作</td></tr>"
if int(viewpage)>1 then
rs.move (viewpage-1)*nummer
end if
for i=1 to nummer
if rs.eof then exit for
now_id=rs("id"):nid=int(rs("hot")):ncid=rs("c_id"):error=rs("error")
response.write vbcrlf&"<tr align=center><td>"&(viewpage-1)*nummer+i&"</td><td align=left><a href='?action=video_edit&id="&now_id&"'>"&rs("title")&"</a></td><td align=right><a title=是否显示或者隐藏 href='?action=hidden&c_id="&cid&"&id="&now_id&"&page="&viewpage&"'>"
if rs("hidden")=true then
response.write "显</a> "
else
response.write "<font class=red_2>隐</font></a> "
end if
if rs("good")=true then
good="<a title=是否推荐 href='?action=good&c_id="&cid&"&id="&now_id&"&page="&viewpage&"'><font class=red>推荐</font></a>"
else
good="<a title=是否推荐 href='?action=good&c_id="&cid&"&id="&now_id&"&page="&viewpage&"'><font class=#C0C0C0>普通</font></a>"
end if
response.write "<font class=yellow>"&nid&"</font> 星 <font class=red>"&error&"</font> 错 "&good&"<input type=checkbox name=del_id value='"&now_id&"'></td></tr>"
rs.movenext
next
rs.close:set rs=nothing
%></form><form method=POST action=?type=fing>
<tr align=center bgcolor=#ffffff><td width='8%' height="0">查找</td>
<td><input value="<%=request("title")%>" type=text name=title size=31>名称<input type="radio" value="name" checked name="name">地址<input type="radio" value="http" name="name"></td>
<td><input type=submit value=查找电影 name=titlee></td></tr></form></table></td></tr></table>
<%
end sub
%>
<%sub addserv()
if request("changemovie")<>"" and request("id")<>"1" then
sql="update video_sev set movie='"&trim(request("movie"))&"',ipsip='"&trim(request("ipsip"))&"',say='"&trim(request("say"))&"',down='"&trim(request("down"))&"' where id="&request("id")
conn.execute(sql)
end if
if request("addmovieip")<>"" then
sql="insert into video_sev(movie,ipsip,say,down) " & _
"values('"&trim(request("movie"))&"','"&trim(request("ipsip"))&"','"&trim(request("say"))&"','"&trim(request("down"))&"')"
conn.execute(sql)
end if
if request("deletserver")<>"" and request("id")<>"1" then
conn.execute"delete from video_sev where id="&request("id")
end if
%>
<center>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="111" bordercolorlight="#C0C0C0" bordercolordark="#F7F7F7">
<tr>
<td width="100%" bgcolor="#F7F7F7" height="13" colspan="2">
<p align="center"><b><font size="2"> 电影服务器列表<font color="#C0C0C0">(第一个空白服务器不能删除~)</font></font></b></td>
</tr>
<form method="POST" onsubmit action="admin_video.asp?action=addserv"><tr onmouseover="javascript:this.bgColor='#EDEDED';" onmouseout="javascript:this.bgColor='#FFFFFF';">
<td width="100%" height="21" colspan="2">新增服务器<font size="2">:<br>在線:<input type="text" name="ipsip" size="25">目錄</font><input type="text" name="movie" size="20">说明<input type="text" name="say" size="20"><span lang="en-us">
</span><font size="2">下載:<input type="text" name="down" size="25"></font><input type="submit" value="新增" name="addmovieip"><font size="2"><br> </font></td>
</form>
<tr>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from video_sev",conn,1,1
i=1
do while not rs.eof
%>
<form method="POST" onsubmit action="admin_video.asp?action=addserv&id=<%=rs("id")%>"><tr onmouseover="javascript:this.bgColor='#lsdkjhdfgdf';" onmouseout="javascript:this.bgColor='#EDEDED';">
<td width="3%" height="10">第<%=i%> 服务器:</td>
<td width="125%" height="11" rowspan="4" align="left" nowrap bordercolorlight="#FF0000" bordercolordark="#FF00FF">目錄<input type="text" name="movie" size="22" value="<%=rs("movie")%>">说明<input type="text" name="say" size="22" value="<%=rs("say")%>"><span lang="en-us">
</span><input type="submit" value="修改" name="changemovie"><span lang="en-us">
</span><font size="2">
<input type="submit" value="删除" name="deletserver"></font></td></tr><tr>
<td width="25%" height="1" align="left" valign="top">在線<input type="text" name="ipsip" size="25" value="<%=rs("ipsip")%>" style="color: #008000"></td>
</tr>
<tr>
<td width="3%" height="20" align="left" valign="baseline">下載<input type="text" name="down" size="25" value="<%=rs("down")%>" style="color: #0000FF"></td>
</tr>
<tr>
<td width="100%" height="3" colspan="2" bordercolorlight="#FF00FF" bordercolordark="#FFFFFF"></td>
</tr></form>
<%
i=i+1
rs.movenext
loop
%>
</form>
<tr>
<td width="100%" height="16" colspan="2"></td>
</tr>
<tr>
<td width="100%" height="16" colspan="2">
<p align="center">第一个空白服务器不能删除~</td>
</tr>
</table>
</center>
</div><%end sub%>
<%sub addsever%>
<div align="center">
<center>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="129" bordercolorlight="#C0C0C0" bordercolordark="#F7F7F7">
<tr>
<td width="100%" bgcolor="#F7F7F7" height="21" colspan="2">
<form method="POST" onsubmit action="admin_video.asp?action=video_add">
<p align="right"><b> 选择电影服务器 </b><font size="2"><input type="submit" value="下一步" name="change"></font></td>
</tr>
<tr>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from video_sev",conn,1,1
i=1
do while not rs.eof
%><tr onmouseover="javascript:this.bgColor='#EDEDED';" onmouseout="javascript:this.bgColor='#FFFFFF';">
<td width="50%" height="37"><input type="radio" value="<%=rs("id")%>" name="serverip" checked>第<%=i%>服务器:<br>在線<%=rs("ipsip")%><%=rs("movie")%> </td>
<td width="30%" height="37">说明:<%=rs("say")%></td></tr><tr onmouseover="javascript:this.bgColor='#EDEDED';" onmouseout="javascript:this.bgColor='#FFFFFF';">
<td width="50%" height="17">下載<%=rs("down")%><%=rs("movie")%></td>
<td width="30%" height="17"></td>
</tr><tr><td></td>
</tr>
<%i=i+1
rs.movenext
loop%>
<tr><td width="100%" colspan="2" height="21">
<p align="right"><font size="2"><input type="submit" value="下一步" name="change"></font></td></tr></form><tr>
<td width="100%" colspan="2" height="16"></td></tr> </table></center></div>
<%end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -