video_view.asp

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

<!-- #include file="include/con_video.asp" -->
<!-- #include file="include/jk_review.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<%
dim id,v_username,v_role,v_types,v_name,v_pic,fid,v_star,v_viewtype,v_power,v_emoney,v_lang,v_counter,v_tim,v_id,v_remark,v_genre,v_whe
id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("video.asp")
end if
sql="select top 1 * from video where hidden=1 and id="&id
set rs=joekoe_cms.exec(sql,1)
if rs.eof then
  rs.close
  call format_redirect("video.asp")
end if
v_id=rs("id")
cid=rs("c_id")
v_username=rs("username")
v_role=joekoe_cms.code_html(rs("role"),1,0)
v_remark=rs("remark")
v_genre=rs("genre")
v_viewtype=int(rs("viewtype"))
v_lang=rs("lang")
v_name=joekoe_cms.code_html(rs("name"),1,0)
v_pic=rs("pic")
v_whe=rs("whe")
v_star=int(rs("star"))
v_counter=int(rs("counter"))
v_emoney=rs("emoney")
v_power=rs("power")
v_tim=rs("tim")
v_tim=joekoe_cms.time_type(v_tim,1)
rs.close
if len(v_remark)<3 then
  v_remark="<font class=gray>暂无本影片的介绍！</font>"
else
  v_remark=code_jk(v_remark)
end if
v_pic=video_fk(v_pic,8,"")

tit="影视欣赏 - "&v_name

call web_head(0,0,0,0,0)
'----------------------------左边 开始----------------------------
call video_sort()
call video_hot_left(5)
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
%>
<table width='98%' border=0 cellspacing=0 cellpadding=0 align=center>
<%
  video_skin.HtmlNums(10)
  video_skin.HtmlRcod "v_pic",v_pic
  video_skin.HtmlRcod "v_names",joekoe_cms.code_html(v_name,1,0)
  video_skin.HtmlRcod "v_name",joekoe_cms.code_html(v_name,1,18)
  video_skin.HtmlRcod "v_role",v_role
  video_skin.HtmlRcod "v_whe",v_whe
  video_skin.HtmlRcod "v_genre",genre_view(v_genre)
  video_skin.HtmlRcod "v_lang",v_lang
  video_skin.HtmlRcod "v_star",v_star
  video_skin.HtmlRcod "v_counter",v_counter
  video_skin.HtmlRcod "emoney_power",format_emoney_power(v_emoney,v_power,1)
  video_skin.HtmlRcod "v_tim",v_tim
  video_skin.HtmlView(0)
%>
<tr><td align=center>
  <table width='100%' border=0 cellspacing=0 cellpadding=0>
  <%call video_view()%>
  </table>
</td></tr>
<%
  video_skin.HtmlNums(11)
  video_skin.HtmlRcod "v_remark",v_remark
  video_skin.HtmlView(0)
%>
<tr><td>
  <table width='100%' border=0 cellspacing=0 cellpadding=0 align=center>
  <tr><td><img src='<%response.write pic_dir%>center_s_review.gif' border=0></td></tr>
  <tr><td align=center class=bg_td><%response.write review_type(n_sort,id,"video_view.asp?id="&id,1,"")%></td></tr>
  </table>
</td></tr>
</table>
<%
response.write ukong
call video_end()
'---------------------------------center end-------------------------------
call web_end(0,0)

sub video_view()
  dim fid,fname,temp1,temp2,nodown
  nodown=""
  if v_viewtype=1 then nodown="<font class=gray>目前影片下载暂不开放</font>　　"
  sql="select id,urlname from video_url where nameid="&id
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    fid=rs("id")
    fname=rs("urlname")
    fname=joekoe_cms.code_html(fname,1,0)
    temp1=temp1&vbcrlf&"<a href='javascript:;' onclick=""javascript:video_view('"&id&"','"&fid&"');"">"&fname&"</a>&nbsp;&nbsp;"
    temp2=temp2&vbcrlf&"<a href='javascript:;' onclick=""javascript:open_win('video_down.asp?id="&id&"&fid="&fid&"','video_download',600,200,'no');"">"&fname&"</a>&nbsp;&nbsp;"
    rs.movenext
  loop
  rs.close
  if v_viewtype<>0 then
    video_skin.HtmlNums(12)
    video_skin.HtmlRcod "nodown",nodown
    video_skin.HtmlRcod "friend",commend_friend(tit,v_name,"video_view.asp?id="&id)
    video_skin.HtmlRcod "v_emoney",v_emoney
    video_skin.HtmlRcod "v_power",v_power
    video_skin.HtmlRcod "body",temp1
    video_skin.HtmlView(0)
  end if
  if v_viewtype<>1 then
    video_skin.HtmlNums(13)
    video_skin.HtmlRcod "body",temp2
    video_skin.HtmlView(0)
  end if
end sub
%>