admin_video.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!
ASP
第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="mdb.asp"-->
<%Admin="vid"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<HTML><HEAD><TITLE>Hxcms管理系统——影视管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%
'****************************************************
' Hxcms 7.6      Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  response.end
else
if request.form("MM_insert") then
if request.form("action")="newvidcat" then
sid=clng(request.form("id"))
vidcatname=trim(replace(request.form("vidcat_name"),"'",""))
if vidcatname="" then
  Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
  response.end
end if
  conn.Execute ("Insert Into vidcat(vidcat_name,sid) Values('"&vidcatname&"',"&sid&")")
  response.redirect "admin_video.asp?action=vidcat"
'================hx66.com.cn===============
elseif request.form("action")="editvidcat" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  response.End
else
  if not isInteger(request.form("id")) then
    Response.Write("<script language=javascript>alert('非法的分类id参数。');history.back(1);</script>")
    response.End
  end if
end if
vidcatname=trim(replace(request.form("vidcat_name"),"'",""))
if vidcatname="" then
  Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
  response.end
end if
  conn.Execute ("Update vidcat Set vidcat_name='"&vidcatname&"',sid="&clng(request.form("lid"))&" where vidcat_id="&cint(request.form("id"))&"")
  response.redirect "admin_video.asp?action=vidcat"
'================hx66.com.cn===============
elseif request.form("action")="delvidcat" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  response.End
else
  if not isInteger(request.form("id")) then
    Response.Write("<script language=javascript>alert('非法的分类id参数。');history.back(1);</script>")
    response.End
  end if
end if
if request.Form("sid")="0" then
sql="select vidcat_id from vidcat where sid="&clng(request.form("id"))
set rsd=conn.execute(sql)
do while not rsd.eof
   Conn.Execute "DELETE * FROM vid WHERE vidcat_id="&rsd(0)
rsd.movenext
loop
rsd.close
set rsd=nothing
   Conn.Execute "DELETE * FROM vidcat WHERE sid="&clng(request.form("id"))
   Conn.Execute "DELETE * FROM vidcat WHERE vidcat_id="&clng(request.form("id"))
else
   Conn.Execute "DELETE * FROM vidcat WHERE vidcat_id="&clng(request.form("id"))
   Conn.Execute "DELETE * FROM vid WHERE vidcat_id="&clng(request.form("id"))
end if
   response.redirect "admin_video.asp?action=vidcat"
'================hx66.com.cn===============
elseif request.form("action")="newvid" then
dim vidcatid,vidtitle,viddog,vidimages,vidcontent,vidisbest,vidistop,uGrade,points,vpath
vidcatid=request.form("vidcat_id")
vidtitle=request.form("title")
viddog=request.form("dog")
vidimages=request.form("images")
vidcontent=request.form("content")
vidisbest=request.form("isbest")
vidistop=request.form("istop")
no=request.form("no")
uGrade=request.form("Grade")
points=request.form("points")
vpath=request.form("v_path")
if vidtitle="" then
  Response.Write("<script language=javascript>alert('你必须填写影片名称！');history.back(1);</script>")
  response.end
end if
if viddog="" then
  Response.Write("<script language=javascript>alert('你必须填写主要演员！');history.back(1);</script>")
  response.end
end if
if not isInteger(vidcatid) then
  Response.Write("<script language=javascript>alert('你必须选择影片所属分类！');history.back(1);</script>")
  response.end
end if
if vidimages="" then
  Response.Write("<script language=javascript>alert('你必须填写剧照图片！');history.back(1);</script>")
  response.end
end if
if vidcontent="" then
  Response.Write("<script language=javascript>alert('你必须填写影片简介！');history.back(1);</script>")
  response.end
end if
'for j=1 to int(request.form("no"))+int(request("count"))
for j=1 to int(request.form("no"))
if request.form("url"&j)="" then
  Response.Write("<script language=javascript>alert('你必须输入影片地址！');history.back(1);</script>")
  response.end
end if
next
  sql="select * from vid"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,3
  rs.addnew
  rs("title")=vidtitle
  rs("dog")=viddog
  rs("vidcat_id")=vidcatid
  rs("images")=vidimages
  rs("content")=vidcontent
  if cint(vidisbest)=1 then
     rs("isbest")=cint(vidisbest)
  end if
  if cint(vidistop)=1 then
     rs("istop")=cint(vidistop)
  end if
  rs("Grade")=cint(uGrade)
  if cint(uGrade)=0 then
     rs("points")=0
  else
     rs("points")=cint(points)
  end if
  rs("filmlevel")=Request.Form("softlevel")
  rs("runsystem")=Request.Form("runsystem")
  rs.update
    filmid=rs("vid_id")
  for i=1 to int(no)
     set rs=server.createobject("adodb.recordset")
     sql="select * from vidurl"
     rs.open sql,conn,1,3
     rs.addnew
     url=request("url"&i&"")
     num=request("no"&i&"")
     rs("filmid")=filmid
     rs("title")=vidtitle
     rs("path")=vpath
     rs("url")=url
     rs("no")=num
     rs.update
  next
  rs.close
  set rs=nothing
  conn.execute("update allcount set vidcount = vidcount + 1")
  response.redirect "admin_video.asp?action=vid"
'================hx66.com.cn===============
elseif request.form("action")="editvid" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  response.End
else
  if not isInteger(request.form("id")) then
    Response.Write("<script language=javascript>alert('非法的id参数。');history.back(1);</script>")
    response.End
  end if
end if
  vidcatid=request.form("vidcat_id")
  vidtitle=request.form("title")
  viddog=request.form("dog")
  vidimages=request.form("images")
  vidcontent=request.form("content")
  vidisbest=request.form("isbest")
  vidistop=request.form("istop")
  no=int(request.form("no"))+int(request("count"))
  uGrade=request.form("Grade")
  points=request.form("points")
  vpath=request.form("v_path")
if vidtitle="" then
  Response.Write("<script language=javascript>alert('你必须填写影片名称！');history.back(1);</script>")
  response.end
end if
if viddog="" then
  Response.Write("<script language=javascript>alert('你必须填写主要演员！');history.back(1);</script>")
  response.end
end if
if not isInteger(vidcatid) then
  Response.Write("<script language=javascript>alert('你必须选择影片所属分类！');history.back(1);</script>")
  response.end
end if
if vidimages="" then
  Response.Write("<script language=javascript>alert('你必须填写剧照图片！');history.back(1);</script>")
  response.end
end if
if vidcontent="" then
  Response.Write("<script language=javascript>alert('你必须填写影片简介！');history.back(1);</script>")
  response.end
end if
for j=1 to int(request.form("no"))+int(request("count"))
if request.form("url"&j)="" then
  Response.Write("<script language=javascript>alert('你必须输入影片地址！');history.back(1);</script>")
  response.end
end if
next
  sql="select * from vid where vid_id="&cint(request.form("id"))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,3
  rs("title")=vidtitle
  rs("dog")=viddog
  rs("vidcat_id")=vidcatid
  rs("images")=vidimages
  rs("content")=vidcontent
  rs("isbest")=cint(vidisbest)
  rs("istop")=cint(vidistop)
  rs("filmlevel")=Request.Form("softlevel")
  rs("runsystem")=Request.Form("runsystem")
  rs("Grade")=cint(uGrade)
  if cint(uGrade)=0 then
  rs("points")=0
  else
  rs("points")=cint(points)
  end if
  rs.update
    filmid=rs("vid_id")
  for i=1 to request("count")
      if not isempty(request("del"&i)) then
         conn.execute"delete from vidurl where id="&request("id"&i)
      else
         Conn.execute"update vidurl set url='"&request("url"&i)&"' where id="&request("id"&i)
         Conn.execute"update vidurl set path='"&vpath&"' where id="&request("id"&i)
         Conn.execute"update vidurl set title='"&vidtitle&"' where id="&request("id"&i)
      end if
  next
  for i=1 to int(request("no"))
    set rs=server.createobject("adodb.recordset")
    sql="select * from vidurl"
    rs.open sql,conn,1,3
    rs.addnew
    url=request("url"&(int(i)+int(request("count")))&"")
    num=int(i)+int(request("count"))&""
    rs("filmid")=filmid
    rs("title")=vidtitle
    rs("url")=url
    rs("no")=num
    rs("path")=vpath
    rs.update
  next
    rs.close
    set rs=nothing
    response.redirect "admin_video.asp?action=vid"
'================hx66.com.cn===============
elseif request.form("action")="delvid" then
if request.Form("id")="" then
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
  response.End
else
  if not isInteger(request.form("id")) then
    Response.Write("<script language=javascript>alert('非法的id参数。');history.back(1);</script>")
    response.End
  end if
end if
  conn.execute("delete * from vid where vid_id="&cint(request.form("id")))
  conn.execute("update allcount set vidcount = vidcount - 1")
  conn.execute("delete * from vidurl where filmid="&cint(request.form("id")))
  response.redirect "admin_video.asp?action=vid"
end if
end if
'================hx66.com.cn===============
if request.querystring("action")="vidcat" then%> 
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr> 
<td colspan="4" class=Hxcmsss>影片移动、合并管理(请慎重操作，操作后不可还原!)</font></td>
</tr>
<form method="post" action="?action=moves">
<tr align="center"> 
<td height=22 align=center class=Hxcmsqs>将：
<select size="1" name="cat1">
<%
sql="select * from vidcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("vidcat_name")&"'>"
sql="select * from vidcat where sid="&rs1("vidcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("vidcat_id")%>">├ <%=rs2("vidcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -