<% TopClassType=-1 RclassType=1 sql_WebSet="Select * from WebSet " Set rs_WebSet=Server.CreateObject("Adodb.RecordSet") rs_WebSet.Open sql_WebSet,conn,1,3 hd_title=rs_WebSet("hd_title") hd_keywords=rs_WebSet("hd_keywords") hd_description=rs_WebSet("hd_description") hd_author=rs_WebSet("hd_author") hd_searchTitle=rs_WebSet("hd_searchTitle") rs_WebSet.close set rs_WebSet=nothing keyword=replace(trim(request("keyword")),"'","''") %> <%if keyword="" or keyword="输入公司名称,即可查到项目进程" then keyword="$" end if%> <%=hd_title%>|<%=keyword%> name=keywords> name=description>
您现在的位置:首页 >  客户服务 > 项目查询
<%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%>”相关信息    
共<%=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%>