📄 test.asp

📁 oracle9i程序事例集
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="common/conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分页测试</title>
<style type="text/css">
<!--
.style2 {font-size: x-small}
-->
</style>
</head>
<body>
<div align="center"><center>
<table width="750" border="0" cellspacing="0" cellpadding="0">
  <tr align="center">
    <td width="11%" height="30">出库产品</td>
    <td width="11%">出售项号</td>
	<td width="11%">出库地点</td>
	<td width="11%">出库日期</td>
	<td width="11%">出库数量</td>
	<td width="11%">出库单价</td>
	<td width="11%">经手人</td>
	<td width="11%">备注</td>
	<td width="6%">&nbsp;</td>
	<td width="6%">&nbsp;</td>
  </tr>
<%
  Const MaxPerPage=5
  dim totalPut   
  dim CurrentPage
  dim TotalPages
  dim j
  dim sql
  if Not isempty(request("page")) then
     currentPage=Cint(request("page"))
  else
     currentPage=1
  end if 
  
  set rs=server.CreateObject("adodb.recordset")
  sql="select sm_id, sm_outpid, sm_salenum, sm_outplace, sm_outdate, sm_outnum, sm_outprice, sm_handle, sm_remark from scott.stock_management where sm_outpid<>' ' order by sm_id" 
  rs.open sql,connstr,1,1
		  
  if err.number<>0 then
	 response.write "<p>数据库中暂时无数据</p>"
  end if
				
  if rs.eof And rs.bof then
     Response.Write "<p> 对不起，目前还没有这种商品！</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,"test.asp"
  else
     if (currentPage-1)*MaxPerPage<totalPut then
        rs.move  (currentPage-1)*MaxPerPage
        dim bookmark
        bookmark=rs.bookmark
        showContent
        showpage totalput,MaxPerPage,"test.asp"
     else
	    currentPage=1
        showContent
        showpage totalput,MaxPerPage,"test.asp"
	 end if
  end if
  end if

  sub showContent
      dim i
	  i=0

  do while not rs.eof
%>
  <tr align="center">
  <td height="30" width="11%"><%=rs("sm_outpid") %></td>
  <td width="11%"><%=rs("sm_salenum") %></td>
  <td width="11%"><%=rs("sm_outplace") %></td>
  <td width="11%"><%=rs("sm_outdate") %></td>
  <td width="11%"><%=rs("sm_outnum") %></td>
  <td width="11%"><%=rs("sm_outprice") %></td>
  <td width="11%"><%=rs("sm_handle") %></td>
  <td width="11%"><%=rs("sm_remark") %></td>
  <td width="6%"><a href="update_chuku_certain.asp?id=<%=rs("sm_id")%>">修改</a></td>
  <td width="6%"><a href="del_chuku_certain.asp?id=<%=rs("sm_id")%>">删除</a></td>
  </tr>
<%
  i=i+1
  if i>=MaxPerPage then exit do
  rs.MoveNext
  loop
  rs.Close
  set rs=nothing
%>
</table>
<% 
  end sub
  
  Function showpage(totalnumber,maxperpage,filename)  
  Dim n
  				
  If totalnumber Mod maxperpage=0 Then  
	 n= totalnumber \ maxperpage  
  Else
	 n= totalnumber \ maxperpage+1  
  End If %>
<form method="Post" action="<%=filename%>">
<table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr align="center">
  <% If CurrentPage<2 Then  %>
    <td width="8%" height="25"><span class="style2">首页</span></td>
    <td width="8%"><span class="style2">上一页</span></td>
  <% Else %>
    <td width="8%"><a href=<%=filename%>?page=1 class="style2">首页</a></td>
    <td width="8%"><a href=<%=filename%>?page=<%=CurrentPage-1%> class="style2">上一页</a></td>
  <% end if %>
  <% If n-currentpage<1 Then %>
    <td width="8%"><span class="style2">下一页</span></td>
    <td width="8%"><span class="style2">末页</span></td>
  <% Else %>
    <td width="8%"><a href=<%=filename%>?page=<%=(CurrentPage+1)%>><span class="style2">下一页</span></a></td>
    <td width="8%"><a href=<%=filename%>?page=<%=n%> class="style2">末页</a></td>
  <% end if %>
    <td width="8%"><span class="style2">第<%=CurrentPage%>页</span></td>
    <td width="8%" class="style2">共<%=n%>页</td>
    <td width="16%" height="25" colspan="2" align="center" class="style2">共<%=totalnumber%>条记录</td>
    <td width="16%" colspan="2" align="center" class="style2">每页<%=maxperpage%>条记录</td>
    <td colspan="2" align="center" width="20%"><span class="style2">转到第
        <input type="text" name="page" size="2" maxlength="10" value="<%=currentpage%>">
      页</span>    <input type="submit" value="跳转" name="cndok"></td>
  </tr>
  <tr><td height="20" colspan="13" align="right"><a href="javascript:history.go(-1)" class="style2">返回上一页</a>&nbsp;&nbsp;<a href="index.asp" class="style2">返回主页</a></td>
</table>
</form>
<%
  End Function 
%>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -