help.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!-- #include file="top.asp" -->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="350" valign="top"><table align="center" background="images/line01.gif" border="0" cellpadding="0" cellspacing="0" height="24" width="770">
      <tr>
        <td width="770" height="21">&nbsp;<img height="12" src="images/arrow.gif" width="12"> 当前位置：<a href="index.asp" title="首页"><%=site%></a> -&gt; 帮助中心 </td>
      </tr>
    </table>      <br>
      <table width=80% border=0 align="center" cellpadding=0 cellspacing=0 bgcolor=#ffffff>
        <tbody>
          <%
	 on error resume next
	 sql="select * from news where type='help' order by id desc"
 	rs.open sql,conn,1,1
%>
          <tr> 
            <td height="25" class="td"> 
			<%
			if rs.eof and rs.bof then   
	 response.write"=== 对不起，暂无记录 ==="
	 else
if not isempty(request("page")) then                                                                                             
pagecount=cint(request("page"))                                                                                             
else                                                                                             
pagecount=1                                                                                          
end if                                                                                                                                                                                  
rs.pagesize=10                                                                                          
rs.AbsolutePage=pagecount 
	 do while not rs.eof%>
              <li></li> <a href="news_show.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a>　<font color="#999999">[</font><font color="#999999" face="arial, helvetica, sans-serif"><%=rs("time")%>]</font> <%if rs("time")=date() then 
			  Response.Write("<img src=images/i_new.gif border=0>")
			  end if
			  %> </td>
          </tr>
          <%
rs.movenext 
i=i+1                                                                     
if i>=rs.pagesize then exit do                                                           
loop 
%>
        </tbody>
      </table>
          <br>
          <br><table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="?page=<%=request("gopage")%>" method="post">
	          <tr align="center" valign="bottom" bgcolor="#ffffff">
          <td height="1" align="center" valign="bottom" bgcolor="#cccccc"></td>
        </tr>
        <tr bgcolor="#ffffff"> 
          <td height="25" align="center" class="td"><div align="center"> 共 <b><%=rs.recordcount%></b> 条记录 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>, 
          当前从第 <%
if pagecount<=1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%> 位开始。 <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%> 
          <a href="?page=<%=cstr(pagecount+1)%>">下一页</a> 
          <% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %> 
          <a href="?page=<%=cstr(pagecount-1)%>"> 上一页</a> 
          <%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%> <a href="?page=<%=cstr(pagecount-1)%>"> 
          上一页</a> <a href="?page=<%=cstr(pagecount+1)%>"> 
          下一页</a> <% end if%>&nbsp; 直接到第
          <select name="gopage">
            <%for i=1 to rs.pagecount%> 
            <option value="<%=i%>"><%=i%></option>
            <%next%> 
          </select>
          页 
          <input name="go" type="submit" class="button" value="Go">
        </div> </td>
        </tr>

        <tr> </tr></form>
      </table>
	  <%
	  rs.close
set rs=nothing
	  end if%></td>
  </tr>
</table>

<!-- #include file="copyright.asp" -->