|
<%
id=ad
if not isnumeric(id) then
Response.Write ""
Response.End()
end if
set rs=server.createobject("adodb.recordset")
exec="select * from ly where sh=1 order by id desc"
rs.open exec,conn,1,1
if rs.eof then
response.Write " 暂无记录！ "
else
rs.PageSize =""&TD_lyclass&""
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=b
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
%>
<%=i5808(rs("title"),100)%> |
姓名：<%=rs("name")%> |
<%=rs("data")%> |
| <%=InterceptString(DelHtml(rs("body")),200)%>... |
管理员回复：
<%
if IsNull(rs("hf")) or trim(rs("hf")&"")="" then
response.Write("此留言暂未回复！")
else
response.Write(""&rs("hf")&"")
end if
%>
|
<%
rs.movenext
next
end if
%>
<%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","")
rs.close
set rs=nothing
%>
|
