website.asp

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

<!-- #include file="include/con_vouch.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="style/data_sort_web.asp" -->
<%
dim nummer,nums,rssum,page,viewpage,thepages,pageurl,sql_add,nid,nname,username,url,sqladd
pageurl="?"
nummer=3
nums=nummer
sql_add=""
types="web"
n_sort="web"
tit="推荐站点"

call cid_sid()
call web_head(0,0,0,0,0)
call vouch_load(1,0,1)
'----------------------------左边 开始----------------------------
call website_left_sort(tit,0)
call vouch_left()
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0>&nbsp;<%response.write img_skin(web_img_m)&tit%> 搜索</td></tr>
<tr class=bg_td><td align=center>
<%  
call vouch_search(tit,1,"")
%>
</td></tr>
</table>
<%response.write ukong%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0>&nbsp;<%response.write img_skin(web_img_m)&tit%></td></tr>
<%
if cid>0 then
  sql_add=sql_add&" and c_id="&cid
  pageurl=pageurl&"c_id="&cid&"&"
  if sid>0 then
    sql_add=sql_add&" and s_id="&sid
    pageurl=pageurl&"s_id="&sid&"&"
  end if
end if
keyword=code_search(request.querystring("keyword"))
if action="search" and keyword<>"" then
  sea_type=trim(request.querystring("sea_type"))
  sea_term=trim(request.querystring("sea_term"))
  if sea_type<>"username" then sea_type="name"
  if sea_term<>"only" then sea_term="all"
  sql_tmp=sql_key(keyword,sea_type,2,sea_term)
  if sql_tmp<>"" then
    sqladd=sqladd&" and "&sql_tmp
    sql_tmp=""
    pageurl=pageurl&"action=search&sea_type="&sea_type&"&keyword="&server.urlencode(keyword)&"&"
  end if
end if
sql="select count(id) from website where hidden=1 "&sql_add&sqladd
set rs=joekoe_cms.exec(sql,1)
rssum=rs(0)
rs.close
call format_pagecute()
sql="select top "&nummer*viewpage&" * from website where hidden=1 "&sql_add&sqladd&" order by id desc"
call joekoe_cms.exec("",-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
  nid=rs("id")
  nname=rs("name")
  username=rs("username")
  url=rs("url")
%>
<tr><td class=td0>&nbsp;<%response.write img_skin(web_img_m)%><a href='website_view.asp?id=<%response.write nid%>' target=_blank class=h_td><%response.write joekoe_cms.code_html(nname,1,0)%></a></td></tr>
<tr class=bg_td><td height=30>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr align=center>
  <td width='75%'>
    <table border=0 width='98%'>
    <tr><td width='18%'></td><td width='30%'</td><td width='18%'></td><td width='34%'></td></tr>
    <tr><td>国家地区：</td><td><%response.write rs("country")%></td><td>站点语言：</td><td><%response.write rs("lang")%></td></tr>
    <tr><td>推 荐 人：</td><td><%response.write format_user_name(username,0,"")%></td><td>添加时间：</td><td><%response.write joekoe_cms.time_type(rs("tim"),4)%></td></tr>
    <tr><td>站点属性：</td><td><%
if rs("isgood")=true then
  response.write "<font class=red>推荐</font>"
else
  response.write "普通"
end if
  %></td><td>浏览人气：</td><td class=red><%response.write rs("counter")%></td></tr>
    <tr><td>网站地址：</td><td colspan=3><a href='website_view.asp?id=<%response.write nid%>' target=_blank><%response.write url%></a></td></tr>
    <tr><td colspan=2>网站介绍：</td><td colspan=2 align=center><a href='javascript:;' onclick="javascript:window.external.AddFavorite('<%response.write url%>','<%response.write nname%>')" style='target: ' _self?>〖加入收藏夹〗</a></td></tr>
    <tr><td colspan=4 align=center><table border=0 cellspacing=0 cellpadding=2 width='96%' class=tf><tr><td class=bw><%response.write joekoe_cms.code_html(rs("remark"),2,0)%></td></tr></table></td></tr>
    </table>
  </td>
  <td width='25%'><%response.write pic_fk(rs("pic"),1,"website_view.asp?id="&nid)%></td>
  </tr>
  </table>
</td></tr>
<%
  rs.movenext
next
rs.close
%>
</table>
<table cellspacing=1 cellpadding=4 class=table>
<tr class=bg_tds><td height=30>
现有 <font class=red><%response.write rssum%></font> 个<%response.write tit%>，
页次：<font class=red><%response.write viewpage%></font>/<font class=red color=#ffffff><%response.write thepages%></font>&nbsp;
&nbsp;分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%>
</td></tr>
</table>
<%
response.write ukong
'----------------------------中间 结束----------------------------
call vouch_end()
call web_end(0,0)

sub website_left_sort(nsn,ntt)
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0>&nbsp;<%response.write img_skin(web_img_m)&nsn%></td></tr>
<tr class=bg_td><td align=center>
<%response.write nsort_left_type("website.asp?",ntt)%>
</td></tr>
</table>
<%
  response.write ukong
end sub
%>