<% set rs=Server.CreateObject("adodb.recordset") set rsimg=server.CreateObject("ADODB.RecordSet") title_keyword=trim(request("title_keyword")) if title_keyword<>"" then sql="SELECT * FROM xinwen where (title like '%"&title_keyword&"%' or keyword like '%"&title_keyword&"%' or keyword2 like '%"&title_keyword&"%' or keyword3 like '%"&title_keyword&"%' )" else sql="SELECT * FROM xinwen where 1=1" end if sql=sql+" and (Type<>'61' and Type<>'63' and Type<>'64')" sql=sql+" and disappare='1'" sql=sql+" order by Newsid Desc" %> 中国服装协会官方网站-行业资讯
 首页 > 行业资讯 > 资讯搜索
<% rs.open sql,conn,1,1 If rs.eof then %> <% else PageSize=28 Page=Request("Page") If Page="" Then Page=1 Page=Int(Page) RecordCount=rs.recordcount '-----计算总页数------ PageTotal=Int(RecordCount/PageSize*(-1))*(-1) If Page>PageTotal Then Response.Write "无效的页码!" Response.End End If '-----计算当前页应该显示的第一条记录------ PageStart=PageSize*(Page-1)+1 I=1 While not rs.eof If I>=PageStart and I<(PageStart+PageSize) Then %> <% End If rs.MoveNext I=I+1 wend rs.close End If %>
    未找到相关资讯内容 <%rs.close%>  
  <% typeid=rs("Type") sqlimg="select * from type where typeid="&typeid rsimg.open sqlimg,conn,1,1 subtypename=rsimg("typename") rsimg.close %> <% ab=int(rs("subtype")) select case ab case "2": linkpath="news/View.asp" 'linkpath=="news/View.asp?NewsID="&rs("NewsID")&"" case "3": linkpath="cnga/xhdt-View.asp" case "8": linkpath="peitao/View.asp" case "66": linkpath="liux/View.asp" end select permission=int(rs("linkpermission")) if t=33 then %> " target="_blank"><%=rs("Title")%> <%else if permission=1 then %> " target="_blank"><%=rs("title")%> <%else%> " target="_blank"><%=rs("title")%> <%end if end if %>
共<%=PageTotal%>页 第<%=Page%>页  <% If Page>1 then %> 上一页 <% End If %> <% If Page 下一页 <% End If %>