<%
if actions = "soso" and keys <> "" then
bsql="select toux,baomima,liuyan,name,liuyantime,hui,ip,id from book where liuyan like '%"& keys &"%' and shenhe=1 order by id desc"
else
bsql="select toux,baomima,liuyan,name,liuyantime,hui,ip,id from book where shenhe=1 order by id desc"
end if
set brs=server.CreateObject("adodb.recordset")
brs.open bsql,conn,1,1
if brs.eof and brs.bof then
%>
暂无留言
<%else
Dim page,recordsperpage
recordsperpage=qwbmcms21
page=Trim(Request.QueryString("page"))
brs.Pagesize=recordsperpage
If Not IsEmpty(page) Then
If Not IsNumeric(page) Then
page=1
Else
page=Clng(page)
End If
If page>=brs.Pagecount Then
page=brs.Pagecount
Elseif page<=0 Then
page=1
Else
prs.AbsolutePage=page
End If
Else
page=1
End If
brs.AbsolutePage=page
Do While brs.Eof=False and recordsperpage>0
%>
<%if md5objid = brs("id") and md5obj = brs("baomima") then%>
" alt="" title="" />
<%=brs("name")%>
<%=qqface(brs("liuyan"))%>
(<%dim objip
objip=split(brs("ip"),".")
response.write objip(0) & "." & objip(1) & "." & objip(2) & ".*" %>) <%=brs("liuyantime")%> TOP↑
<%if brs("hui")<>"" then%>
管理员回复:<%=qqface(brs("hui"))%>
<%end if%>
<%else%>
" alt="" title="" />
<%=brs("name")%>
<%if brs("baomima")<>"" then%>
<%objipa=split(brs("ip"),".")
response.write objipa(0) & "." & objipa(1) & "." & objipa(2) & ".*" %> <%=brs("liuyantime")%> TOP↑
<%else%>
<%objipa=split(brs("ip"),".")
response.write objipa(0) & "." & objipa(1) & "." & objipa(2) & ".*" %> <%=brs("liuyantime")%> TOP↑
<%=qqface(brs("liuyan"))%>
<%if brs("hui")<>"" then%>
管理员回复:<%=qqface(brs("hui"))%>
<%end if%>
<%end if%>
<%end if%>
<%recordsperpage=recordsperpage-1'
brs.MoveNext
Loop%>
<%If page<=1 Then %>
[首页] [上一页]
<%Else%>
[首页]
[上一页]
<%End If%>
<%If page>=brs.Pagecount Then%>
[下一页] [尾页]
<%Else%>
[下一页]
[尾页]
<%End If%> |
<%end if%>