<% typeid=Request("typeid") %> 公司新聞
<% dim AccessPath,connstr,conn AccessPath="admin/db/#1995.mdb" connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(AccessPath) set conn=Server.CreateObject("ADODB.Connection") conn.open connstr %>
<% dim focus_rs dim focus_sql MaxList=45 if IsNumeric(request("page")) then if not isempty(request("page")) and request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if else currentpage=1 end if set focus_rs=server.createobject("adodb.recordset") focus_sql="select * from article where shenghe=1 and typeid="&typeid&" order by dateandtime desc" focus_rs.open focus_sql,conn,1,1 MaxPerPage=MaxList totalPut=focus_rs.recordcount if (totalput mod maxperpage)=0 then totalpage=totalput\maxperpage else totalpage=totalput\maxperpage+1 end if if currentpage<1 then currentpage=1 if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if (currentPage-1)*MaxPerPage
 <%=classnamevalue%> 共有 <%response.write focus_rs.recordcount&""%> 条 第 <%=currentpage%>/<%=totalpage%> 頁
<% if focus_rs.eof then response.Write "" else do while not focus_rs.eof and MaxPerPage>0 response.write "" response.Write("") response.Write("") MaxPerPage=MaxPerPage-1 focus_rs.movenext loop end if focus_rs.close set focus_rs=nothing %>
 
暫沒有任何信息
" response.write "  " response.Write(""&focus_rs("title")&"") response.write ""&formatdatetime(focus_rs("dateandtime"),2)&"
<% response.write "
" if (totalpage=1 or currentpage=1) and totalput<>0 then response.Write "首頁 " elseif currentpage<>1 then response.Write "首頁 " end if if (totalpage=1 or currentpage=1) and totalput<>0 then response.Write("上一頁 ") elseif currentpage>1 then response.Write("上一頁 ") end if if totalpage=1 or currentpage=totalpage then response.Write("下一頁 ") elseif currentpage下一頁 ") end if if totalpage=1 or currentpage=totalpage then response.Write "尾頁 " elseif currentpage尾頁 " end if response.write "跳至 頁" %>