<%do while not rs.eof%> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>

<% dim sql dim rs sql="select * from link where showname like '%"&keyword&"%' order by id desc" Set rs= Server.CreateObject("ADODB.Recordset") if typename="" then rs.open sql,conn,1,1 end if if typename="政府机构" then rs.open "select * from link where typename='政府机构' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="各类院校" then rs.open "select * from link where typename='各类院校' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="生产资料" then rs.open "select * from link where typename='生产资料' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="司法机构" then rs.open "select * from link where typename='司法机构' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="房地产业" then rs.open "select * from link where typename='房地产业' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="科研开发" then rs.open "select * from link where typename='科研开发' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="集团企业" then rs.open "select * from link where typename='集团企业' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="建筑装饰" then rs.open "select * from link where typename='建筑装饰' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="宣传媒体" then rs.open "select * from link where typename='宣传媒体' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="医疗保健" then rs.open "select * from link where typename='医疗保健' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="机械制造" then rs.open "select * from link where typename='机械制造' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="金融保险" then rs.open "select * from link where typename='金融保险' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="生活服务" then rs.open "select * from link where typename='生活服务' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="电子仪表" then rs.open "select * from link where typename='电子仪表' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="包装印刷" then rs.open "select * from link where typename='包装印刷' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="农牧养殖" then rs.open "select * from link where typename='农牧养殖' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="五金交电" then rs.open "select * from link where typename='五金交电' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="木业家具" then rs.open "select * from link where typename='木业家具' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="汽车行业" then rs.open "select * from link where typename='汽车行业' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="化工行业" then rs.open "select * from link where typename='化工行业' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="文体用品" then rs.open "select * from link where typename='文体用品' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="工艺美术" then rs.open "select * from link where typename='工艺美术' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="电线电缆" then rs.open "select * from link where typename='电线电缆' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="交通运输" then rs.open "select * from link where typename='交通运输' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="旅游服务" then rs.open "select * from link where typename='旅游服务' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="福利企业" then rs.open "select * from link where typename='福利企业' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="商业贸易" then rs.open "select * from link where typename='商业贸易' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="文化娱乐" then rs.open "select * from link where typename='文化娱乐' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="餐饮食品" then rs.open "select * from link where typename='餐饮食品' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="美容美发" then rs.open "select * from link where typename='美容美发' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="纺织印染" then rs.open "select * from link where typename='纺织印染' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="橡塑制品" then rs.open "select * from link where typename='橡塑制品' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="园林花卉" then rs.open "select * from link where typename='园林花卉' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="服装鞋帽" then rs.open "select * from link where typename='服装鞋帽' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="体育健身" then rs.open "select * from link where typename='体育健身' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="名牌老号" then rs.open "select * from link where typename='名牌老号' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="皮革制品" then rs.open "select * from link where typename='皮革制品' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="婚纱摄影" then rs.open "select * from link where typename='婚纱摄影' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="名人名胜" then rs.open "select * from link where typename='名人名胜' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="工程安装" then rs.open "select * from link where typename='工程安装' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if typename="造纸行业" then rs.open "select * from link where typename='造纸行业' and showname like '%"&keyword&"%' order by dateandtime desc",conn,1,1 end if if rs.eof and rs.bof then response.write " 还 没 有 任 何 站0点 " 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 最新加入站点

&url=<%=rs("url")%>" target=_black><%=rs("showname")%>

<% dim k for k=1 to n if k=currentPage then response.write "["+Cstr(k)+"] " else response.write "["+""+Cstr(k)+"] " end if next end sub %>