<%if keyword<>"$" then%>
<%
usql=" where title Like '%"& keyword &"%' or website like '%"& keyword &"%' order by projectID desc"
set rs=server.createobject("adodb.recordset")
sql="select projectID,title from project"&usql
rs.open sql,conn,3,3
if rs.eof or rs.bof then
response.Write("暫無相關信息 ")
else
rs.PageSize=25
NowPage=Request("page")
if NowPage="" or not isNumeric(NowPage) then NowPage=1
Nowpage=clng(Nowpage)
if NowPage<1 then NowPage=1
if NowPage>rs.PageCount then NowPage =rs.PageCount
rs.AbsolutePage = NowPage
%>
共搜索到 [<%=rs.recordcount%>] 條與“<%=keyword%>”相關信息
-
<% for i=1 to rs.PageSize
Title=rs("Title")
%>
- > " href="projectShow.asp?projectID=<%=rs("projectID")%>" ><%=gottopic(Title,80)%> <% rs.movenext if rs.eof then exit for Next %>
共<%=rs.recordcount%>篇 第<%=NowPage%>頁
<%if rs.PageCount=1 or Nowpage=1 then%>
首頁
<%else%>
首頁
<%end if %>
<%
if NowPage<>"1" then
Response.Write "上一頁 "
else
Response.Write "上一頁 "
end if
if NowPage<>rs.PageCount then
Response.Write "下一頁 "
else
Response.Write "下一頁 "
end if
%>
<%if rs.PageCount=1 or nowpage=rs.PageCount then%>
尾頁
<%else%>
尾頁
<%end if %>
共<% =rs.PageCount %>頁 <%=rs.PageSize%>篇/頁
<%
response.Write "轉到："
%>
<%
end if
rs.close()
%>
<%end if%>