admin_video.asp

本程序采用花香内核

<%Admin="dj"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<%
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
sql="select * from vidcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim vidcatname,sid
sid=request.form("id")
vidcatname=trim(replace(request.form("vidcat_name"),"'",""))
if vidcatname="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
else
  rs("vidcat_name")=vidcatname
end if
  rs("sid")=sid
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_video.asp?action=vidcat"
end if
elseif request.form("action")="newvid" then
sql="select * from vid"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim vidcatid,vidtitle,viddog,vidimages,vidcontent,vidisbest,vidistop,uGrade,points
vidcatid=cint(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")
if vidtitle="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写影片名称！');history.back(1);</script>")
else
  rs("title")=vidtitle
end if
if viddog="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写主要演员！');history.back(1);</script>")
else
  rs("dog")=viddog
end if
if vidcatid<1 then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须选择影片所属分类！');history.back(1);</script>")
else
  rs("vidcat_id")=vidcatid
end if
if vidimages="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写剧照图片！');history.back(1);</script>")
else
  rs("images")=vidimages
end if
if vidcontent="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写影片简介！');history.back(1);</script>")
else
  rs("content")=vidcontent
end if
for j=1 to int(request.form("no"))+int(request("count"))
if request.form("url"&j)="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须输入影片地址！');history.back(1);</script>")
end if
next
if cint(vidisbest)=1 then
  rs("isbest")=cint(vidisbest)
end if
if cint(vidistop)=1 then
  rs("istop")=cint(vidistop)
end if
if cint(points)<>"" then
  rs("points")=cint(points)
end if
  rs("filmlevel")=Request.Form("softlevel")
  rs("runsystem")=Request.Form("runsystem")
  rs("Grade")=cint(uGrade)
if founderr then
  call diserror()
  response.end
else
rs.update
filmid=rs("vid_id")
rs.close
end if
set rs=server.createobject("adodb.recordset")
for i=1 to no
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("url")=url
rs("no")=num
rs.update
next
rs.close  
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  sql="update allcount set vidcount = vidcount + 1"
  conn.execute(sql)
  response.redirect "admin_video.asp?action=vid"
end if
elseif request.form("action")="editvid" then
if request.Form("id")="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
    Response.Write("<script language=javascript>alert('非法的id参数。');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from vid where vid_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
  vidcatid=cint(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")
if vidtitle="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写影片名称！');history.back(1);</script>")
else
  rs("title")=vidtitle
end if
if viddog="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写主要演员！');history.back(1);</script>")
else
  rs("dog")=viddog
end if
if vidcatid<1 then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须选择影片所属分类！');history.back(1);</script>")
else
  rs("vidcat_id")=vidcatid
end if
if vidimages="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写剧照图片！');history.back(1);</script>")
else
  rs("images")=vidimages
end if
if vidcontent="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写影片简介！');history.back(1);</script>")
else
  rs("content")=vidcontent
end if
for j=1 to int(request.form("no"))+int(request("count"))
if request.form("url"&j)="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须输入影片地址！');history.back(1);</script>")
end if
next
  rs("isbest")=cint(vidisbest)
  rs("istop")=cint(vidistop)
  rs("filmlevel")=Request.Form("softlevel")
  rs("runsystem")=Request.Form("runsystem")
  rs("Grade")=cint(uGrade)
  rs("points")=cint(points)
if founderr then
  call diserror()
  response.end
else
rs.update
filmid=rs("vid_id")
rs.close
end if
set rs=server.createobject("adodb.recordset")
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)
end if
next
for i=1 to request("no")
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("hx")=hx
rs.update
next
rs.close
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_video.asp?action=vid"
end if
elseif request.form("action")="delvid" then
if request.Form("id")="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
    Response.Write("<script language=javascript>alert('非法的id参数。');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from vid where vid_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
  rs.delete
  rs.close
  sql="update allcount set vidcount = vidcount - 1"
  conn.execute(sql)
  response.redirect "admin_video.asp?action=vid"
elseif request.form("action")="editvidcat" then
if request.Form("id")="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
    Response.Write("<script language=javascript>alert('非法的分类id参数。');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from vidcat where vidcat_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
vidcatname=trim(replace(request.form("vidcat_name"),"'",""))
if vidcatname="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
else
  rs("vidcat_name")=vidcatname
end if
sid=request.form("lid")
  rs("sid")=sid
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_video.asp?action=vidcat"
end if
elseif request.form("action")="delvidcat" then