admin_video.asp

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

<%
  sql="select count(id) from video_free"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from video_free 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")
    f_name=rs("username")
    f_ip=rs("userip")
    if f_ip="" or isnull(f_ip) then f_ip="未绑定"
    f_tim=rs("tim")
    f_endtim=video_skin.last_tim(f_tim,int(rs("freetype")))
    f_tim=joekoe_cms.time_type(f_tim,1)
    f_endtim=joekoe_cms.time_type(f_endtim,1)
%>
<tr align=center>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td><a href='?jk_mod=<%response.write jk_mod%>&action=buyedit&id=<%response.write id%>'><%response.write joekoe_cms.code_html(f_name,1,(22+tnum))%></a></td>
<td><%response.write f_ip%></td>
<td><%response.write f_tim%></td>
<td><%response.write f_endtim%></td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr class=tr1>
<td colspan=5>
现有<font class=red><%response.write rssum%></font>个购卡用户，
页次：<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>
<%
end sub

sub video_buyedit()
  dim f_name,f_ip,f_type,f_tim,buy_tim
  call admin_td("编辑 购卡用户信息")
  sql="select top 1 * from video_free where id="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg(" 购卡 用户ID（"&id&"）不存在！","?",1)
    exit sub
  end if
  f_name=rs("username")
  f_ip=rs("userip")
  f_type=int(rs("freetype"))
  f_tim=rs("tim")
  rs.close
  if chk() then
	f_type=trim(request.form("usertype"))
	if f_type="" or isnull(f_type) then f_type=1
	f_type=int(f_type)
    f_ip=code_admin("userip",1,15)
    f_name=code_admin("username",1,50)
    if f_name="" then
      call admin_error("购卡 用户名 不能为空！")
      exit sub
    end if
    buy_tim=code_admin("buytim",1,20)
    buy_tim=joekoe_cms.time_type(buy_tim,1)
    if buy_tim="" then buy_tim=joekoe_cms.now_time
    if trim(request.form("istim"))="yes" then buy_tim=joekoe_cms.now_time
    call joekoe_cms.exec("update video_free set username='"&f_name&"',userip='"&f_ip&"',tim='"&buy_tim&"',freetype="&f_type&" where id="&id,0)
    call admin_msg("已成功修改 "&f_name&" 的购卡信息！","?action=buy",1)
  end if
  call form_first()
%>
<form name=add_frm action='?jk_mod=<%response.write jk_mod%>&action=<%response.write action%>&id=<%response.write id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>用户名：</td>
<td><input type=text name=username size=30 maxlength=50 value='<%response.write f_name%>'></td>
</tr>
<tr>
<td>用户IP：</td>
<td><input type=text name=userip size=30 maxlength=15 value='<%response.write f_ip%>'>&nbsp;&nbsp;<font class=red>请正确填写IP格式，如：127.0.0.1</font></td>
</tr>
<tr>
<td>购卡类型：</td>
<td><select name=usertype size=1>
<option value=1 <%if f_type=1 then response.write " selected"%>>月卡</option>
<option value=2 <%if f_type=2 then response.write " selected"%>>季卡</option>
<option value=3 <%if f_type=3 then response.write " selected"%>>年卡</option>
</select>
</td>
</tr>
<tr>
<td>购卡时间：</td>
<td><input type=text name=buytim size=30 maxlength=20 value='<%response.write joekoe_cms.time_type(f_tim,1)%>'>&nbsp;&nbsp;&nbsp;&nbsp;更新购买时间为现在时间&nbsp;&nbsp;<input type=checkbox name=istim value='yes' class=bg_td>
</td>
</tr>
<%
  call submit_edit()
end sub
'----------------服务器修改操作 开始------------
sub video_cons()
  dim temp1,temp2,vname1,vname2
  call admin_td(tit_fir&"服务器批量修改")
  if chk() then
    dim sel1,sel2
    sel1=trim(request.form("sel_1"))
    sel2=trim(request.form("sel_2"))
    sel1=int(sel1)
    sel2=int(sel2)
    if sel1=sel2 then
      call admin_msg("请选择不同的服务器！","?action=cons",1)
      exit sub
    end if
    call joekoe_cms.exec("update "&data_name&" set server_id="&sel2&" where server_id="&sel1,0)
    call admin_msg("已经更新了"&rssum&"个影片数据！","?action=cons",1)
  end if
  call form_first()
%>
<form action='?action=cons' method=post>
<input type=hidden name='chk' value='yes'>
<tr class=tr1><td colspan=2 class=red>此操作不可恢复！执行前请做好数据库备份工作！</td></tr>
<tr>
<td>原服务器：</td>
<td><select size=1 name=sel_1><%response.write video_skin.video_selsv("")%></select></td>
</tr>
<tr>
<td>新服务器：</td>
<td><select size=1 name=sel_2><%response.write video_skin.video_selsv("")%></select></td>
</tr>
<tr>
<td></td>
<td><input type=submit value='开始修改' onclick="return click_return('开始执行',0);"></td>
</tr>
</form>
<%
end sub

'----------------模板操作 开始------------
sub video_style_main()
  dim vname,vstyle
  call admin_td0("模板列表",4)
%>
<tr align=center class=tr1>
<td width='10%'>序号</td>
<td width='35%'>模板名称</td>
<td width='20%'>图片地址</td>
<td width='35%'>相关属性</td>
</tr>
<%
  sql="select count(id) from video_style"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from video_style 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")
    vname=rs("name")
%>
<tr align=center>
<td class=tims><%response.write (viewpage-1)*nummer+i%></td>
<td><a href='?action=edit_style&id=<%response.write id%>'><%response.write joekoe_cms.code_html(vname,1,(22+tnum))%></a></td>
<td class=blue><%response.write rs("picurl")%></td>
<td>
<%if rs("isdef")=true then%><font class=gray>此为默认模板</font><%else%><a href='?action=set&id=<%response.write id%>'>设为默认模板</a><%end if%>&nbsp;&nbsp;
<%if rs("isdef")=true then%><font class=gray>删除此模板</font><%else%><a href='?action=del&id=<%response.write id%>'>删除此模板</a><%end if%>&nbsp;&nbsp;
<a href='?action=copy&id=<%response.write id%>'>拷贝此模板</a>
</td>
</tr>
<%
    rs.movenext
  next
  rs.close
%>
<tr class=tr1>
<td colspan=4>
现有<font class=red><%response.write rssum%></font>个模板，
页次：<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>
<%
end sub

sub video_style_setup()
  dim vname
  sql="select top 1 * from video_style where id="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg(" ID（"&id&"）不存在！","?action=style",1)
    exit sub
  end if
  vname=rs("name")
  rs.close
  call joekoe_cms.exec("update video_style set isdef=false",0)
  call joekoe_cms.exec("update video_style set isdef=true where id="&id,0)
  call video_skin.video_skin_del()
  call admin_msg("成功更新 ("&vname&") 模板为默认模板！","?action=style",1)
end sub

sub video_style_copy()
  dim oname,vname,vstyle,picurl
  sql="select top 1 * from video_style where id="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg(" ID（"&id&"）不存在！","?action=style",1)
    exit sub
  end if
  oname=rs("name")
  picurl=rs("picurl")
  vstyle=rs("style")
  rs.close
  vname=oname&"(新)"
  sql="select * from video_style"
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  rs.addnew
  rs("name")=vname
  rs("picurl")=picurl
  rs("style")=vstyle
  rs("isdef")=false
  rs.update
  rs.close
  call admin_msg("成功复制 ("&oname&") 模板为 ("&vname&") 模板！","?action=style",1)
end sub

sub video_style_del()
  dim vname,isdef
  sql="select top 1 * from video_style where id="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg(" ID（"&id&"）不存在！","?action=style",1)
    exit sub
  end if
  vname=rs("name")
  isdef=rs("isdef")
  rs.close
  if isdef=true then
    call admin_msg(" 该模板为默认模板，无法删除！","?",1)
    exit sub
  end if
  call joekoe_cms.exec("delete from video_style where isdef=false and id="&id,0)
  'call video_skin.video_skin_del()
  call admin_msg("成功删除 ("&vname&") 模板！","?action=style",1)
end sub

sub video_style_edit()
  dim vname,picurl,vstyle,allstr,htmlstr,helpstr,isdef
  sql="select top 1 * from video_style where id="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg(" ID（"&id&"）不存在！","?action=style",1)
    exit sub
  end if
  vname=rs("name")
  picurl=rs("picurl")
  vstyle=rs("style")
  isdef=rs("isdef")
  rs.close
  call admin_td("编辑（"&vname&")")
  If chk() then
    dim tempstr
    htmlstr=""
    helpstr=""
    vname=code_admin("name",1,20)
    picurl=code_admin("picurl",1,20)
    if vname="" or picurl="" then
      call admin_error(tit_fir&"名称、图片地址 不能为空！")
      exit sub
    end if
	for each tempstr in request.form("htmlstr")
		if LCase(tempstr)<>"del" Then
			htmlstr=htmlstr&Replace(tempstr,"|||","")&"|||"
		end if
	Next
	htmlstr=video_skin.code_str(Replace(htmlstr,"@@@",""))
	If trim(htmlstr)="" Then
		htmlstr="|||"
	End If
	tempstr=""
	for each tempstr in request.form("helpstr")
		if LCase(tempstr)<>"del" Then
			helpstr=helpstr&Replace(tempstr,"|||","")&"|||"
		end if
	Next
	helpstr=video_skin.code_str(Replace(helpstr,"@@@",""))
	If trim(helpstr)="" Then
		helpstr="|||"
	End If
	if ubound(split(helpstr,"|||"))<>ubound(split(htmlstr,"|||")) then
 	  call admin_error("提交错误，如果想删除某个，请全部输入“del”！")
      exit sub
	end if
	allstr=htmlstr & "@@@" & helpstr
	call joekoe_cms.exec("update video_style set name='"&vname&"',picurl='"&picurl&"',style='"&allstr&"' where id="&id,0)
	if isdef then call video_skin.video_skin_del()
	call admin_msg("成功更新 ("&vname&") 模板！","?action=edit_style&id="&id,1)
	exit sub
  end if
  allstr=split(vstyle,"@@@")
  htmlstr=split(allstr(0),"|||")
  helpstr=split(allstr(1),"|||")
  If htmlstr(ubound(htmlstr))="" then htmlstr(ubound(htmlstr))="del"
  If helpstr(ubound(helpstr))="" then helpstr(ubound(helpstr))="del"
  call form_first()
%>
<form name=style_frm action='?action=<%response.write action%>&id=<%response.write id%>' method=post>
<input type=hidden name=chk value='yes'>
<tr class=tr1>
<td colspan=2>
<li>模板编辑规则：如果想清除该字段，请在对应的文本框中输入"del"，那么模板数据的序号就会前移。
<li>如果不想改变模板数据的序号,仅把该项目的数据清空,则只需要把内容清空。
</td>
</tr>
<tr>
<td>模板名称：</td>
<td><input type=text name=name size=20 maxlength=20 value="<%response.write vname%>"><%response.write redx%></td>
</tr>
<tr>
<td>模板图片地址：</td>
<td><input type=text name=picurl size=20 maxlength=20 value="<%response.write picurl%>"><%response.write redx%></td>
</tr>
<tr align=center class=tr1><td>调用方式</td><td>输出内容</td></tr>
<%
	for i=0 to ubound(htmlstr)
%>
<tr align=left>
<td rowspan=2>HtmlNums(<%response.write i%>)</td>
<td class=tr1>调用说明：<input type=text name=helpstr id=h<%=i%> size=20 value="<%response.write helpstr(i)%>"></td>
</tr>
<tr align=left>
<td>
<table border=0><tr>
<td>
<textarea name=htmlstr id=s<%response.write i%> rows=5 cols=65><%response.write server.htmlencode(htmlstr(i))%></textarea>
</td>
<td width=5></td>
<td valign=bottom><%call textarea_resize("s"&i&"")%></td>
</tr></table>
</td>
</tr>
<%
	next
	call submit_edit()
end sub

sub video_topic(fn,tn)
%>
<select onchange="document.<%response.write fn&"."&tn%>.focus(); document.<%response.write fn&"."&tn%>.value = this.options[this.selectedIndex].value + document.<%response.write fn&"."&tn%>.value;"> 
<option value='' selected>格式</option>
<option value=[DVD版]>[DVD版]</option>
<option value=[VCD版]>[VCD版]</option>
<option value=[电影版]>[电影版]</option>
<option value=[清晰版]>[清晰版]</option>
</select>
<%
end sub
%>