<%dim totalcs,Currentpage,totalpages,i,Letter,tempStr
if not rs.eof then
rs.movefirst
rs.pagesize=perpage
if page<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
if currentpage<>1 then
if (currentpage-1)*perpage
"
do while not rs.eof and i"" then
content=replace(rs("content"),q,keyword1)
author=replace(rs("author"),q,keyword1)
else
content=rs("content")
author=rs("author")
end if%>
►名人名言，" title="<%=content%>" target="_blank"><%=content%>——<%=author%>
<%rs.movenext
loop
else
if rs.eof and rs.bof then%>
<%end if
end if
if page="" then page=1%>