shownews.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"-->
<%if shownews="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_news 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"" align=""center"">"& vbCrLf
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_news 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_newsclass 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=news.asp>新闻动态</a>-<a href=news.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
response.write"<div id=""size"" style=""word-break:break-all;table-layout:fixed;text-align:left;line-height:120%;width:100%"" align=center>"& vbCrLf
br()
response.write"<div align=center><b><font color="&rs("color")&">"&rs("title")&"</font></b></div>"& vbCrLf
br()
response.write"<p align=center>发布会员：<font color=""#FF0000"">"&rs("user")&"</font>&nbsp;添加时间：<font color=""#FF0000"">"&rs("date")&"</font>&nbsp;&nbsp;阅读：<font color=""#FF0000"">"&rs("click")&"</font>次</font></p>"& vbCrLf
response.write"<blockquote><p align=right>【字体：<a href=""javascript:ContentSize(16)"" class=menufont>大</a> <a href=""javascript:ContentSize(14)"" class=menufont>中</a> <a href=""javascript:ContentSize(12)"" class=menufont>小</a>】&nbsp;</p>"
bbimg(rs("content"))
response.write"</blockquote></div></center><br><br><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>"
br()
st_next "St_news","shownews","篇"
titlebom 4
titletop ""&st_showsearch&"",60,5,0,"","","",0
set rstitle=conn.execute("select title from St_news where id="&request.querystring("id"))
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_shownewstaxis",""&st_shownewstaxis&""
br()
response.write"</TD><td width=2% ></td><td  width=49% height=150 align=left>"& vbCrLf
st_replace "st_shownewsbest",""&st_shownewsbest&""
br()
response.write"</TD><td width=5></td></TR></table>"& vbCrLf
set rs=server.CreateObject("adodb.recordset")
sql="select * from St_news where id="&request.querystring("id")
rs.open sql,conn,1,3
pl "news",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%>