<% set rs=server.createobject("adodb.recordset") sqltext="select * from userinfo where flag=0 order by id desc" rs.open sqltext,conn,1,1 dim MaxPerPage MaxPerPage=20 '假使沒有數據時 If rs.eof and rs.bof then call showpages response.write "

目前沒有未通過審核學員訊息

" response.end End if '取得頁數,並判斷用戶輸入的是否數字類型數據, 如不是將以第一頁顯示 dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call showpages call list If Rs.recordcount > MaxPerPage then call showpages end if '顯示帖子的子程式 Sub list()%>

未審核通過學員列表--

<% if not rs.eof then i=0 do while not rs.eof %> <% i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if %>

姓名	學員級別	學員帳號	戒別	居住地	註冊日期	操作
<%=rs("txtContect")%>	<%=rs("txtClass")%>	<%=rs("txtId")%>	<%=rs("txtCat")%>	<%=rs("txtProv")%>	<%=rs("dateandtime")%>	'" style="font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver ="this.style.backgroundColor='#FFC864'" onMouseOut ="this.style.backgroundColor='#D4D0C8'"> '" style="font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver="this.style.backgroundColor='#FFC864'" onMouseOut="this.style.backgroundColor='#D4D0C8'">

<% End sub rs.close conn.close %>

﹛ <% '顯示翻頁的子程式 sub showpages()%>

<% response.write "

" %>

<% Response.write "分頁-" If currentpage > 1 Then response.write "首頁-" Response.write "前頁-" Else Response.write "首頁-" Response.write "前頁-" End if If currentpage < Rs.PageCount Then Response.write "後頁-" Response.write "尾頁 " Else Response.write "後頁-" Response.write "尾頁 " End if Response.write "頁次:" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " " Response.write "" & Cstr(MaxPerPage) & "" & "則紀錄/頁 " & "共" & "" & Cstr(Rs.RecordCount) & "" & "則紀錄 " response.write "

" response.write "轉到: " response.write " " %>

<%end sub%>