报名管理

<% if session("admin")="" then conn.close set conn = nothing response.Write "" response.End end if call flagstr("会员管理","../error.htm") if FormatSQL(SafeRequest("action",0))="del" then conn.execute "delete from bm where id in ("&request.form("selectdel")&")" response.Redirect "bm.asp?companytypestr"&request("companytypestr") end if %> 报名管理

　　报名管理

<% Const MaxPerPage=12 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(SafeRequest("page",1)) then currentPage=Cint(SafeRequest("page",1)) else currentPage=1 end if set rs=server.createobject("adodb.recordset") sorts=request("sorts") sql="select * from bm order by addtime desc" rs.open sql,conn,1,1 if err.number<>0 then response.write "数据库中暂时无数据" end if if rs.eof And rs.bof then Response.Write "

您还没有信息！

" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"BM.asp" else if (currentPage-1)*MaxPerPage

<%do while not rs.eof%> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing%>

姓名	身份证号	衣服尺码	裤子尺码	中高协会员注册号	监护人姓名	与青少年关系	身份证号	联系电话	联系人	注册时间	选择
<%=rs("XUsername")%>(<%=rs("Xsex")%>)	<%=rs("XCode")%>	<%=rs("Xsize1")%>	<%=rs("Xsize2")%>	<%=rs("reghao")%>	<%=rs("FName")%>	<%=rs("Fgx")%>	<%=rs("Fcode")%>	<%=rs("tel")%>	<%=rs("linkman")%>	<%=rs("addtime")%>	" />
全选

<% End Sub Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If Response.Write "