admin_video.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/conn.asp-->
<!-- #include file="inc/csk_page.asp" -->
<%Dim const_txl_HomeUrl%>
<%action=request("action")
dim tit,action,titt,sql
if trim(request.querystring("delid"))<>"" then
   conn.execute"delete from videourl where id="&request("delid")
   conn.close
   set conn=nothing
   response.redirect Request.ServerVariables("HTTP_REFERER")
end if

dim nsort,rs2,sql2,id,j,sqladd,cid,sid,ncid,nsid,nid,now_id,pageurl,ispic,data_name,nummer,ddim,genre,title,os,downtype,movie,error,good,free,adsid,sqla,rsa,rs1,rs4,upload_time
tit="<a href='admin_video.asp?action='>影片列表</a>&nbsp;┋&nbsp;" & _
    "<a href='admin_video.asp?action=addsever'>添加影片</a>&nbsp;┋&nbsp;" & _
    "<a href='admin_video.asp?action=addserv'>添加服务器</a>&nbsp;┋&nbsp;<a href='admin_vsort.asp'>影片分类</a>｜<A href=admin_video_error.asp>错误电影</A>｜<a href=admin_video_move.asp>批量转移</a>｜<a href=admin_video_url.asp>批量转换</a>"
response.write tit
nsort="video":sqladd="":data_name="video"
cid=trim(request.querystring("c_id"))
sid=trim(request.querystring("s_id"))
if not(isnumeric(cid)) then cid=0
if not(isnumeric(sid)) then sid=0
cid=int(cid):sid=int(sid)
pageurl="?c_id="&cid&"&s_id="&sid&"&"

if trim(request.querystring("del_ok"))="ok" then
'response.write request.form("del_id")
'response.end
conn.execute("delete from videourl where nameid in("&request.form("del_id")&")")
  response.write del_select(request.form("del_id"))

end if

function del_select(delid)
  dim del_i,del_num,del_dim,del_sql,fobj,ispic
  if delid<>"" and not isnull(delid) then
    delid=replace(delid," ","")
    del_dim=split(delid,",")
    del_num=UBound(del_dim)
    for del_i=0 to del_num
      call upload_del(data_name,del_dim(del_i))
      del_sql="delete from video where id="&del_dim(del_i)
      conn.execute(del_sql)
    next
    Erase del_dim
    del_select=vbcrlf&"<script language=javascript>alert(""共删除了 "&del_num+1&" 条影片记录！"");</script>"
  end if
end function

id=trim(request.querystring("id"))
if action="hidden" and isnumeric(id) then
  sql="select "&action&" from "&data_name&" where id="&id
  set rs=conn.execute(sql)
  if not(rs.eof and rs.bof) then
    if rs(action)=true then
      sql="update "&data_name&" set "&action&"=0 where id="&id
    else
      sql="update "&data_name&" set "&action&"=1 where id="&id
    end if
    conn.execute(sql)
  end if
  rs.close
  action=""
end if
if action="good" and isnumeric(id) then
  sql="select "&action&" from "&data_name&" where id="&id
  set rs=conn.execute(sql)
  if not(rs.eof and rs.bof) then
    if rs(action)=true then
      sql="update "&data_name&" set "&action&"=0 where id="&id
    else
      sql="update "&data_name&" set "&action&"=1 where id="&id
    end if
    conn.execute(sql)
  end if
  rs.close
  action=""
end if
  titt="电影栏目"


select case action
case "video_add"
  call video_add()
case "addserv"
  call addserv()
case "addsever"
  call addsever()
case "video_edit"
  call video_edit()
case "code"
  call code_main()
case "code_add"
  call code_add()
case "code_edit"
  call code_edit()
case "code_del"
  call code_del()
case else
  call video_main()
end select

'Call CloseDataBase


sub video_edit()
  dim sql3,rs3,id,csid,title,lang,remark,counter,hot,pic,where
  id=request.querystring("id")
  if not(isnumeric(id)) then call video_main():exit sub
%><table border=0 width=600 cellspacing=0 cellpadding=0>
<tr><td align=center height=300>
<%sql="select * from video where id="&id
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,3
  if rs.eof and rs.bof then
    rs.close:set rs=nothing
    call video_main():exit sub
  end if
  
  if trim(request.querystring("types"))="edit" then
    csid=trim(request.form("csid"))
    adsid=trim(request.form("adsid"))
    title=code_admin(request.form("title"))
    lang=code_admin(request.form("lang"))
    hot=code_admin(request.form("hot"))
    where=code_admin(request.form("where"))

    pic=request.form("pic")
    if len(pic)<3 then pic="no_pic.gif"
    
    remark=request.form("remark")
    counter=trim(request.form("counter"))

'response.write lang&where&request.form("movie")
'response.end

    if len(csid)<1 or var_null(title)="" then
      response.write("<font class=red_2>影片的类型、名称和影片地址不能为空！</font><br><br>"&go_back)
    else
      rs("c_id")=csid

	  if trim(request.form("username_my"))="yes" then rs("username")=login_username
      if trim(request.form("hidden"))="yes" then
        rs("hidden")=false
      else
        rs("hidden")=true
      end if
    if trim(request.form("good"))="yes" then
        rs("good")=true
      else
        rs("good")=false
      end if

      rs("title")=title
      rs("lang")=lang
      rs("remark")=remark
      rs("pic")=pic
    if trim(request.form("tim"))="yes" then rs("tim")=now_time
      'rs("tim")=now_time
rs("serverip")=request.form("serverip")
	rs("type")=request.form("movie")
	rs("howlong")=request.form("long")
	rs("where")=where
    rs("name")=request.form("name")
    rs("adsid")=request.form("adsid")

    if isnumeric(trim(request.form("emoney"))) then
      rs("emoney")=trim(request.form("emoney"))
    else
      rs("emoney")=0
    end if
    rs("power")=replace(replace(trim(request.form("power"))," ",""),",",".")

rs("hot")=hot
rs("ld")=request.form("ld")

     if isnumeric(counter) then rs("counter")=counter
      rs.update
      call upload_note(data_name,id)
      response.write "<font class=red>影片修改成功！</font><br><br><a href='?c_id="&cid&"&s_id="&sid&"'>点击返回</a>" & _
		     vbcrlf&"<meta http-equiv='refresh' content='" & objv7.web_var(web_num,5) & "; url=?c_id="&cid&"&s_id="&sid&"'>"
    end if
  else
    cid=int(rs("c_id")):hot=int(rs("hot")):lang=rs("lang"):where=rs("where"):adsid=rs("adsid")
    ispic=rs("pic"):pic=ispic
    if Instr(ispic,"/")>0 then ispic=right(ispic,len(ispic)-Instr(ispic,"/"))
    if Instr(ispic,".")>0 then ispic=left(ispic,Instr(ispic,".")-1)
    if ispic="no_pic" then ispic="n_"&id:pic=""
%><table border=0 width='98%' cellspacing=0 cellpadding=2>
  <tr><td colspan=2 height=50 align=center><font class=red>影片影片属性修改</font></td></tr>
<form name='add_frm' action="?action=video_edit&types=edit&id=<%response.write id%>" method=post>
<input type=hidden name=upid value=''>
  <tr><td width='15%' align=center>影片名称：</td><td width='85%'><input type=text name=title value='<%response.write rs("title")%>' size=60 maxlength=40><% response.write redx %></td></tr>
  <tr><td align=center>影片类型：</td><td><select name=csid size=1>
   <%
  sql3="select * from videotype order by typeid"
  set rs3=conn.execute(sql3)
  do while not rs3.eof
nid=int(rs3(0))
if cid=nid then
    response.write vbcrlf&"<option value='"&rs3("typeid")&"' class=bg_2 selected>"&rs3("type")&"</option>"
	else 
    response.write vbcrlf&"<option value='"&rs3("typeid")&"' class=bg_2>"&rs3("type")&"</option>"
end if
	rs3.movenext
  loop
  rs3.close:set rs3=nothing

%>
</select><% response.write redx %>&nbsp;<input type=checkbox name=hidden<%if rs("hidden")=false then response.write " checked"%> value='yes'>隐藏显示&nbsp;&nbsp;<input type=checkbox name=good<%if rs("good")=true then response.write " checked"%> value='yes'>首页推荐&nbsp;&nbsp;<input type=checkbox name=username_my value='yes'>&nbsp;<font alt='发布人：<%response.write rs("username")%>'>修改发布人为我</font><input type=checkbox name=tim value='yes'>&nbsp;修改时间</td>
  </tr>
  <tr><td align=center>影片信息：</td><td>语言类型： 
              <select name=lang size=1>
<option value='汉语'  <% if lang="汉语"  then response.write " selected"  %>>汉语</option>
<option value='粤语'   <% if lang="粤语" then response.write " selected"  %>>粤语</option>
<option value='日语'   <% if lang="日语" then response.write " selected"  %>>日语</option>
<option value='英语'   <% if lang="英语" then response.write " selected"  %>>英语</option>
<option value='韩语'  <% if lang="韩语" then response.write " selected"  %>>韩语</option>
<option value='其他'   <% if lang="其他" then response.write " selected"  %>>其他</option>
</select>&nbsp;&nbsp;&nbsp;推荐等级：<select name=hot size=1>
<option value='0'<% if hot=0 then response.write " selected" %>>没有等级</option>
<option value='1'<% if hot=1 then response.write " selected" %>>一星级</option>
<option value='2'<% if hot=2 then response.write " selected" %>>二星级</option>
<option value='3'<% if hot=3 then response.write " selected" %>>三星级</option>
<option value='4'<% if hot=4 then response.write " selected" %>>四星级</option>
<option value='5'<% if hot=5 then response.write " selected" %>>五星级</option>
<option value='99'<% if hot=99 then response.write " selected" %>>黄金通道</option>
</select>

</td></tr><tr>
            <td align=center>观看权限：</td>