admin_movie.asp

该软件是帮助大学生更好的生活

  rs.close:set rs=nothing
%></td></tr></table><%
end sub

sub movie_add()
%><table border="0" width="90%" cellspacing="0" cellpadding="0" align=center>
<tr><td align=center height=300><%
if request.querystring("types")="add" then
  dim name,sizes,url,url2,homepage,remark,types,keyes,pic
  csid=trim(request.form("csid"))
  name=code_admin(request.form("name"))
  sizes=code_admin(request.form("sizes"))
  url=code_admin(request.form("url"))
  url2=code_admin(request.form("url2"))
  homepage=code_admin(request.form("homepage"))
  keyes=code_admin(request.form("keyes"))
  remark=request.form("remark")
  pic=request.form("pic")
  if len(pic)<3 then pic="no_pic.gif"
  types=request.form("types")
  if len(csid)<1 or var_null(name)="" or var_null(url)="" then
    response.write("<font class=red_2>影片的类型、名称和下载地址不能为空！</font><br><br>"&go_back)
  else
    call chk_cid_sid()
    sql="select * from "&data_name
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,3
    rs.addnew
    rs("c_id")=cid
    rs("s_id")=sid
    rs("username")=session("AdminName")
    rs("hidden")=true
    rs("name")=name
    rs("sizes")=sizes
    if isnumeric(trim(request.form("emoney"))) then
      rs("emoney")=trim(request.form("emoney"))
    else
      rs("emoney")=0
    end if
    rs("genre")=trim(request.form("genre"))
    rs("os")=replace(trim(request.form("os"))," ","")
    rs("power")=replace(replace(trim(request.form("power"))," ",""),",",".")
    rs("url")=url
    rs("url2")=url2
    rs("homepage")=homepage
    rs("remark")=remark
    rs("keyes")=keyes
    rs("pic")=pic
    rs("tim")=now_time
    rs("counter")=0
    rs("types")=types
    rs.update
    rs.close:set rs=nothing
    call upload_note(data_name,first_id(data_name))
    response.write "<font class=red>影片添加成功！</font>&nbsp;<a href='?c_id="&cid&"&s_id="&sid&"'>点击返回</a><br><br><a href='?c_id="&cid&"&s_id="&sid&"&action=movie_add'>点击继续添加</a>" & _
		   VbCrLf&"<meta http-equiv='refresh' content='" & web_var(web_num,5) & "; url=?c_id="&cid&"&s_id="&sid&"&action=movie_add'>"
  end if
else
%>
<form name='add_frm' action='?action=add&types=add' method=post>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class=title><td colspan=2 height=22 align=center>添加新影片下载<input type=hidden name=upid value=''></td></tr>
  <tr class=tdbg><td width='40%' align=right>影片名称：</td><td width='60%'><input type=text name=name size=70 maxlength=40><%=redx %></td></tr>
  <tr class=tdbg><td align=right>影片类型：</td><td><%call chk_csid(cid,sid)%>选择二级目录才有效&nbsp&nbsp&nbsp;&nbsp;<%call chk_emoney(0)%></td></tr>
  <tr class=tdbg><td align=right>下载权限：</td><td><%call chk_power("",1)%></td></tr>
  <tr class=tdbg><td align=right>影片大小：</td><td><input type=text name=sizes size=10 maxlength=10>&nbsp;&nbsp;&nbsp;推荐等级：<select name=types size=1>
<option value='0'>没有等级</option>
<option value='1'>一星级</option>
<option value='2'>二星级</option>
<option value='3'>三星级</option>
<option value='4'>四星级</option>
<option value='5'>五星级</option>
</select>&nbsp;&nbsp;&nbsp;授权类型：<select name=genre size=1><%
  ddim=split(web_var(web_movie,4),":")
  for i=0 to ubound(ddim)
    response.write vbcrlf&"<option>"&ddim(i)&"</option>"
  next
  erase ddim
%></select></td></tr>
  <tr class=tdbg><td align=right>运行环境：</td><td><%
  ddim=split(web_var(web_movie,3),":")
  for i=0 to ubound(ddim)
    response.write "<input type=checkbox name=os value='"&ddim(i)&"' class=bg_1>"&ddim(i)
  next
  erase ddim
%></td></tr>

  <tr class=tdbg><td align=right height=50>上传影音：</td><td>系统提供的上传功能只适合上传比较小（2M左右）的影音节目。<br><iframe style="top:2px" ID="UploadMovies" src="upload_Movie.asp" frameborder=0 scrolling=no width="450" height="25"></iframe></td></tr>

  <tr class=tdbg><td align=right>本站下载：</td><td><input type=text name=url id=url size=70 maxlength=200><% response.write redx %></td></tr>
  <tr class=tdbg><td align=right>镜像下载：</td><td><input type=text name=url2 value='http://' size=70 maxlength=200></td></tr>
  <tr class=tdbg><td align=right>影片主演：</td><td><input type=text name=homepage value='' size=50 maxlength=50></td></tr>
  <tr class=tdbg height=35<%response.write format_table(3,1)%>><td align=right><%call frm_ubb_type()%></td><td><%call frm_ubb("add_frm","remark","&nbsp;&nbsp;")%></td></tr>
  <tr class=tdbg><td valign=top align=right>影片备注：</td><td><textarea rows=6 name=remark cols=70></textarea></td></tr>
<%ispic="d"&upload_time(now_time)%>
  <tr class=tdbg><td align=right>关 键 字：</td><td><input type=text name=keyes size=12 maxlength=20>&nbsp;&nbsp;&nbsp;&nbsp;图片：<input type=text name=pic size=30 maxlength=100>&nbsp;&nbsp;&nbsp;<a href='upload_product.asp?uppath=movie&upname=<%response.write ispic%>&uptext=pic' target=upload_frame>上传图片</a>&nbsp;&nbsp;<a href='upload_product.asp?uppath=movie&upname=d&uptext=remark' target=upload_frame>上传至内容</a></td></tr>
  <tr class=tdbg><td align=right>上传文件：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload_product.asp?uppath=movie&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
  <tr class=tdbg height=30><td colspan=2 align=center><input type=submit value=' 添加 '></td></tr>
</table></form><%
  end if
%></td></tr></table><%
end sub

sub code_del()
  id=trim(request.querystring("id"))
  if not(isnumeric(id)) then call code_main():exit sub
  conn.execute("delete from movie_code where id="&id)
  call code_main()
end sub


sub movie_main()
%><table border=0 width='80%' cellspacing=0 cellpadding=0 align=center>
<tr align=center height=300 valign=top>
<td width='20%' class=htd><br><a href="?"><img src="images/arrow.gif" border=0 align=absmiddle>所有影片</a><br><%call left_sort()%></td>
<td width='80%'>
<script language=javascript src='inc_shop/admin_del.js'></script>
<form name=del_form action='<%response.write pageurl%>del_ok=ok' method=post>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<%
  call sql_cid_sid()
  sql="select id,c_id,s_id,name,types,hidden from movie"&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
  call format_pagecute()
  del_temp=nummer
  if rssum=0 then del_temp=0
  if int(page)=int(thepages) then
    del_temp=rssum-nummer*(thepages-1)
  end if
%>
<tr align=center class=title height=22><td nowrap>序号</td><td width='99%'>类型和名称</td><td nowrap>操作</td><td nowrap>推荐程度</td><td nowrap>选择</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("types")):ncid=rs("c_id"):nsid=rs("s_id")
    response.write vbcrlf&"<tr  class=tdbg><td align=center>"&(viewpage-1)*nummer+i&"</td><td align=left><a href='?action=movie_edit&id="&now_id&"'>"&rs("name")&"</a></td>" &_
	      "<td align=center><a href='?action=hidden&c_id="&cid&"&s_id="&sid&"&id="&now_id&"&page="&viewpage&"'>"

    if rs("hidden")=true then
      response.write "显</a> "
    else
      response.write "<font color=red>隐</font></a> "
    end if
    response.write "</td><td align=center><font color=red>"&nid&"</font>&nbsp;星</td><td align=center><input type=checkbox name=del_id value='"&now_id&"'></td></tr>"
    rs.movenext
  next
  rs.close:set rs=nothing
%>
<tr class=tdbg><td colspan=10 align=center height=25>
现有<font class=red><%response.write rssum%></font>个影片　<%response.write "<a href='?action=add&c_id="&cid&"&s_id="&sid&"'>添加影片</a>"%>
　<input type=checkbox name=del_all value=1 onClick=selectall('<%response.write del_temp%>')> 选中所有　<input type=submit value='删除所选' onclick=""return suredel('<%response.write del_temp%>');"">
</td></tr>
<tr class=tdbg><td colspan=10 height=25>页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>
分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%>
</td></tr>
</table></form></td></tr></table>
<%
end sub
%>