Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<!--#include  file="ql_sp.asp"-->
<% 
Const adCmdStoredProc    = 4
Const adInteger          = 3
Const adCurrency         = 6
Const adParamInput       = 1
Const adParamOutput      = 2
Const adExecuteNoRecords = 128
%>
<!--#include file="../xuly/ketnoi.asp"-->
<%
set cmdview=server.CreateObject("ADODB.command")
cmdview.activeconnection = cn
cmdview.CommandText = "view_san_pham"
cmdview.CommandType = adCmdStoredProc
set rs=cmdview.execute
%>
<%
	Dim lcurrentPage
	Dim lpageCount
	lcurrentPage = CLng(request("page"))
	if lcurrentPage<1 then lcurrentPage=1
	end if                                                 '/// Khong can End If khi lenh thuc hien nam cung dong voi dieu kien IF ... THEN ///
	rs.cursorlocation =3
' 15 mau tin trong 1 trang
rs.Pagesize=15
rs.open rs, cn, 0, 1
'Dinh vi pham vi trang
lPageCount = rs.PageCount
if lcurrentPage > lpageCount then lcurrentpage=lpageCount
end if                                    '/// Khong can End If ///
if not rs.eof then
'dinh vi trang hien hanh
	rs.AbsolutePage = lcurrentpage
end if
%>

</p>
<table width="780" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#006C91">
  <tr>
    <td width="28" align="center" class="tieude_sp">Mã  </td>
    <td width="118" align="center" class="tieude_sp">Tên sản phẩm</td>
    <td width="101" align="center" class="tieude_sp">Tên hãng</td>
    <td width="70" align="center" class="tieude_sp">Hình ảnh</td>
    <td width="144" align="center" class="tieude_sp">Giá (VND) </td>
    <td width="81" align="center" class="tieude_sp">Bảo hành (Tháng) </td>
    <td width="85" align="center" class="tieude_sp">Tình trạng</td>
    <td width="58" align="center" class="tieude_sp">Chi tiết</td>
    <td width="35" align="center" class="tieude_sp">Sửa</td>
    <td width="38" align="center" class="tieude_sp">Xoá</td>
  </tr>
  <% 
	do while not rs.eof anh rs.AbsolutePage = lcurrentPage   '/// Bạn cần sửa "anh" thành "AND"
  %>
  <tr>
    <td align="center" class="link1"><%=rs("ma_sp")%></td>
  	<td align="center" class="link1"><%=rs("ten_sp")%></td>
    <td align="center" class="link1"><%=rs("tenhang_sx")%></td>
    <td align="center" class="link1"><img src="<%=rs("hinhanh_sp")%>" width="70" height="92"/></td>
    <td align="center" class="link1"><%=rs("gia_sp")%></td>
    <td align="center" class="link1"><%=rs("baohanh_sp")%></td>
    <td align="center" class="link1"><%=rs("tinhtrang_sp")%></td>
    <td align="center" class="link1"><a href="ql_sp_chitiet.asp?details=<%=rs("ma_sp")%>" >Chi tiết</a></td>
    <td align="center" class="link1"><a href="sp_edit.asp?edit=<%=rs("ma_sp")%>" onclick="javascript:return confirm ('Bạn có chắc chắn muốn sửa sản phẩm không?')">Sửa</a></td>
    <td align="center" class="link1"><a href="sp_delete.asp?delete=<%=rs("ma_sp")%>" onclick="javascript:return confirm ('Bạn có chắc chắn muốn xoá sản phẩm không?')">Xoá</a></td>
  </tr>
  <%  loop%>
<form name="vf">
	<input type="hidden" name="page" />
</form>
<script language="javascript">
	function setvalue(page)
		{
		vf.page.value = page;
		vf.submit();
		}
</script>

<%
if lcurrentPage <> 1 and lcurrentPage <> 0 then 
%>
<a href="javascript:setvalue('<%=lcurrentPage-1%>');">Trang truoc</a>
<%else %>
	Trang truoc
<% end if%>
<% if lcurrentpage < lpagecount then %>
<a href="javascript:setvalue('<%=lcurrentPage+1%>');">Trang tiep</a>
<% else %>
	Trang tiep
<% end if%>

  <% 
  rs.close
  cn.close
  set cn=nothing
  %>  	
</table>

các cao thủ sửa giúp đc k, k biết sai ở đâu, sửa mãi mà khôg đc, đây là em viết về phân trang cho 1 phần quản lý sản phẩm (điện thoại), với cách viết là gọi thủ tục trong asp từ sql ra