<%
if session("USERID")="" then
response.Redirect "WNP_LOGIN.ASP"
end if
%>
<%
'用戶列表函數
unitLeftSameStep=session("UNIT_Jibie")*session("EveryStepNumber")
unitAllTempStep=(session("UNIT_Jibie")+1)*session("EveryStepNumber")
sql="select * from WNT_USER where left(USER_DWBM,"&unitLeftSameStep&")='"&session("UNIT_BM")&"' and Len(USER_DWBM)="&unitAllTempStep&" order by USER_DWBM asc"
rs.open sql,conn,1,1
if  Err then
    response.Redirect "WNP_ERROR.ASP"
end if
%>
<%
dim totalPut   '總記錄數
dim CurrentPage  '當前頁
dim MaxPerPage   '每頁記錄數
sql="select * from WNT_PAGE where WND_PAGE_NAME='"&pagename&"'" '設置分頁開始
rssub.open sql,conn,1,1
if not rssub.eof then
  MaxPerPage=rssub("WND_PAGE_NUMBER")
else
  MaxPerPage=15
end if '設置分頁結束
rssub.close
rs.pagesize=MaxPerPage  '定義每頁記錄數
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=rs.recordcount 'totalput=總記錄數
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs.move(currentPage-1)*MaxPerPage
end if
end if
%>