更新时间
编辑
删除
<%dimrs,sql
setrs=server.createobject("adodb.recordset")
sql="select*fromckorderbyupdate_timedesc"
rs.opensql,conn,1,1
dimtotal_record,currentpage
constMaxPerpage=20 '每页显示最大记录条数
total_record=rs.recordcount '将总记录条数赋给变量total_record
currentpage=request("page") '获取当前页面的页码
ifcurrentpage<1then
currentpage=1
endif
ifcurrentpage=1then '如果当前是第一页 则显示前面的记录
show_content '调用过程,以显示表单
show_pagetotal_record,Maxperpage '调用过程,以显示翻页菜单
else
rs.move(currentpage-1)*Maxperpage '把记录集移动到每页的开始
dimbookmark
bookmark=rs.bookmark '获取当前记录读取位置
show_content '调用过程,以显示表单
show_pagetotal_record,Maxperpage '调用过程,以显示翻页菜单
endif
%>
<%subshow_content '定义显示产品信息的表格框过程
dimI '定义记数器变量i
i=0 '初始化记数器
dowhilenotrs.eof '如果不是最后一条记录 则继续
%>
<%=rs("prod_name")%>
<%=rs("prod_num")%>
¥<%=FormatNumber(rs("prod_price"),2)%>
<%=rs("prod_com")%>
<%=rs("add_date")%>
<%=rs("update_time")%>
">
">
<%
i=i+1 '记数器和显示记录条数同步
ifi>=Maxperpagethenexitdo '如果超出每页最大显示条数 则退出SUB
rs.movenext '移动到下一条记录
loop '循环
rs.close
%>
<%endsub%>
<%subshow_page(total_record,Maxperpage) '翻页菜单过程定义
dimfile_url'文件名
file_url="ck_sys_admin.asp" '方便后面使用
dimtotal_page '定义总页数变量
iftotal_recordmodMaxperpage=0then '计算总共的页数
total_page=total_record\Maxperpage
else
total_page=total_record\Maxperpage+1
endif
%>
<%ifcurrentpage<2then%>
第一页
<%else%>
?id=<%=id%>&page=1'class="link">第一页
<%endif%>
<%ifcurrentpage<2then%>
上一页
<%else%>
?id=<%=id%>&page=<%=currentpage-1%>'>上一页
<%endif%>
共<%=total_record%>条
共分<%=total_page%>页
<%iftotal_page-currentpage<1then%>
下一页
<%else%>
?id=<%=id%>&page=<%=currentpage+1%>'class="12">下一页
<%endif%>
<%iftotal_page-currentpage<1then%>
最后一页
<%else%>
?id=<%=id%>&page=<%=total_page%>'class="12">最后一页
<%endif%>
<%endsub%>
<%subedit_data '定义编辑过程表单
dimrs2,sql2 '定义记录对象和SQL字符串
setrs2=server.createobject("adodb.recordset") '创建记录对象
sql2="select*fromckwhereid="&request("id") 'SQL语句赋值
rs2.opensql2,conn,1,1 '打开查询
%>
">
∷ 编辑库存信息
产品名称
库存数量
单价
生产厂家
"size="20">
"size="7">
"size="10">
"size="40">
<%rs2.close '关闭查询%>
<%endsub%>
<%subadd_data '定义新增过程表单%>
∷ 添加库存信息
产品名称
入库数量
单价
生产厂家
<%endsub%>