<% set rs=Server.CreateObject("adodb.recordset") set rsimg=server.CreateObject("ADODB.RecordSet") Typeid=int(Request("subtypeid")) if typeid=98 then subtypename="中服协会" sql="SELECT * FROM xinwen WHERE Type=3 and keyword='中服协' and disappare='1'" else if typeid=99 then subtypename="地方协会" sql="SELECT * FROM xinwen WHERE Type=3 and keyword<>'中服协' and disappare='1'" else sql="select * from type where typeid="&typeid rs.open sql,conn,1,1 subtypename=rs("typename") rs.close sql="SELECT * FROM xinwen WHERE Type=" & typeid & " and disappare='1'" end if end if sql=sql+" order by NewsID Desc" %> 中国服装协会官方网站-行业资讯
 首页 > 行业资讯 > <%=subtypename%>
<% rs.open sql,conn,1,1 If rs.eof then %> <% Else PageSize=45 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 %>
  <%=subtypename%>>>    
 
·
此栏目下无信息
 
 
·
<% permission=int(rs("linkpermission")) if permission=1 then %> " target="_blank"><%=rs("title")%> <%else ab=int(rs("subtype")) if ab="3" then %> " target="_blank"><%=rs("title")%> <%else %> " target="_blank"><%=rs("title")%> <%end if end if %>
<%=rs("NTime")%>
共<%=PageTotal%>页 第<%=Page%>页  <% If Page>1 then %> 上一页 <% End If %> <% If Page 下一页 <% End If %>