<!--#include file="../MDB.asp"-->
<%
sql="select * from about where ID = 1"
set mrs = conn.execute(sql)
%>
<%
Const MaxPerPage=8
%>
<%
	dim rs,sql
   	dim totalPut   
   	dim CurrentPage, TotalPages
   	if not isempty(request("page")) then
      		currentPage=cint(request("page"))
   	else
      		currentPage=1
   	end if
  	set rs = server.createobject("adodb.recordset")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<link href="/images/link.css" rel="stylesheet" type="text/css">
</head>
<body>
  <table width="100%" border="0" align="center" cellpadding="6" cellspacing="0" style=" border-bottom:#BED0FA solid 0px;border-left:#BED0FA solid 0px;border-right:#BED0FA solid 0px;">
          <tr>
            <td>
<!-- 列表开始 -->
<% 
	sql="select * from log where num='在线帮助' order by top=1, id desc"
	rs.open sql,conn,1,1 
  	if rs.eof and rs.bof then 
       		response.write "<p align='center'>没有找到任何文章</p>" 
   	else 
      		totalPut=rs.recordcount 
      		if currentpage<1 then 
          		currentpage=1 
      		end if 

      		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 then 
            		showContent 
            		showpage totalput,MaxPerPage,"index.asp" 
       		else 
          		if (currentPage-1)*MaxPerPage<totalPut then 
            			rs.move  (currentPage-1)*MaxPerPage 
            			showContent 
             			showpage totalput,MaxPerPage,"index.asp" 
        		else 
	        		currentPage=1 
           			showContent 
           			showpage totalput,MaxPerPage,"index.asp" 
	      		end if 
	   	end if 
   	rs.close 
   	end if 
	         sub showContent 
       	dim i 
	   	i=0 
	do while not rs.eof
%> 

<div class=titt><A href="/help/<%=rs("id")%>.html" target="_blank" title="<%=rs("title")%>"><%=rs("title")%></A></div>

<% 
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext 
	loop 
end sub
%>
<%
function showpage(totalnumber,maxperpage,filename)
  	dim n, i
  	if totalnumber mod maxperpage=0 then
     		n= totalnumber \ maxperpage
  	else
     		n= totalnumber \ maxperpage+1
  	end if

%>
<!-- 列表结束 -->
</td>
          </tr>
</table><!-- /导航结束 -->
</body>
</html>
 <%     
end function

   	set rs=nothing   
	conn.close
	set conn=nothing
%>