admin_video.asp

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

  sid=rs("s_id")
  star=int(rs("star"))
  lang=rs("lang")
  whe=rs("whe")
  videoserver=rs("server_id")
  remark=joekoe_cms.code_word(rs("remark"))
  pic=rs("pic")
  ispic=apart_filename(pic,1,"/")
  if ispic="" then ispic=joekoe_cms.rand_file(index_url)
%>
<form name=add_frm action='?jk_mod=<%response.write jk_mod%>&c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=edit&id=<%response.write id%>' method=post>
<input type=hidden name=chk value='yes'>
<input type=hidden name=upid value=''>
<tr>
<td><%response.write tit_fir%>标题：</td>
<td><%call video_topic("add_frm","name")%><input type=text name=name value='<%response.write rs("name")%>'size=50 maxlength=50><% response.write redx %></td>
</tr>
<tr>
<td><%response.write tit_fir%>分类：</td>
<td><%call chk_csid(nsort,cid,sid)%></td>
</tr>
<tr><td><%response.write tit_fir%>主演：</td><td><input type=text name=role value='<%response.write rs("role")%>' size=50 maxlength=100></td></tr>
<tr>
<td><%response.write tit_fir%>发布人：</td>
<td><input type=text name=username value='<%response.write rs("username")%>' size=20 maxlength=20>&nbsp;&nbsp;<%call chk_emoney(rs("emoney"))%>&nbsp;&nbsp;免费影片：<input type=checkbox name=isfree value='yes'<%if rs("isfree")=true then response.write " checked"%>></td>
</tr>
<%call chk_power("影片",rs("power"),0)%>
<tr>
<td>发布时间：</td>
<td><input type=text name=tim value='<%response.write rs("tim")%>' size=20 maxlength=20>&nbsp;<input type=button name=st_btn value="选择" onclick="javascript:select_time(tim);return false;">&nbsp;&nbsp;观看：<input type=text name=counter value='<%response.write rs("counter")%>' size=6 maxlength=10>&nbsp;人次&nbsp;&nbsp;&nbsp;&nbsp;隐藏/审核：<input type=checkbox name=hidden value='yes'<%if rs("hidden")=false then response.write " checked"%>></td>
</tr>
<tr>
<td><%response.write tit_fir%>信息：</td>
<td>
<%response.write tit_fir%>产地：<select size=1 name=whe><%response.write video_skin.sel_type(rs("whe"),"大陆|台湾|香港|日韩|欧美|其他")%></select>
&nbsp;&nbsp;<%response.write tit_fir%>语种：<select size=1 name=lang><%response.write video_skin.sel_type(rs("lang"),"汉语|粤语|英语|日语|韩语|法语|其他")%></select>
&nbsp;&nbsp;推荐等级：<select name=star size=1>
<option value=1<% if star=1 then response.write " selected" %>>一星级</option>
<option value=2<% if star=2 then response.write " selected" %>>二星级</option>
<option value=3<% if star=3 then response.write " selected" %>>三星级</option>
<option value=4<% if star=4 then response.write " selected" %>>四星级</option>
<option value=5<% if star=5 then response.write " selected" %>>五星级</option>
</select>&nbsp;<font class=red>五星即为推荐</font>
</td>
</tr>
<tr>
<td><%response.write tit_fir%>格式：</td>
<td>
<img src='images/video/ico_rp.gif' width=16 height=16> <input type=radio value='real' name=genre<%if rs("genre")="real" then response.write " checked"%>>
&nbsp;<img src='images/video/ico_mov.gif' width=16 height=16> <input type=radio value='qt' name=genre<%if rs("genre")="qt" then response.write " checked"%>>
&nbsp;<img src='images/video/ico_wmp.gif' width=16 height=16> <input type=radio value='wmp' name=genre<%if rs("genre")="wmp" then response.write " checked"%>>
&nbsp;<%response.write tit_fir%>类型：&nbsp;<select name=types size=1>
<option value='film'<% if rs("types")="film" then response.write " selected" %>>影片</option>
<option value='mtv'<% if rs("types")="mtv" then response.write " selected" %>>MTV</option>
<option value='music'<% if rs("types")="music" then response.write " selected" %>>歌曲</option>
</select>
</td>
</tr>
<tr>
<td>开放方式：</td>
<td><input type=radio value=1 name=viewtype<%if int(rs("viewtype"))=1 then response.write " checked"%>>在线观看 <input type=radio value=0 name=viewtype<%if int(rs("viewtype"))=0 then response.write " checked"%>>影片下载 <input type=radio value=2 name=viewtype<%if int(rs("viewtype"))=2 then response.write " checked"%>>即能观看也可下载</td></tr>
<%
  rs.close
  if no=0 then
    response.write "<tr><td></td><td>没有影片提供观看</td></tr>"
  else
    sql="select * from video_url where nameid="&id
    set rs=joekoe_cms.exec(sql,1)
    for i=1 to no
      response.write vbcrlf&"<tr><td>"&tit_fir&"地址 "&i&"：</td>"
      response.write vbcrlf&"<td><input type=text name=url"&i&" size=50 value='"&rs("url")&"' maxlength=255>&nbsp;&nbsp;本集名称：&nbsp;&nbsp;<input type=text name=urlname"&i&" size=10 value='"&rs("urlname")&"' maxlength=20>&nbsp;１６∶９<input type=checkbox name=vsize"&i&" value='yes'"
      if int(rs("video_size"))=1 then response.write " checked"
      response.write ">  "
      if no>1 then response.write vbcrlf&"<a href='?action=delurl&id="&id&"&vid="&rs("id")&"'><font class=red>删除</font></a></td></tr>"
      rs.movenext
    next
    rs.close
  end if
%>
<script language=javascript>
<!--
function seturl()
{
	var str="";
	var j="";
	var oldno=<%=int(no)%>;
	oldno=Math.floor(oldno);
	var temname1=add_frm.t1.value;
	var temname2=add_frm.t2.value;
	if (!window.add_frm.addno.value) window.add_frm.addno.value=1;
	var adds=window.add_frm.addno.value;
	adds=Math.floor(adds);
	adds+=oldno;
	oldno+=1;
	for(i=oldno;i<=adds;i++)
	{
	if (i<10)
	{ j='0'+i; }
	else
	{ j=i; }
	str+='&nbsp;'+j+'：&nbsp;<input type=text name="url'+i+'" size=50 value="'+temname1+j+temname2+'" maxlength=255>&nbsp;本集名称：&nbsp;<input type=text name="urlname'+i+'" size=10 maxlength=20 value="第'+j+'集">&nbsp;１６:９<input type=checkbox name="vsize'+i+'" value="yes"><BR>';
	}
	window.addid.innerHTML=str+'<input type=hidden name=newno value='+adds+'>';
}
-->
</script>
<tr class=tr1>
<td>服务器设置：</td>
<td>
<select size=1 name=videoserver>
<%response.write video_skin.video_selsv(videoserver)%>
</select>
前缀：<input type=text name=t1 value='' size=20>
集数：<input type=text name=addno value=2 size=2>
后缀：<input type=text name=t2 value='' size=5>
<input type=button name=Button onclick="seturl();" value='设置'> <% response.write redx %></td></tr>
<tr><td>新增<%response.write tit_fir%>地址</td><td id="addid"></td></tr>
<tr>
<td><%call frm_ubb_type("")%></td>
<td><%call frm_ubb("add_frm","remark","&nbsp;&nbsp;",0)%></td>
</tr>
<tr>
<td valign=top><%response.write tit_fir%>简介：</td>
<td>
<table border=0><tr>
<td><textarea name=remark rows=6 cols=65><%response.write remark%></textarea></td>
</tr></table>
</td>
</tr>
<tr>
<td><%response.write tit_fir%>图片：</td>
<td><input type=text name=pic value='<%response.write pic%>' size=40 maxlength=100>&nbsp;&nbsp;&nbsp;<a href='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic' target=upload_frame>上传图片</a>&nbsp;&nbsp;<a href='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write left(index_url,1)%>&uptext=remark' target=upload_frame>上传至内容</a></td>
</tr>
<tr>
<td>上传图片：</td>
<td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic'></iframe></td>
</tr>
<%
  call submit_edit()
end sub

sub video_add()
  call admin_td("添加"&tit_fir)
  dim pic,no,url,urlname,vid,ispic,username,hidden,tim,remark,whe,role,name,power,emoney,counter,videoserver,isfree
  dim viewtype,star,vsize
  if chk() then
    name=code_admin("name",1,50)
    csid=trim(request.form("c_id"))
	no=trim(request.form("no"))
	if not int_true(no) then no=0
	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 no
      url=code_admin("url"&i&"",1,255)
      if 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="" 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()
	sql="select * from "&data_name
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,3
	rs.addnew
	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 id is null"
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,3
	for i=1 to no
		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
	next
	rs.close
    call upload_note(index_url,first_id(data_name,"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()
  ispic=joekoe_cms.rand_file(index_url)
%>
<form name=add_frm action='?jk_mod=<%response.write jk_mod%>&action=add' method=post>
<input type=hidden name=chk value='yes'>
<input type=hidden name=upid value=''>
<tr>
<td><%response.write tit_fir%>标题：</td>
<td><%call video_topic("add_frm","name")%><input type=text name=name size=50 maxlength=50><% response.write redx %></td>
</tr>
<tr>
<td><%response.write tit_fir%>分类：</td>
<td><%call chk_csid(nsort,cid,sid)%></td>
<tr><td><%response.write tit_fir%>主演：</td><td><input type=text name=role value='未知' size=50 maxlength=100></td></tr>
</tr>
<tr>
<td><%response.write tit_fir%>发布人：</td>
<td><input type=text name=username value='<%response.write login_username%>' size=20 maxlength=20>&nbsp;&nbsp;<%call chk_emoney(0)%>&nbsp;&nbsp;免费影片：<input type=checkbox name=isfree value='yes'></td>
</tr>
<%call chk_power("影片","",1)%>
<tr>
<td>发布时间：</td>
<td><input type=text name=tim value='<%response.write joekoe_cms.now_time%>' size=20 maxlength=20>&nbsp;<input type=button name=st_btn value="选择" onclick="javascript:select_time(tim);return false;">&nbsp;&nbsp;观看：<input type=text name=counter value='0' size=6 maxlength=10>&nbsp;人次&nbsp;&nbsp;&nbsp;&nbsp;隐藏/审核：<input type=checkbox name=hidden value='yes'></td>
</tr>
<tr>
<td><%response.write tit_fir%>信息：</td>
<td><%response.write tit_fir%>产地：<select size=1 name=whe><%response.write video_skin.sel_type("","大陆|台湾|香港|日韩|欧美|其他")%></select>
&nbsp;&nbsp;<%response.write tit_fir%>语种：<select size=1 name=lang><%response.write video_skin.sel_type("","汉语|粤语|英语|日语|韩语|法语|其他")%></select>
&nbsp;&nbsp;推荐等级：
<select name=star size=1>
<option value=1>一星级</option>
<option value=2>二星级</option>
<option value=3>三星级</option>
<option value=4>四星级</option>
<option value=5>五星级</option>
</select>
&nbsp;<font class=red>五星即为推荐</font>
</td>
</tr>
<tr>
<td><%response.write tit_fir%>格式：</td>
<td>
<img src='images/video/ico_rp.gif' width=16 height=16> <input type=radio value='real' name=genre checked>
&nbsp;<img src='images/video/ico_mov.gif' width=16 height=16> <input type=radio value='qt' name=genre>
&nbsp;<img src='images/video/ico_wmp.gif' width=16 height=16> <input type=radio value='wmp' name=genre>
&nbsp;<%response.write tit_fir%>类型：&nbsp;<select name=types size=1>
<option value='film'>影片</option>
<option value='mtv'>MTV</option>
<option value='music'>歌曲</option>
</select>
</td>
</tr>
<tr>
<td>开放方式：</td>
<td><input type=radio value=1 name=viewtype checked>在线观看 <input type=radio value=0 name=viewtype>影片下载 <input type=radio value=2 name=viewtype>即能观看也可下载</td>
</tr>
<script language=javascript>
<!--
function seturl()
{
	var str="";
	var j="";
	var temname1=add_frm.t1.value
	var temname2=add_frm.t2.value
	if (!window.add_frm.no.value) window.add_frm.no.value=1;
	for(i=1;i<=window.add_frm.no.value;i++)
	{
	if (i<10)
	{ j='0'+i; }
	else
	{ j=i; }
	str+='&nbsp;'+j+'：&nbsp;<input type=text name="url'+i+'" size=50 value="'+temname1+j+temname2+'" maxlength=255>&nbsp;本集名称：&nbsp;<input type=text name="urlname'+i+'" size=10 maxlength=20 value="第'+j+'集">&nbsp;１６∶９<input type=checkbox name="vsize'+i+'" value="yes"><BR>';
	}
	window.addid.innerHTML=str;
}
-->
</script>
<tr class=tr1>
<td>服务器设置：</td><td>
<select size=1 name=videoserver>
<%response.write video_skin.video_selsv("")%>
</select>
前缀：<input type=text name=t1 value='' size=20>
集数：<input type=text name=no value=2 size=2>
后缀：<input type=text name=t2 value='' size=5>
<input type=button name=Button onclick="seturl();" value='设置'> <% response.write redx %></td></tr>
<tr><td><%response.write tit_fir%>地址</td><td id="addid"></td></tr>
<tr>
<td><%call frm_ubb_type("")%></td>
<td><%call frm_ubb("add_frm","remark","&nbsp;&nbsp;",0)%></td>
</tr>
<tr>
<td valign=top><%response.write tit_fir%>简介：</td>
<td>
<table border=0><tr>
<td><textarea name=remark rows=6 cols=65></textarea></td>
<td width=5></td>
<td valign=bottom><%call textarea_resize("remark")%></td>
</tr></table>
</td>
</tr>
<tr>
<td><%response.write tit_fir%>图片：</td>
<td><input type=text name=pic value='<%response.write pic%>' size=40 maxlength=100>&nbsp;&nbsp;&nbsp;<a href='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic' target=upload_frame>上传图片</a>&nbsp;&nbsp;<a href='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write left(index_url,1)%>&uptext=remark' target=upload_frame>上传至内容</a></td>
</tr>
<tr>
<td>上传图片：</td>
<td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic'></iframe></td>
</tr>
<%
  call submit_add()
end sub

'----------------购卡用户操作 开始------------
sub video_buys()
  dim f_name,f_ip,f_tim,f_endtim
%>
<tr align=center>
<td class=td width='10%'>序号</td>
<td class=td width='25%'>购卡用户</td>
<td class=td width='15%'>购卡用户IP</td>
<td class=td width='25%'>购买时间</td>
<td class=td width='25%'>到期时间</td>
</tr>