<%=typename %>CHMOU 工商休閒娛樂網站&國際貿易平台搜尋

<% const MaxPerPage=20 '設定每頁幾筆資料 dim totalPut dim CurrentPage dim TotalPages dim i,j dim typename1 typename1="" dim typename typename=request.Querystring("typename") if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %> <%=typename %>CHMOU 工商休閒娛樂網站&國際貿易平台搜尋

您目前所在分類位置：<%=typename%> <% DIM SQL DIM RS Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 IF typename="電腦通訊" then rs.open "select * from search where search='電腦通訊' order by id desc",conn,1,1 END IF IF typename="數位精品" then rs.open "select * from search where search='數位精品' order by id desc",conn,1,1 END IF IF typename="機械產品" then rs.open "select * from search where search='機械產品' order by id desc",conn,1,1 END IF IF typename="電機電子" then rs.open "select * from search where search='電機電子' order by id desc",conn,1,1 END IF IF typename="流行時尚" then rs.open "select * from search where search='流行時尚' order by id desc",conn,1,1 END IF IF typename="房地產業" then rs.open "select * from search where search='房地產業' order by id desc",conn,1,1 END IF IF typename="禮品玩具" then rs.open "select * from search where search='禮品玩具' order by id desc",conn,1,1 END IF IF typename="休閒旅遊" then rs.open "select * from search where search='休閒旅遊' order by id desc",conn,1,1 END IF IF typename="精品傢飾" then rs.open "select * from search where search='精品傢飾' order by id desc",conn,1,1 END IF IF typename="醫療保健" then rs.open "select * from search where search='醫療保健' order by id desc",conn,1,1 END IF IF typename="農工產品" then rs.open "select * from search where search='農工產品' order by id desc",conn,1,1 END IF IF typename="其他行業" then rs.open "select * from search where search='其他行業' order by id desc",conn,1,1 END IF IF RS.EOF and RS.BOF THEN Response.write "

抱歉，本類型沒有任何資料。

" ELSE totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpages showContent showpages else if (currentPage-1)*MaxPerPage <%do while not rs.eof%>

" target="_blank"><%=rs("urlname")%> 聯絡人："><%=rs("username")%> 所在分類 : <%=rs("search")%>

<%=rs("note")%>
　 <%=rs("url")%>

<% if session("administrator")="yes" then%> &page=<%=currentpage%>">刪除連結<%end if%>

<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %><% end sub sub showpages() dim n if (totalPut mod MaxPerPage)=0 then n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if response.write "

共有"&totalput&"筆資料登錄 " dim k response.write "分頁" for k=1 to n if k=currentPage then response.write "["+Cstr(k)+"]" else response.write ""+"["+Cstr(k)+"]" end if next response.write "每頁20筆" response.write "" end sub %>

www.chmou.com

**BEST VIEW 800X600 **

The Best of ISP & Web Hosting Solutions Provider
最佳網際網路虛擬伺服器提供者 http://www.chmou.com