<% call ShowUserLogin() %>
      Company Honor
<% If IsFlash6="Yes" Then %> <% Else %> <% end If%>

Company Hono 　
<% set rs=server.createobject("adodb.recordset") sqltext="select * from CompVisualize order by id desc" rs.open sqltext,conn,1,1 dim MaPerPage MaPerPage=9 dim text,checkpage text="0123456789" Rs.PageSize=MaPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list '显示帖子的子程序 Sub list()%>
<%i=1 %>
<%i=1 %> <% Do While Not rs.EOF%> <% if i mod 3 =0 then%> <%end if%> <% i=i+1 if i >= 10 then exit do rs.MoveNext loop %>
<%=ubbcode(dvHTMLEncode(rs("EnExplain")))%>
<% Response.write "Total " & Cstr(Rs.RecordCount) & " Visualize          " Response.write "No." & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write " Home " Response.write " Prev Page " Else Response.write " Prev Page " End if If currentpage < Rs.PageCount Then Response.write " Next Page " Response.write " Last Page " Else Response.write "" Response.write " Next Page " End if Response.write "Go" response.write"Page" %>
<% End sub rs.close set rs=nothing %>