<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from news where BigClassName='八张图片' order by AddDate desc"
rs.open sql,conn,1,3
%>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where BigClassName='凶宅与历史，风水，规划的关系' and SmallClassName='左边的' order by AddDate desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
do while not rs.eof
i=i+1%>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where BigClassName='凶宅与历史，风水，规划的关系' and SmallClassName='右边的' order by AddDate desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
do while not rs.eof
i=i+1%>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where BigClassName='凶宅之说对项目的影响' and SmallClassName='左边的' order by AddDate desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
do while not rs.eof
i=i+1%>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where BigClassName='凶宅之说对项目的影响' and SmallClassName='右边的' order by AddDate desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
do while not rs.eof
i=i+1%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Feedback where Language='0' and Publish<>'1' order by id "
rs.open sql,conn,1,1
dim MaxPerPageFeedback
MaxPerPageFeedback=5
'取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPageFeedback
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
call list
'显示帖子的子程序
Sub list()%>
<%
If rs.eof and rs.bof then
If rs.eof and rs.bof then
response.write " 没有留言"
exit Sub
End if
End if
%>
<%
i=0
num=1
do while not rs.eof
%>
第<%=num%>楼：
<%=rs("Time")%>
<%=rs("Receiver")%>说：
<%=rs("Content")%>
<%
i=i+1
num=num+1
if i >= MaxPerPageFeedback then exit do
rs.movenext
loop
%>
<%
Response.write "全部"
Response.write "共" & Cstr(Rs.RecordCount) & "条留言 "
Response.write "第" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " "
If currentpage > 1 Then
response.write " 首页 "
Response.write " 上一页 "
Else
Response.write " 上一页 "
End if
If currentpage < Rs.PageCount Then
Response.write " 下一页 "
Response.write " 尾页 "
Else
Response.write ""
Response.write " 下一页 "
End if
Response.write "转到第"
response.write"页"
%>
