pinglun.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_function.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<%
title=""&shotanpl&""
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
st_replace "st_login",""&st_login&""
st_replace "st_search",""&st_search&""
br
response.write"</td><td width=""5""></td><td valign=top align=right>"& vbCrLf
set rs=server.CreateObject("adodb.recordset")
sql1="select * from St_pl where pltype='"&request("pltab")&"' and plid="&request("id")&" order by time desc"
rs.open sql1,conn,1,1
sql0="select * from "&request("pltab")&" where id="&request("id")
set strs=server.CreateObject("adodb.recordset")
strs.open sql0,conn,1,1
titletop ""&st_allpl&"",0,2,0,"","","",0
response.write"<table  width=100% border=1 rules=rows frame=void  cellspacing=0 cellpadding=0>"& vbCrLf                 
if not rs.bof and not rs.eof then
rs.pagesize=cint(shotanshow(10))
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=bg height=25><td><img src=images/plface"&rs("plface")&".gif>&nbsp;评论人："&rs("title")&"&nbsp;&nbsp;&nbsp;评论时间："&rs("time")&"</td></tr><tr height=35><td valign=top style=""word-break:break-all;table-layout:fixed;text-align:left;line-height:180%"">&nbsp;"&key(rs("content"))&"</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 height=100 align=center><font color=red><b>暂时没有评论！</b></font></td></tr></table>"& vbCrLf
else
response.write"<tr class=bg><td colspan=3 height=25 align=center>"& vbCrLf
response.write"<form name='form007' method='post' action=''>"& vbCrLf
response.write"<img src=images/so.gif>&emsp;&emsp;共有评论[<font color=red>"&rs.recordcount&"</font>]条，分[<font color=red>"&mypage&"</font>/"&rs.pagecount&"]页&emsp;&emsp;&emsp;"& vbCrLf
id=request.querystring("id")
pltab=request.querystring("pltab")
%>
<script language="javascript">
function showPageLink(sUrl,iPage,iCount){
var i;
i=Math.max(1,iPage-1);
document.write("<a href=\""+sUrl+"1\">首页</a> ");
document.write("<a href=\""+sUrl+i+"\">上一页</a> <b>");
i=Math.min(iCount,iPage+1);
document.write("</b><a href=\""+sUrl+i+"\">下一页</a> ");
document.write("<a href=\""+sUrl+iCount+"\">尾页</a> ");}
showPageLink("?id=<%=id%>&pltab=<%=pltab%>&page=",<%=mypage%>,<%=pages%>);
</script>
<%
response.write"&nbsp;&nbsp;<select name='page'>"& vbCrLf
i=1
for i=1 to pages
if i=mypage then
response.write"<option value="&i&" selected>第"&i&"页</option>"& vbCrLf 
else
response.write"<option value="&i&">第"&i&"页</option>"& vbCrLf 
end if
next
response.write"</select>&nbsp;<input type='submit' name='stpage' value='跳转' class='st1'></form>"& vbCrLf
if request.Form("stpage")<>"" then
response.Redirect"?id="&id&"&pltab="&pltab&"&page="&request.Form("page")&""
end if
response.write"</td></tr></table>"& vbCrLf
end if
titlebom 2
br()
response.write"</td></tr></table></td><td class=right></td></tr></table>"& vbCrLf
strs.close
Set strs=nothing
rs.close
Set rs=nothing
foot
%>