<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim C_ID C_ID=Trim(Request("C_ID")) If C_ID="" Then C_ID=0 End If If IsNumeric(C_ID) = False Then response.Redirect("/ver3.0/news/") End If if C_ID=2 then C_Class="集團(tuán)新聞" elseif C_ID=4 then C_Class="行業(yè)新聞" end if If C_ID<>0 Then sSql="Select * From NewsData Where d_classid =" &C_Id&" and D_Recycle=False Order By D_ID Desc" else sSql="Select * From NewsData Where D_Recycle=False Order By D_ID Desc" End If oRs.open sSql,oConn,1,1 %> <% if oRs.bof and oRs.eof then response.redirect("/ver3.0/news/") else page=request.querystring("Page") oRs.PageSize = 15 if Not IsEmpty(page) then if Not IsNumeric(page) then page=1 else page = cint(page) end if if page > oRs.PageCount then oRs.AbsolutePage = oRs.PageCount page=oRs.pagecount elseif page <= 0 then page=1 oRs.AbsolutePage = 1 else oRs.AbsolutePage = page end if else page=1 oRs.AbsolutePage=1 end if end if %> 国产91影院,国产精品91麻豆,久久综合精品中文字幕

天天日天天爽天天操|国产69精品久久久久久人妻精品|亚洲精品国产91|欧美亚洲精品国产69|麻豆国产人妻欲求不满|亚洲最大无码AV在线观看|亚洲精品综合久久国产二区|国产精品久久人妻无码网站一区

新聞中心
<%=C_Class%>
    <% For i = 1 to oRs.PageSize if oRs.EOF then Exit For end if Title=oRs("d_title") dclass=oRs("d_classid") if Len(Title)>35 then NTitle=left(oRs("d_title"),2)&"..." else NTitle=oRs("d_title") end if d_time=split(oRs("d_time")," ") dl_time=split(d_time(0),"-") ds_time="" for j=0 to 2 if len(dl_time(j))<2 then ds_time=ds_time&"-0"&dl_time(j) else ds_time=ds_time&"-"&dl_time(j) end if next ds_time=right(ds_time,10) response.Write("
  • ·"&ds_time&"|"&NTitle&"") if i=5 or i=10 then response.Write("
  • ") end if oRs.movenext Next %>
<%if oRs.pagecount<>1 and oRs.pagecount<>0 then%> <%if page>1 then%> [首頁] [上一頁] <%if page [下一頁] [尾頁] <%else%> [下一頁] [尾頁] <%end if%> <%else%> [首頁] [上一頁] [下一頁] [尾頁] <%end if %> <%else%> [首頁] [上一頁] [下一頁] [尾頁] <%end if%> [頁次:<%=page%>/<%=oRs.PageCount%>] [共<%=oRs.RecordCount%>篇 <%=oRs.PageSize%>篇/頁] <%oRs.close()%>