<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim tid tid=request("tid") if tid="" then tid=1 tit="公司簡介" lm1="lanmu_on" lm2="lanmu" lm3="lanmu" lm4="lanmu" lm5="lanmu" lm6="lanmu" elseif tid=1 then tit="公司簡介" lm1="lanmu_on" lm2="lanmu" lm3="lanmu" lm4="lanmu" lm5="lanmu" lm6="lanmu" elseif tid=2 then tit="組織機構" lm1="lanmu" lm2="lanmu_on" lm3="lanmu" lm4="lanmu" lm5="lanmu" lm6="lanmu" elseif tid=3 then tit="企業文化" lm1="lanmu" lm2="lanmu" lm3="lanmu_on" lm4="lanmu" lm5="lanmu" lm6="lanmu" elseif tid=4 then tit="總經理專欄" lm1="lanmu" lm2="lanmu" lm3="lanmu" lm4="lanmu_on" lm5="lanmu" lm6="lanmu" elseif tid=5 then tit="發展曆程" lm1="lanmu" lm2="lanmu" lm3="lanmu" lm4="lanmu" lm5="lanmu_on" lm6="lanmu" elseif tid=6 then tit="員工風采" lm1="lanmu" lm2="lanmu" lm3="lanmu" lm4="lanmu" lm5="lanmu" lm6="lanmu_on" elseif tid=12 then tit="加入AG亚游集团" lm1="lanmu" lm2="lanmu" lm3="lanmu" lm4="lanmu" lm5="lanmu" lm6="lanmu_on" else end if %> AG亚游集团-WeLcome_PageS50 " /> " />

    <% dim k3 k3=1 set rs=Server.CreateObject("adodb.recordset") sql="select top 6 * from T_info where fid=85 order by sort asc" rs.open sql,conn,1,1 do while not rs.eof %>
  • "><%=left(rs("cntitle"),15)%>
  • <% k3=k3+1 rs.movenext loop rs.close set rs=nothing %>

<%if tid=6 then%>
您的位置:首頁 > <%if tid>1 then%>走進AG亚游集团 > <%=tit%><%else%>員工風采<%end if%>
    <% set rs=server.CreateObject("adodb.recordset") sql="select * from T_info where fid=92 order by sort asc" rs.open sql,conn,1,1 if rs.recordcount=0 then response.Write("") else const maxperpage=15 '每頁 顯示10條 dim currentpage rs.pagesize=maxperpage currentpage=request.querystring("pageid")'第幾頁 if isnumeric(currentpage)=false then '頁數錯誤 response.write "" response.end end if if currentpage="" then '頁數為空 currentpage=1 '頁數為1 elseif currentpage<1 then'頁數小於1 currentpage=1 '頁數為1 else currentpage=clng(currentpage)'當前第幾頁 if currentpage > rs.pagecount then currentpage=rs.pagecount '當前頁數大於總和 end if end if dim totalput,n totalput=rs.recordcount if totalput mod maxperpage=0 then n=totalput\maxperpage else n=totalput\maxperpage+1 end if if n=0 then n=1 end if rs.move(currentpage-1)*maxperpage i=0 dim m,pl pl=1 do while not rs.eof and i< maxperpage m=i+currentpage*maxperpage-maxperpage+1 %>
  • "><%=left(rs("cntitle"),35)%>  <%=rs("addtime")%>  瀏覽次數:<%=rs("hit")%>次
  • <% i=i+1 pl=pl+1 rs.movenext loop rs.close set rs=nothing end if %>

頁數:<%=currentpage%>/<%=n%> <% dim l l=currentpage if l<>1 then%> 首頁 上一頁<%else%> 首頁 上一頁 <%end if%> <%if l<>n then%> 下一頁 尾頁 <%else%> 下一頁 尾頁 <%end if%> 共有 <%=totalput%> 條信息

<%else%>
<% set rs=Server.CreateObject("adodb.recordset") sql="select * from T_aboutus where id="&tid rs.open sql,conn,1,1 %> <%=rs("content")%> <% rs.close set rs=nothing %>

<%end if%>