wnp_user_sql_m.asp

U盘身份识别软件

<%
if session("USERID")="" then
response.Redirect "WNP_LOGIN.ASP"
end if
%>
<%
'用户列表函数
sql="select * from WNT_USER where USER_DWBM='"&session("UNIT_BM")&"' order by USER_DWBM asc,WND_USER_TYPE desc,WND_USER_Order desc"
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
%>