快速导航：喷砂房 | 喷砂机
官方博客 官方微博 微信公众号
中文EN
logo 认证 高新企业
Since 1993 股票代码：837430厚积薄发  持续创新

市场咨询：021-51035200

应急服务：18602123305 / 18918186798

7×24小时服务热线：400-021-5767

首页 > 新闻动态
行业新闻
    <% Dim channelList Set channelList = DB("Select [NAME] From [{pre}channel] Where [FatherID] in (3,4,5,6,7,8) GROUP BY [NAME] Order By [NAME] Desc ", 1) ' 获取内容 if not channelList.eof then do while not channelList.eof %>
  • "><%=channelList("NAME")%>年新闻
    • <% channelList.movenext loop end if %>
<% Function Ceil(num) If num = Int(num) Then Ceil = num Else Ceil = Int(num) + 1 End If End Function '新闻列表分页 DIM News, newsPage, newsPageList, offset, totalRecords, totalPages,rsCount newsPageList = 6 ' 每页显示6条 ' 获取当前页码 newsPage = Trim(Request.QueryString("page")) If Len(newsPage) = 0 Or IsNull(newsPage) Or Not IsNumeric(newsPage) Then newsPage = 1 Else newsPage = CLng(newsPage) If newsPage < 1 Then newsPage = 1 End If offset = (newsPage - 1) * newsPageList ' 获取总记录数 Set rsCount = DB("SELECT COUNT(*) AS Total FROM [{pre}content] WHERE [FatherID] IN (3,4,5,6,7,8)", 1) totalRecords = rsCount("Total") rsCount.Close Set rsCount = Nothing totalRecords = CLng(totalRecords) ' 转换为长整型 ' 计算总页数 totalPages = Ceil(totalRecords / newsPageList) ' 如果页码超出总页数，修正 If newsPage > totalPages And totalPages > 0 Then newsPage = totalPages offset = (newsPage - 1) * newsPageList End If if newsPage=1 then Set News= DB("select top "&newsPageList&" [ID],[CID],[Title],[Description],[IndexPic],[CreateTime] ,[viewPath] from [{pre}content] where [FatherID] in (3,4,5,6,7,8) order by [CreateTime] Desc",1) else Set News= DB("select top "&newsPageList&" [ID],[CID],[Title],[Description],[IndexPic],[CreateTime] ,[viewPath] from [{pre}content] where [FatherID] in (3,4,5,6,7,8) and [ID] not in( SELECT TOP "&offset&" [ID] FROM [{pre}content] WHERE [FatherID] IN (3,4,5,6,7,8) order by [CreateTime] Desc ) order by [CreateTime] Desc ",1) end if Do while not News.eof %>
" alt="新闻图">

<%=News("Title")%>

<%=News("CreateTime")%>

<%=News("Description")%>

" class="nx-more">查看详情
<% News.moveNext Loop %>
共<%=totalRecords%>条 <% If totalRecords > 0 Then %> <% If newsPage > 1 Then %> 上一页 <% End If %> <% ' 显示页码（当前页前后各显示2页） Dim startPage, endPage, p startPage = newsPage - 2 If startPage < 1 Then startPage = 1 endPage = newsPage + 2 If endPage > totalPages Then endPage = totalPages For p = startPage To endPage If p = newsPage Then Response.Write "" & p & "" Else Response.Write "" & p & "" End If Next %> <% If newsPage < totalPages Then %> 下一页 末页 <% End If %> <% end if %>

产品中心

解决方案

工程案例

旗下网站链接

公众号二维码

市场咨询：021-51035200服务电话：400-021-5767应急服务：18918186798

网站地图 | 联系我们 | 法律声明 | 喷砂房 | 喷漆房 | 喷砂机

友情链接：破碎机 | 拉力试验机 | 冲床价格 | 日本三星三角带

版权所有：上海良时智能科技股份有限公司（股票代码：837430） 沪ICP备05016443号

沪公网安备 31012002002175号

× 良时智能官方微信二维码

打开微信，点击右上角的"＋"，选择"扫一扫"功能，
对准下方二维码即可。