free.asp

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

<!--#include file="inc/St_conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<!--#include file="inc/St_syssub.asp"-->
<!--#include file="inc/St_function.asp"-->
<%
sql="select * from St_free where pass=true and date=#"&date()&"#"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
one=rs.recordcount
title=""&shotanfree&""
loadhead
response.write"<table border='0' cellspacing='0' cellpadding='0' align='center' class='dabg'><tr><td class='left'></td><td valign='top'><table width='100%' border='0'  cellspacing='0' cellpadding='0'><td valign=top>"& vbCrLf
st_replace "st_login",""&st_login&""
st_replace "st_search",""&st_search&""
st_replace "st_freetaxis",""&st_freetaxis&""
st_replace "st_freebest",""&st_freebest&""
st_replace "st_freeclassify",""&st_freeclassify&""
br()
response.write"</td><td width='5'></td><td valign=top align=right>"& vbCrLf
if request.querystring("action")<>"list" then
st_replace "st_freepic",""&st_freepic&""
end if
if request("class")<>"" then
sql="select * from St_free where class="&request("class")&" and pass=true order by id DESC"
else
sql="select * from St_free where pass=true order by id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
shotantop="共有免费资源&nbsp;"&totalcs&"&nbsp;个,今日更新&nbsp;<font color=red>"&one&"</font>&nbsp;个"
titletop ""&shotantop&"",0,2,0,"","","",0
response.write"<table cellspacing='0' cellpadding='0' border=1 bordercolor=#e6e6e6 class=2bg width=100% rules=rows frame=void id=sttable>"& vbCrLf
if not rs.bof and not rs.eof then
rs.pagesize=cint(shotanshow(2))
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof
response.write"<tr class=""tr""><td height=25 width=""70%"">&nbsp;<img src=images/titletop.gif align=absmiddle border=0>&nbsp;[" 
set rsclass=server.CreateObject("adodb.recordset")
sqlclass="select * from St_freeclass where id="&rs("class")&" order by id desc"
rsclass.open sqlclass,conn,1,1
if not rsclass.bof and not rsclass.eof then
response.Write "<a href=""free.asp?class="&rsclass("id")&""">"&rsclass("classname")&"</a>"
end if
rsclass.close
set rsclass=nothing
response.write"]&nbsp;<a href='showfree.asp?id="&rs("id")&"' target=_blank><font color='"&rs("color")&"' TITLE='资源标题："&rs("title")&"<br>资源来源："&rs("writer")&"<br>发表会员："&rs("user")&"<br>资源版权："&rs("copyright")&"<br>添加时间："&rs("date")&"<br>点击次数："&rs("click")&"次'>"&st_cutword(rs("title"),36)&"</font></a>&nbsp;"& vbCrLf
if rs("best")=true then
response.Write "<font class=bestfont>推荐</font>"& vbCrLf
end if
response.Write "</td><td align=center width=""10%"">"&rs("click")&"</td><td align=center width=""20%"">"&rs("date")&"</td></tr>"& vbCrLf
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center><b><font color=red>暂时没有免费资源！</font></b></td></tr>"& vbCrLf
else
response.write"<tr class=bg><td colspan=3 height=25 align=center>"& vbCrLf
pginfo "免费资源","个"
end if
response.write"</td></tr></table>"& vbCrLf
titlebom 2
br()
rs.close
set rs=nothing
response.write"</td></tr></table></td><td class=right></td></tr></table>"& vbCrLf
foot
%>