一篇ASP不错的搜索代码

来源：互联网发布：深圳anker知乎编辑：程序博客网时间：2024/06/03 14:18
最终效果如下图：
中间的[1]最大可以显示5页
代码如下：
<!--#include file="data.asp"--> '链接数据库
<table width="100%" height="495" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td height="490" valign="middle" scope="col"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                 <%
  tramount=3
  page_count=tramount*3
  if Request("page")="" or Request("page")="0" then
    page=1
  else
    page=cint(Request("page"))
  End if
  strptype=""
  if Request("sptype")<>"" then strptype="and ptype=" & Request("sptype")
  rs.Open "select * from product where act=true and pname<>'' and (pname like '%" & Request("spname") & "%' or epname like '%" & Request("spname") & "%') " & strptype & " order by pname",cnn,3
  totalcount=rs.RecordCount
  totalpage=int(totalcount/page_count+(page_count-1)/page_count)
  if page>totalpage then page=totalpage
    Response.Write "<br>"
  if rs.EOF then
%>
          <tr>
            <td align="center"><font color="#FF0000">找不到任何产品</font><br /><br /><br /><br /><br /><br /><br /><br /></td>
          </tr>
          <%
  else
    for i = 1 to (page-1)*page_count
      rs.MoveNext
    Next
    if page<totalpage then
      psize=page_count
    else
      psize=totalcount-(page-1)*page_count
    End if
    for i = 1 to psize
%>
          <%
    if i mod tramount=1 then Response.Write "<tr align='center' valign='top'>"
    Response.Write "<td><a href='product1.asp?id=" & rs("pid") & "'>"
    if rs("photo")="" or rs("photo") is nothing then
      Response.Write "<img src='../images/temp.gif' width='100' height='100' border='0'>"
    else
      Response.Write "<img src='../product/" & rs("photo") & "' width='200' height='125' border='0' alt='产品型号:" & rs("pname") & "'>"
    End if
Response.Write "<br><font size='3'>" & rs("pname") & "</font><br><br>" & "</a>"
    if i mod tramount=0 then Response.Write "</tr>"
%>
          <%
      rs.MoveNext
    Next
    strtemp=psize mod tramount
    if strtemp<>0 then 
      for j=1 to tramount-strtemp
        Response.Write "<td></td>"
      next
      Response.Write "</tr>"
    end if
  End If
%>
          <tr>
            <td colspan="<% =tramount %>">    
                <% 
Response.Write("页次：" & page & "/" & totalpage & "　每页<font color='#ff0000'>" & page_count & "</font>　产品数<font color='#ff0000'>" & totalcount & "</font>　")
  if page>1 then
  if page>1 then
    Response.Write("<a href='productsearchs.asp?ttype=" & ttype & "&spname=" & Request("spname") & "&sptype=" & Request("sptype") & "' title='第一页'><font face='Webdings'>9</font></a>　<a href='productsearchs.asp?page=" & page-1 & "&ttype=" & ttype & "&spname=" & Request("spname") & "&sptype=" & Request("sptype") & "' title='上一页'><font face='Webdings'>7</font></a>　")
  else
    Response.Write("<font face='Webdings'>9</font>　<font face='Webdings'>7</font>　")
  end if
  if totalpage<6 then
    bpage=1
    epage=totalpage
  elseif page<3 then
    bpage=1
    epage=5
  elseif page>totalpage-2 then
    bpage=totalpage-4
    epage=totalpage
  else
    bpage=page-2
    epage=page+2
  end if
  for i=bpage to epage
    if i=page then
      Response.Write("[" & i & "]　")
    else
      Response.Write("<a href='productsearchs.asp?page=" & i & "&ttype=" & ttype & "&spname=" & Request("spname") & "&sptype=" & Request("sptype") & "'>[" & i & "]</a>　")
    end if
  next
  if page<totalpage then
    Response.Write("<a href='productsearchs.asp?page=" & page+1 & "&ttype=" & ttype & "&spname=" & Request("spname") & "&sptype=" & Request("sptype") & "' title='下一页'><font face='Webdings'>8</font></a>　<a href='productsearchs.asp?page=" & totalpage & "&ttype=" & ttype & "&spname=" & Request("spname") & "&sptype=" & Request("sptype") & "' title='最后页'><font face='Webdings'>:</font></a>")
  else
    Response.Write("<font face='Webdings'>8</font>　<font face='Webdings'>:</font>")
  end if
  Response.Write("　<select name='selectpage' onchange='javascript:window.location.href=this.options[this.selectedIndex].value'>")
  for i=1 to totalpage
    Response.Write("<option value='productsearchs.asp?page=" & i & "&ttype=" & ttype & "&spname=" & Request("spname") & "&sptype=" & Request("sptype") & "'")
    if i=page then Response.Write(" selected")
    Response.Write(">第" & i & "页</option>")
  next
  Response.Write("</select>")
  rs.close
%>
</td>
</tr>
</table>                  
</table></th>