sub.asp

这是去年开发的中移鼎讯手机进销存系统 大家

<%
Sub page_code_down(rs_n,n,font)
Dim TempPath,FileName
TempPath=Split(Request.ServerVariables("PATH_INFO"),"/")
FileName=TempPath(Ubound(TempPath))

%>
<table width="100%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td><a href="<%=FileName&n%>">第一页</a></div></td>
      <td><a href="<%=FileName&n%>&page=<%=page-1%>">上一页</a></td>
      <td><a href="<%=FileName&n%>&page=<%=page+1%>">下一页</a></td>
      <td><a href="<%=FileName&n%>&page=<%=rs_n.pagecount%>">最后一页</a></td>
      <td><font color="#FF0000"><b><%= page %></b></font>/<%= rs_n.pagecount %>页</td>
      <td>共 <font color="#FF0000"><b><%= rs_n.recordcount  %></b></font> <%= font %></td>
    </tr>
</table>
<%End Sub%>