admin_video.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="include/admin_onlogin.asp" -->
<!-- #include file="include/jk_code.asp" -->
<!-- #include file="include/con_video_class.asp" -->
<%
del_user_true=true
del_upload_true=true
index_url="video"
call admin_master(1,0)
call admin_cid_sid()
call admin_header(0,0)
select case jk_mod
case "istop"
  ntit="推荐"&tit_fir
  sql_add=" where hidden=1 and star>=5"
case "isfree"
  ntit="免费"&tit_fir
  sql_add=" where isfree=1"
case "sh"
  ntit="待审核"&tit_fir
  sql_add=" where hidden=0"
case else
  jk_mod=""
  ntit=tit_fir&"列表"
  sql_add=" where hidden=1"
end select
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?'><%response.write tit_fir%>列表</a></td>
  <td width=10></td>
  <td><a href='?jk_mod=isfree'<%if jk_mod="isfree" then response.write " class=red"%>>免费<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?jk_mod=istop'<%if jk_mod="istop" then response.write " class=red"%>>推荐<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?jk_mod=sh'<%if jk_mod="sh" then response.write " class=red"%>>待审核<%response.write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?action=add&c_id=<%response.write cid%>&s_id=<%response.write sid%>'<%if action="add" then response.write " class=red"%>>添加<%response.write tit_fir%></a></td>
<%call joekoe_is_nsort_review()%>
  </tr>
  </table>
</td></tr>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?action=style'<%if action="style" then response.write " class=red"%>>影院模板管理</a></td>
  <td width=10></td>
  <td><a href='?action=buy'<%if action="buy" then response.write " class=red"%>>购卡用户管理</a></td>
  <td width=10></td>
  <td><a href='?action=cons'<%if action="cons" then response.write " class=red"%>><%response.write tit_fir%>服务器批量修改</a></td>
  <td width=10></td>
  <td><a href='?action=cache'<%if action="cache" then response.write " class=red"%>>重建缓存</a></td>
  </tr>
  </table>
</td></tr>
<tr><td colspan=2 align=center>
  <table border=0 cellspacing=0 cellpadding=2>
  <form action='?' method=get>
  <input type=hidden name=jk_mod value='<%response.write jk_mod%>'>
  <input type=hidden name=c_id value='<%response.write cid%>'>
  <tr>
  <td>搜索（<%response.write ntit%>） 关键字：</td>
  <td><input type=text name=keyword value='<%response.write trim(request.querystring("keyword"))%>' size=15 maxlength=20></td>
  <td><select name=sea_type size=1>
<option value='name'>按<%response.write tit_fir%>名</option>
<option value='username'>按发布人</option>
</select></td>
  <td><select name=sea_term sizs=1><option value='all'>满足所有条件</option><option value='only'>满足一个条件</option></seelct></td>
  <td><input type=submit value='搜索'></td>
  </tr>
  </form>
  </table>
</td></tr>
</table>
<%  
call admin_table(1)

select case action
case "cache"
  call video_skin.video_skin_del()
  response.write joekoe_cms.js_put("alert(""清除所有缓存成功！\n\n点击返回……"");location.href='?';",1)
case "clear"
  call video_skin.cache_del("scroll")
  call video_skin.cache_del("counter")
  call joekoe_go_clear()
case "delurl"
  call movie_del()
case "cons"
  call video_cons()
case "add"
  call video_add()
case "edit"
  call video_edit()
case "buy"
  call video_buys()
case "buyedit"
  call video_buyedit()
case "edit_style"
  call video_style_edit()
case "set"
  call video_style_setup()
case "del"
  call video_style_del()
case "copy"
  call video_style_copy()
case "style"
  call video_style_main()
case "handle"
  call video_skin.cache_del("scroll")
  call video_skin.cache_del("counter")
  call joekoe_go_handle()
case else
  call video_main()
end select

set video_skin=nothing
call admin_ender(1)

'----------------影片操作 开始------------
sub video_main()
  dim name,star,pageurl2
  pageurl2=pageurl
  call sql_cid_sid(sql_add)
  call format_search("name","name,username",2,1)
%>
<tr valign=top align=center>
<td width='20%'>
  <table class=table2>
  <tr><td><%response.write img_admin("s_left_sort","")%> <a href='?jk_mod=<%response.write jk_mod%>'><%response.write ntit%></a></td></tr>
  <tr><td height=5></td></tr>
  <tr><td class=htd>
  <%call left_sort(pageurl2,"")%></td></tr>
  </table>
</td>
<td width='80%'>
  <table cellspacing=1 cellpadding=3 class=table0>
<form name=sel_form action='?jk_mod=<%response.write jk_mod%>&action=handle&c_id=<%response.write cid%>&s_id=<%response.write sid%>' method=post>
<tr align=center>
<td class=td width='7%'>序号</td>
<td class=td width='66%'><%response.write tit_fir%>标题及整理时间<%if sql_tmp<>"" then response.write "（搜索结果："&keyword&"）"%></td>
<td class=td width='22%'>相关属性</td>
<td class=td width='5%'><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
</tr>
<%
  sql="select count(id) from "&data_name&sql_add
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" id,name,tim,star,hidden from "&data_name&sql_add&" order by id desc"
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
    id=rs("id")
    name=rs("name")
    star=rs("star")
%>
<tr align=center>
<td class=tims><a href='<%response.write index_url%>_view.asp?id=<%response.write id%>' target=_blank><%response.write (viewpage-1)*nummer+i%></a></td>
<td>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr>
  <td><a href='?jk_mod=<%response.write jk_mod%>&action=edit&id=<%response.write id%>'><%response.write joekoe_cms.code_html(name,1,(22+tnum))%></a></td>
  <td align=right><font class=tims><%response.write joekoe_cms.time_type(rs("tim"),4)%></font></td>
  </tr>
  </table>
</td>
<td align=left><%
    response.write pro_edit("?jk_mod="&jk_mod&"&action=edit&id="&id,"编辑该"&tit_fir) &"&nbsp;"& pro_hidden(rs("hidden"),1) &"&nbsp;"
    if int(star)<1 then
      response.write "<font class=gray>没有等级</font>"
    else
      response.write "&nbsp;<font class=red>"&star&"</font> 星级"
    end if
    if int(star)>=5 then response.write "&nbsp;"& pro_istop(1)
%></td>
<td><input type=checkbox name=sel_id value='<%response.write id%>'></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr class=tr1>
<td colspan=2>
现有<font class=red><%response.write rssum%></font>个<%response.write tit_fir%>，
页次：<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>
<td colspan=2 align=center>
执行
<select name=sel_type size=1>
<option value='审核'>审核</option>
<option value='待审核'>待审核</option>
<option value='删除'>删除</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);">
</td>
</tr>
</form>
  </table>
</td>
</tr>
<%
end sub

sub movie_del()
  dim vid,vsum
  vid=trim(request.querystring("vid"))
  if not isnumeric(vid) then vid=0
  sql="select count(id) from video_url where nameid="&id
  set rs=joekoe_cms.exec(sql,1)
    vsum=rs(0)
  rs.close
  if vsum=1 then
    call admin_msg("无法删除唯一的 "&tit_fir&" 地址数据！","?action=edit&id="&id,1)
  else
  sql="select top 1 * from video_url where id="&vid&" and nameid="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg(tit_fir&"地址ID（"&vid&"）不存在！","?",1)
    exit sub
  end if
  call joekoe_cms.exec("delete from video_url where id="&vid,0)
  call admin_msg("已成功删除 "&tit_fir&" 地址数据！","?action=edit&id="&id,1)
  end if
end sub

sub video_edit()
  dim pic,no,url,urlname,vid,ispic,username,hidden,tim,remark,whe,role,name
  dim power,emoney,counter,star,lang,newno,videoserver,isfree,viewtype,vsize
  call admin_td("编辑"&tit_fir)
  sql="select count(id) from video_url where nameid="&id
  set rs=joekoe_cms.exec(sql,1)
  if not rs.eof then
    no=int(rs(0))
  else
    no=0
  end if
  rs.close
  sql="select top 1 * from "&data_name&" where id="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg(tit_fir&"ID（"&id&"）不存在！","?",1)
    exit sub
  end if
  if chk() then
	newno=trim(request.form("newno"))
	if newno<>"" or isnull(newno) then
	  newno=int(newno)
	else
	  newno=int(no)
	end if
    name=code_admin("name",1,50)
    csid=trim(request.form("c_id"))
	videoserver=trim(request.form("videoserver"))
	if not int_true(videoserver) then videoserver=0
    if cs_nd(csid)=false then
      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if
    if name="" then
      call admin_error(tit_fir&"标题 不能为空！")
      exit sub
    end if
    for i=1 to newno
      url=code_admin("url"&i&"",1,255)
      if url="" or isnull(url) then
        call admin_error(tit_fir&"地址"&i&" 不能为空！")
        exit sub
      end if
      if videoserver>0 and instr(url,"://")<>0 then
        call admin_error("本地服务器"&tit_fir&"地址"&i&" 错误！请输入服务器相对路径！")
        exit sub
      end if
      if videoserver=0 and instr(url,"://")<1 then
        call admin_error("非本地服务器"&tit_fir&"地址"&i&" 错误！请输入服务器绝对路径！")
        exit sub
      end if
      urlname=code_admin("urlname"&i&"",1,20)
      if urlname="" or isnull(urlname) then
        call admin_error(tit_fir&"名称"&i&" 不能为空！")
        exit sub
      end if
    next
    whe=code_admin("whe",1,20)
    remark=request.form("remark")
    role=code_admin("role",1,100)
    power=code_admin("power",1,50)
    power=replace(power," ","")
    power=replace(power,",",".")
    emoney=trim(request.form("emoney"))
    if not isnumeric(emoney) then emoney=0
    pic=code_admin("pic",1,100)
	username=code_admin("username",1,20)
    if symbol_name(username)=false then username=login_username
    tim=code_admin("tim",1,20)
    tim=joekoe_cms.time_type(tim,1)
    if tim="" then tim=joekoe_cms.now_time
	counter=trim(request.form("counter"))
    if not isnumeric(counter) then counter=0
	star=trim(request.form("star"))
    if not isnumeric(star) then star=1
	viewtype=trim(request.form("viewtype"))
    if not isnumeric(viewtype) then viewtype=1
    hidden=true
    if trim(request.form("hidden"))="yes" then hidden=false
    isfree=false
    if trim(request.form("isfree"))="yes" then isfree=true
    call chk_cid_sid()
    rs("c_id")=cid
	rs("s_id")=sid
	rs("genre")=code_admin("genre",1,10)
	rs("name")=name
	rs("username")=username
	rs("lang")=code_admin("lang",1,10)
	rs("whe")=whe
	rs("remark")=remark
	rs("role")=role
	rs("hidden")=hidden
	rs("emoney")=emoney
	rs("power")=power
	rs("star")=star
	rs("viewtype")=viewtype
	rs("types")=code_admin("types",1,10)
	rs("pic")=pic
	rs("tim")=tim
	rs("counter")=counter
	rs("isfree")=isfree
	rs("server_id")=videoserver
    rs.update
    vid=rs("id")
    rs.close
	sql="select * from video_url where nameid="&vid
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,3
	for i=1 to no
		url=code_admin("url"&i&"",1,255)
		urlname=code_admin("urlname"&i&"",1,20)
		vsize=0
		if trim(request.form("vsize"&i))="yes" then vsize=1
		rs("nameid")=vid
		rs("url")=url
		rs("urlname")=urlname
		rs("video_size")=vsize
		rs.update
		rs.movenext
	next
	if newno<>no then
	  for i=no+1 to newno
		rs.addnew
		url=code_admin("url"&i&"",1,255)
		urlname=code_admin("urlname"&i&"",1,20)
		vsize=0
		if trim(request.form("vsize"&i))="yes" then vsize=1
		rs("nameid")=vid
		rs("url")=url
		rs("urlname")=urlname
		rs("video_size")=vsize
		rs.update
		rs.movenext
	  next
	end if
	rs.close
    call upload_note(index_url,id)
    call video_skin.cache_del("scroll")
    call video_skin.cache_del("counter")
    call admin_msg("已成功编辑了一个"&tit_fir&"！","?jk_mod="&jk_mod&"&c_id="&cid&"&s_id="&sid,0)
    exit sub
  end if
  call form_first()
  cid=rs("c_id")