<% Server.ScriptTimeout=600 Dim CurPage If Request("CurPage") = "" then CurPage = 1 Else CurPage = CINT(Request("CurPage")) End If display = CurPage ff="来华展" %> <% Set RS = Server.CreateObject("ADODB.RECORDSET") sql="select * from zxk Where xxlx='" & ff & "'order by fbsj DESC" rs.open sql,conn,1,1 RS.PageSize=15 if rs.EOF and rs.BOF Then Response.write "没有找到" Response.write "
" Response.write "

对不起，该栏目信息即将开放，谢谢访问！

" Response.write "

[关闭本窗口]

" Response.write "
" Response.End Else '计算最多有多少页 Dim TotalPages TotalPages = RS.PageCount if CurPage>RS.Pagecount then CurPage=RS.Pagecount end if RS.AbsolutePage=CurPage '设置缓存大小 = 每页需显示的记录数目 rs.CacheSize = RS.PageSize '计算最多有记录总数 Dim Totalcount Totalcount =INT(RS.recordcount) StartPageNum=1 EndPageNum=RS.Pagecount %> <%=ff%>
 
 当前位置：首页  >  <%=ff%>
 
<% I=0 p=RS.PageSize*(Curpage-1) do while (Not RS.Eof) and (I <% I=I+1 RS.MoveNext Loop %>
美国快线
环球商务
<% RS.Close set rs = nothing conn.Close set conn = nothing %>