showdown.asp

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

<!--#include file="inc/St_conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="inc/St_syssub.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<!--#include file="inc/St_function.asp"-->
<%if showdown="no" then
if session("user")="" then
response.write"<script>alert('请登陆后操作！');location.href='index.asp';</script>"& vbCrLf
Response.End
end if
end if
set rstitle=conn.execute("select title from St_down where id="&request.querystring("id"))
title=rstitle("title")&"--下载中心"
rstitle.close
set rstitle=nothing
chkcontent()
loadhead
response.write"<table border='0'  cellspacing='0'  cellpadding='0' align='center' class='dabg'><tr><td class='left'></td><td class='width'><table width='100%' border='0'  cellspacing='0'  cellpadding='0'><tr><td valign='top'>"& vbCrLf
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_down where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update
set rsst=server.CreateObject("adodb.recordset")
sql="select * from St_downclass where id="&rs("class")&" order by id desc"
rsst.open sql,conn,1,1
if not rsst.bof and not rsst.eof then
shotantop="当前位置：<a href=index.asp>本站首页</a>-<a href=down.asp>下载中心</a>-<a href=down.asp?class="&rsst("id")&">"&rsst("classname")&"</a><font color="&rs("color")&">-<b>"&rs("title")&"</b></font>"
else
shotantop="<font color=red>没有分类</font>"
end if
rsst.close
set rsst=nothing
titletop ""&shotantop&"",60,4,0,"","","",0
if rs("read")=0 then
call main()
elseif rs("read")=1 then
if useradmin>=1 then
call main()
else
response.write "<br><br><center><b><font color=red>只有普通会员以上级别才可以查看！</font></b></center>"
end if
elseif rs("read")=2 then
if useradmin>=2 then
call main()
else
response.write "<br><br><center><b><font color=red>只有VIP会员以上级别才可以查看！</font></b></center>"
end if
end if
sub main()
response.write "<center><table border=1 cellspacing=0 cellpadding=0 frame=void width=748><tr><td height=25 align=center class=bg width=80 nowrap>下载名称：</td><td width=410>&nbsp;<b><font color="&rs("color")&">"&rs("title")&"</font></b></td><td rowspan=7 width=250 nowrap>"
if rs("pic")="" then
response.write "<img src='images/nopic.gif' border='0' width=250 height=200 align=absmiddle>"
else
response.write "<a href="""&rs("pic")&""" target=_blank><img src='"&rs("pic")&"' border='0'  width=250  height=200 align=absmiddle></a>"
end if
response.write "</td></tr><tr><td height=25 align=center class=bg>发布日期：</td><td width=410 nowrap>&nbsp;"&rs("date")&"</td></tr>"
response.write "<tr><td height=25 align=center class=bg>下载大小：</td><td>&nbsp;"&rs("size")&"</td></tr>"
response.write "<tr><td height=25 align=center class=bg>推荐等级：</td><td>&nbsp;<img src="&rs("commend")&"></td></tr>"
response.write "<tr><td height=25 align=center class=bg>官方主页：</td><td>&nbsp;<a href="&rs("web")&" target=_blank>"&rs("web")&"</a></td></tr><tr><td height=25 align=center class=bg>演示地址：</td><td>&nbsp;<a href="&rs("show")&" target=_blank>"&rs("show")&"</a></td></tr>"
response.write "<tr><td height=25 align=center class=bg>查看下载：</td><td>&nbsp;"&rs("click")&"次/"&rs("downclick")&"次</td></tr>"
response.write "<tr><td class=bg height=25 align=center colspan=3>软件介绍</td></tr>"
response.write "<tr><td height=150 valign=top colspan=3><center><div id=""size"" style=""word-break:break-all;table-layout:fixed;text-align:left;line-height:150%;width:98%""><blockquote>"&rs("content")&"<blockquote></div></center></td></tr>"
response.write "<tr><td class=bg align=center width=""80"">下载地址：</td><td  height=""25"" align=""left"" colspan=""2"" width=""662"">&nbsp;<a href="""&rs("url1")&""" title=""下载地址一""><img src=images/download.gif border=0> 下载地址一</a>"
if rs("url2")<>"" then
response.write "<br>&nbsp;<a href="""&rs("url2")&""" title=""下载地址二""><img src=images/download.gif border=0> 下载地址二</a>"
end if
if rs("url3")<>"" then
response.write "<br>&nbsp;<a href="""&rs("url3")&""" title=""下载地址三""><img src=images/download.gif border=0> 下载地址三</a>"
end if
response.write "</td></tr><tr><td class=bg height=25 align=center colspan=3>相关说明</td></tr>"
response.write "<tr><td height=71 valign=top colspan=3><center><div id=""size"" style=""word-break:break-all;table-layout:fixed;text-align:left;line-height:150%;width:691px; height:31px""><p><font color=""#ff0000"">☉</font>为了达到最快的下载速度，推荐使用<font color=""#FF0000"">网际快车</font>或<font color=""#FF0000"">迅雷</font>下载本站软件。<br><font color=""#ff0000"">☉</font>本站默认的下载解压密码为<font color=""#ff0000"">"&weburl&"</font><br><font color=""#ff0000"">☉</font>如果您发现该软件不能下载，请通知<a href=mailto:"&webmail&">管理员</a>，谢谢！<br><font color=""#ff0000"">☉</font>未经本站明确许可，任何网站不得非法盗链软件下载连接及抄袭本站原创内容资源!</p></div></center></td></tr>"
response.write "<tr><td class=bg colspan=3>"
st_next "St_down","showdown","个"
response.write "</td></tr></table>"
end sub
titlebom 4
set rstitle=conn.execute("select title from St_down where id="&request.querystring("id"))
titletop ""&st_showsearch&"",60,5,0,"","","",0
Response.Write "<table><tr><td height=""25""><a title=""百度搜索 <font color=red>"&rstitle("title")&"</font> 相关内容""  href=""http://www.baidu.com/s?wd="&rstitle("title")&"&tn=huajun"" target=_blank>"& vbCrLf
Response.Write "&nbsp;<img src=images/baidu.gif border=0>中“"&rstitle("title")&"”相关内容</a>　"& vbCrLf
Response.Write "</td></tr>"& vbCrLf
Response.Write "<table><tr><td height=""25""><a title=""一搜搜索 <font color=red>"&rstitle("title")&"</font> 相关内容""  href=""http://search.union.3721.com/search_result.htm?oid=659256576&e=FgJaUhk1lyX9AkkB&pid=S_newhua_5423&fw=union&name="&rstitle("title")&"&argse=new3721"" target=_blank>"& vbCrLf
Response.Write "&nbsp;<img src=images/yisou.gif border=0>中“"&rstitle("title")&"”相关内容</a>　"& vbCrLf
Response.Write "</td></tr>"& vbCrLf
Response.Write "<table><tr><td height=""25""><a title=""Google搜索 <font color=red>"&rstitle("title")&"</font> 相关内容""  href=""http://www.google.com/search?hl=zh-CN&ie=GBK&oe=GBK&lr=lang_zh-CN&&q="&rstitle("title")&""" target=_blank>"& vbCrLf
Response.Write "&nbsp;<img src=images/google.gif border=0>中“"&rstitle("title")&"”相关内容</a>　"& vbCrLf
Response.Write "</td></tr>"& vbCrLf
Response.Write "<table><tr><td height=""25""><a title=""中国搜索 <font color=red>"&rstitle("title")&"</font> 相关内容""  href=""http://page.zhongsou.com/zspage.cgi?word="&rstitle("title")&""" target=_blank>"& vbCrLf
Response.Write "&nbsp;<img src=images/zhongsou.gif border=0>中“"&rstitle("title")&"”相关内容</a>　"& vbCrLf
Response.Write "</td></tr>"& vbCrLf
Response.Write "<table><tr><td height=""25""><a title=""搜狗搜索 <font color=red>"&rstitle("title")&"</font> 相关内容""  href=""http://www.sogou.com/web?query="&rstitle("title")&"&tn=huajun"" target=_blank>"& vbCrLf
Response.Write "&nbsp;<img src=images/sogou.gif border=0>中“"&rstitle("title")&"”相关内容</a>　"& vbCrLf
Response.Write "</td></tr>"& vbCrLf
Response.Write "<table><tr><td height=""25""><a title=""天网搜索 <font color=red>"&rstitle("title")&"</font> 相关内容""  href=""http://www.tianwang.com/cgi-bin/tw?cdtype=GB&word="&rstitle("title")&"+"" target=_blank>"& vbCrLf
Response.Write "&nbsp;<img src=images/epku.gif border=0>中“"&rstitle("title")&"”相关内容</a>　"& vbCrLf
Response.Write "</td></tr></table>"& vbCrLf
titlebom 5
response.write"<table border='0' cellspacing='0' cellpadding='0' align='center' width='100%'><tr align=middle><td width=5></td><td width=49% height=150 align=right>"& vbCrLf
st_replace "st_showdowntaxis",""&st_showdowntaxis&""
br()
response.write"</TD><td width=2% ></td><td  width=49% height=150 align=left>"& vbCrLf
st_replace "st_showdownbest",""&st_showdownbest&""
br()
response.write"</TD><td width=5></td></TR></table>"& vbCrLf
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_down where id="&request.querystring("id")
rs.open sql,conn,1,3
pl "down",rs("id") 
rs.close
set rs=nothing
br
response.write"</td></tr></table></td><td class=right></td></tr></table>"& vbCrLf
rs.close
set rs=nothing
foot%>