for i=1 to rs.pagesize
rs.movenext
if rs.eof then exit for '如果到记录尾结束循环
next
end sub
%>
使用如下代码来为其他页面添加超链接：
<form action="checkspindex.asp" method="post">
<div align="center">
<% if page<>1 then%>
<font size="2"> <a href=<%=path%>?page=1>第一页</a>
</font><a href=<%=path%>?page=<%=(page-1)%> >上一页</a>
<%end if
if page<>rs.pagecount then%>
<a href=<%=path%>?page=<%=(page+1)%>>下一页</a>
<a href=<%=path%>?page=<%=rs.pagecount%>>最后一页</a>
<%end if%>
<font color="#336699">输入页次
<input type="text" name="page" size="3">
页次 </font><font color=red><%=page%>/<%=rs.pagecount%></font> [ <a href="spindex.asp">返回</a> ]</div>
</form>
商品信息查询页面的运行结果如图9、图10所示。
图9 商品信息查询条件页面运行结果
图10 商品信息查询结果页面运行结果
8 采购管理主要功能模块详细设计
采购管理可以有效管理整个企业的采购业务，用以提高采购经营事务的效率，提高企业的经济效益，确保采购工作质量高效率、低成本执行，使企业具有最佳的供货状态。主要包括商品采购和采购查询两部分。
8.1 商品采购管理设计
用户可以通过单击菜单主导航“采购管理”/“商品采购”超链接，进入商品采购管理页面。该页面主要完成商品采购信息的添加功能。
商品采购管理页面设计效果如图11所示。
图11 商品采购页面设计效果
商品采购页面中涉及的HTML表单重要元素如表5所示。
表5 商品采购页面中涉及的HTML表单重要元素
名称 类型 含义 重要属性
form1 form 表单 action="checkspcg.asp" method="post"
id hidden 采购单号 value="<%=session("auto")%>"
cgdate text 采购日期 value="<%=date()%>"
button button 【提交】按钮 onclick="send()"
Submit reset 【重填】按钮 class="btn_grey" value="重填"
生成采购单号的相关代码如下：
<%
set conn=server.CreateObject("adodb.connection") '创建数据库对象
set rs=server.CreateObject("adodb.recordset") '创建记录集对象
set myrs=server.CreateObject("adodb.recordset") '创建记录集对象
set rec=server.CreateObject("adodb.recordset") '创建记录集对象
conn.open application("dsn") '打开数据库
sql="select id from tab_cgdan"
rs.open sql,conn,1,3 '打开记录集
str=myrs("id")
cgid=cint(mid(str,7,5))+1
cgid="cg"&year(date())&cstr(cgid)
else
cgid="cg"&year(date())&"10001"
end if
session("auto")=cgid '生成采购单号
%>
采购信息添加时的数据处理页主要是将用户提交的表单信息保存到数据库中，数据处理页的程序代码如下：
<%
if request("id")<>""then
cgi