?? wnp_user_sql.asp
字號:
<%
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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -