index.asp

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

    </table></td>
  </tr>
</table>
<table width="925" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td> </td>
  </tr>
</table>
<table width="925" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="241" align="left" valign="top"><img src="skin/skin_1/xindc125.gif" width="241" height="51"></td>
    <td width="665" align="left" valign="top" background="skin/skin_1/xindc126.gif"> </td>
    <td width="19" align="left" valign="top" background="skin/skin_1/xindc126.gif"><img src="skin/skin_1/xindc127.gif" width="19" height="51"></td>
  </tr>
</table>
<table width="925" border="0" align="center" cellpadding="0" cellspacing="8">
  <tr>
    <td width="223" height="191" align="left" valign="top"><table width="218" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><a href="article_list.asp?c_id=147"><img src="skin/skin_1/f1.gif" width="218" height="25" border="0"></a></td>
      </tr>
    </table>
      <table width="218" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="166" align="left" valign="top">
		  <%
		  sub main_center_list1(cl_type,cl_tnum,cl_cnum,cl_classid)
  dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url,tmp_color,tmp_name,c_id
  tmp_img=cl_type
  tmp_where="hidden=1"
  if cl_classid>0 then tmp_where=tmp_where&" and s_id="&cl_classid
  select case cl_type
  case else
    tmp_title="article"
    tmp_tit="文章标题"
    tmp_count="浏览次数"
    tmp_table="article"
    tmp_record="id,topic,username,tim,counter,tcolor"
  end select
  sql="select top "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" and c_id=147 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    tmp_url=cl_type&"_view.asp?id="&rs(0)
    if cl_type="forum" then
      tmp_url=cl_type&"_view.asp?forum_id="&rs(6)&"&view_id="&rs(0)
    end if
    if cl_type="article" or cl_type="news" or cl_type="forum" then 
      tmp_color="style=""color:"&rs(5)&";"""
	end if 
    tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;&nbsp;"&img_skin("h_"&tmp_img)&"<a href='"&tmp_url&"' "&tmp_color&" alt='"&tmp_tit&"："&joekoe_cms.code_html(rs(1),1,0)&"<br>发 布 人："&rs(2)&"<br>"&tmp_count&"："&rs(4)&" 人次<br>整理时间："&rs(3)&"' target=_blank>"&joekoe_cms.code_html(rs(1),1,cl_cnum)&"</a></td></tr>"
    rs.movenext
  loop
  rs.close
  tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
  
  response.write vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr>" & _
                 vbcrlf&"</tr></table>" & _
                 vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td height=5></td></tr><tr align=center><td>"&tmp1&"</td></tr>" & _
                 vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 class=table>" & _
                 vbcrlf&"</table>"&ukong
end sub
		  %>
		  <%call main_center_list1("article",10,15,0)%>
		  </td>
        </tr>
    </table></td>
    <td width="223" align="left" valign="top"><table width="218" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><a href="article_list.asp?c_id=117"><img src="skin/skin_1/f2.gif" width="218" height="25" border="0"></a></td>
      </tr>
    </table>
      <table width="218" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="166" align="left" valign="top"><%
		  sub main_center_list2(cl_type,cl_tnum,cl_cnum,cl_classid)
  dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url,tmp_color,tmp_name,c_id
  tmp_img=cl_type
  tmp_where="hidden=1"
  if cl_classid>0 then tmp_where=tmp_where&" and s_id="&cl_classid
  select case cl_type
  case else
    tmp_title="article"
    tmp_tit="文章标题"
    tmp_count="浏览次数"
    tmp_table="article"
    tmp_record="id,topic,username,tim,counter,tcolor"
  end select
  sql="select top "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" and c_id=117 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    tmp_url=cl_type&"_view.asp?id="&rs(0)
    if cl_type="forum" then
      tmp_url=cl_type&"_view.asp?forum_id="&rs(6)&"&view_id="&rs(0)
    end if
    if cl_type="article" or cl_type="news" or cl_type="forum" then 
      tmp_color="style=""color:"&rs(5)&";"""
	end if 
    tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;&nbsp;"&img_skin("h_"&tmp_img)&"<a href='"&tmp_url&"' "&tmp_color&" alt='"&tmp_tit&"："&joekoe_cms.code_html(rs(1),1,0)&"<br>发 布 人："&rs(2)&"<br>"&tmp_count&"："&rs(4)&" 人次<br>整理时间："&rs(3)&"' target=_blank>"&joekoe_cms.code_html(rs(1),1,cl_cnum)&"</a></td></tr>"
    rs.movenext
  loop
  rs.close
  tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
  
  response.write vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr>" & _
                 vbcrlf&"</tr></table>" & _
                 vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td height=5></td></tr><tr align=center><td>"&tmp1&"</td></tr>" & _
                 vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 class=table>" & _
                 vbcrlf&"</table>"&ukong
end sub
		  %>
              <%call main_center_list2("article",10,15,0)%>
          </td>
        </tr>
      </table></td>
    <td width="223" align="left" valign="top"><table width="218" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><a href="article_list.asp?c_id=66"><img src="skin/skin_1/f3.gif" width="218" height="25" border="0"></a></td>
      </tr>
    </table>
      <table width="218" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="166" align="left" valign="top"><%
		  sub main_center_list3(cl_type,cl_tnum,cl_cnum,cl_classid)
  dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url,tmp_color,tmp_name,c_id
  tmp_img=cl_type
  tmp_where="hidden=1"
  if cl_classid>0 then tmp_where=tmp_where&" and s_id="&cl_classid
  select case cl_type
  case else
    tmp_title="article"
    tmp_tit="文章标题"
    tmp_count="浏览次数"
    tmp_table="article"
    tmp_record="id,topic,username,tim,counter,tcolor"
  end select
  sql="select top "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" and c_id=66 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    tmp_url=cl_type&"_view.asp?id="&rs(0)
    if cl_type="forum" then
      tmp_url=cl_type&"_view.asp?forum_id="&rs(6)&"&view_id="&rs(0)
    end if
    if cl_type="article" or cl_type="news" or cl_type="forum" then 
      tmp_color="style=""color:"&rs(5)&";"""
	end if 
    tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;&nbsp;"&img_skin("h_"&tmp_img)&"<a href='"&tmp_url&"' "&tmp_color&" alt='"&tmp_tit&"："&joekoe_cms.code_html(rs(1),1,0)&"<br>发 布 人："&rs(2)&"<br>"&tmp_count&"："&rs(4)&" 人次<br>整理时间："&rs(3)&"' target=_blank>"&joekoe_cms.code_html(rs(1),1,cl_cnum)&"</a></td></tr>"
    rs.movenext
  loop
  rs.close
  tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
  
  response.write vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr>" & _
                 vbcrlf&"</tr></table>" & _
                 vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td height=5></td></tr><tr align=center><td>"&tmp1&"</td></tr>" & _
                 vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 class=table>" & _
                 vbcrlf&"</table>"&ukong
end sub
		  %>
              <%call main_center_list3("article",10,15,0)%>
          </td>
        </tr>
      </table></td>
    <td width="223" align="left" valign="top"><table width="218" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><a href="article_list.asp?c_id=154"><img src="skin/skin_1/f4.gif" width="218" height="25" border="0"></a></td>
      </tr>
    </table>
      <table width="218" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="166" align="left" valign="top"><%
		  sub main_center_list4(cl_type,cl_tnum,cl_cnum,cl_classid)
  dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url,tmp_color,tmp_name,c_id
  tmp_img=cl_type
  tmp_where="hidden=1"
  if cl_classid>0 then tmp_where=tmp_where&" and s_id="&cl_classid
  select case cl_type
  case else
    tmp_title="article"
    tmp_tit="文章标题"
    tmp_count="浏览次数"
    tmp_table="article"
    tmp_record="id,topic,username,tim,counter,tcolor"
  end select
  sql="select top "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" and c_id=154 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    tmp_url=cl_type&"_view.asp?id="&rs(0)
    if cl_type="forum" then
      tmp_url=cl_type&"_view.asp?forum_id="&rs(6)&"&view_id="&rs(0)
    end if
    if cl_type="article" or cl_type="news" or cl_type="forum" then 
      tmp_color="style=""color:"&rs(5)&";"""
	end if 
    tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;&nbsp;"&img_skin("h_"&tmp_img)&"<a href='"&tmp_url&"' "&tmp_color&" alt='"&tmp_tit&"："&joekoe_cms.code_html(rs(1),1,0)&"<br>发 布 人："&rs(2)&"<br>"&tmp_count&"："&rs(4)&" 人次<br>整理时间："&rs(3)&"' target=_blank>"&joekoe_cms.code_html(rs(1),1,cl_cnum)&"</a></td></tr>"
    rs.movenext
  loop
  rs.close
  tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
  
  response.write vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr>" & _
                 vbcrlf&"</tr></table>" & _
                 vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td height=5></td></tr><tr align=center><td>"&tmp1&"</td></tr>" & _
                 vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 class=table>" & _
                 vbcrlf&"</table>"&ukong
end sub
		  %>
              <%call main_center_list4("article",10,20,0)%>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="925" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="146" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td colspan="2" align="left" valign="middle"><img src="skin/skin_1/reading_count.gif" width="155" height="41"></td>
      </tr>
      <tr>
        <td width="5%" height="150" align="left" valign="top"> </td>
        <td width="95%" height="242" align="left" valign="top" class="tjbk">
		<%sub main_left_data()
  dim tmp1
  tmp1=vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"网站注册人数：<font class=red>"&num_reg&"</font> 人</td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"最新注册会员："&format_user_name(new_username,0,"")&"</td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"新闻资讯总数：<font class=red>"&web_config(5,0)&"</font> 条</td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"精品文苑总数：<font class=red>"&web_config(6,0)&"</font> 篇</td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"经典软件总数：<font class=red>"&web_config(7,0)&"</font> 个</td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"资源论坛主题：<font class=red>"&num_topic&"</font> 贴</td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"论坛贴子总数：<font class=red>"&num_data&"</font> 贴</td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"当前在线人数：<font class=red>"&online_num&"</font> 人</td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"本站最高在线：<font class=red alt='最高在线发生于："&max_tim&"'>"&max_online&"</font> 人</td></tr>" & _ 
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"<a href='in_super.asp'><font class=red>论 坛 斑 竹 考 勤</font></a></td></tr>" & _
       vbcrlf&"<tr><td height="&dim_num(6)&">&nbsp;"&img_skin("h_")&"<a href='rss.asp'><font class=red>本站支持 RSS 2.0</font></a></td></tr>"
  tmp1="<table border=0 cellspacing=0 cellpadding=0 width='100%'>"&tmp1&vbcrlf&"</table>"
  response.write vbcrlf&"<table><tr><td height='3'></td></tr></table><table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
                 vbcrlf&"</table>" & _
                 vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td height=5></td></tr>" & _
                 vbcrlf&"<tr><td valign='bottom'>"&tmp1&"</td></tr>" & _
                 vbcrlf&"</table>"&ukong
end sub%><%call main_left_data()%>		</td>
      </tr>