showart.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 showart="no" then
if userlogin="" 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_art where id="&request.querystring("id"))
title=rstitle("title")&"--技术文章"
rstitle.close
set rstitle=nothing
call 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
br()
if trim(request("id"))="" then
response.Redirect("article.asp")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_art where pass=true and id="&trim(request("id"))
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update
set rsst=server.CreateObject("adodb.recordset")
sql="select * from St_artclass where id="&rs("class")&" and class<>0 order by id desc"
rsst.open sql,conn,1,3
if not rsst.bof and not rsst.eof then
shotantop="当前位置：<a href=index.asp>本站首页</a>-<a href=article.asp>技术文章</a>-<a href=article.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
br()
response.write"<center><div id='size' style='word-break:break-all;table-layout:fixed;text-align:left;line-height:150%;width:85%;' align='center'>"& vbCrLf
response.write"<p align='center'><b><font color='"&rs("color")&"'>"&rs("title")&"</font></b>"& vbCrLf
call br()
response.write"作者：<font color='#FF0000'>"&rs("writer")&"</font>&nbsp;发布会员：<font color='#FF0000'>"&rs("user")&"</font>&nbsp;版权：<font color='#FF0000'>"&rs("copyright")&"</font>&nbsp;添加时间：<font color='#FF0000'>"&rs("date")&"</font>&nbsp;阅读：<font color='#FF0000'>"&rs("click")&"</font>次</font></p><blockquote>"& vbCrLf
response.write"<p align='right'>【字体：<a href='javascript:ContentSize(16)'>大</a> <a href='javascript:ContentSize(14)'>中</a> <a href='javascript:ContentSize(12)'>小</a>】&nbsp;</p>"& vbCrLf
if rs("read")=0 then
response.write bbimg(rs("content"))
elseif rs("read")=1 then
if useradmin>=1 then
response.write bbimg(rs("content"))
else
response.write "<br><center><b><font color=red>只有普通会员以上级别才可以查看！</font></b></center>"& vbCrLf
end if
elseif rs("read")=2 then
if useradmin>=2 then
response.write bbimg(rs("content"))
else
response.write "<br><center><b><font color=red>只有VIP会员以上级别才可以查看！</font></b></center>"& vbCrLf
end if
end if
response.write"</blockquote></div></center><br><br>"& vbCrLf
response.write"<p align='right'><img src='images/copy.gif'>&nbsp;<a href='javascript:copyText(document.all.size)'>复制</a>&nbsp;&nbsp;<img src='images/print.gif'>&nbsp;<a href='javascript:window.print()' >打印</a>&nbsp;&nbsp;&nbsp;</p>"& vbCrLf
br()
st_next "St_art","showart","篇" 
titlebom 4
set rstitle=conn.execute("select title from St_art 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_showarttaxis",""&st_showarttaxis&""
br()
response.write"</TD><td width=2% ></td><td  width=49% height=150 align=left>"& vbCrLf
st_replace "st_showartbest",""&st_showartbest&""
br()
response.write"</TD><td width=5></td></TR></table>"& vbCrLf
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_art where id="&request.querystring("id")
rs.open sql,conn,1,3
pl "art",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%>