<% '检查用户权限 call checkuser("会员管理") %> <% '删除会员 if request("action")="dele" then strIDs=request("id") if strIDs="" then strIDs="0" strSQL="Delete From [web_application] Where id in(" & strIDs & ",0)" conn.execute strSQL end if '升级会员 if request("action")="up" then strm_ID=request("mid") strSQL="Update web_member Set m_code=1 Where id=" & strm_ID conn.execute strSQL end if %> <% strType=request.QueryString("type") if strType="" then strType=" And m_code=0" else strType=" And m_code=" & strType end if strKey=request.QueryString("key") if strKey<>"" then strKey=" And m_name Like '%" & strKey & "%' " end if '从这开始读数据 strSQL="Select [web_application].*, m_code, m_number,m_name From [web_application],web_member Where [web_application].m_id=web_member.id And web_member.m_id=" & WebUserID & strType & strKey & " Order By [web_application].ID Desc" rs.open strSQL,conn,1,1 '分页显示初始化 page=request("page") if page="" then page=1 else page=Cint(page) end if Section=request("section") if Section="" then Section=1 else Section=Cint(Section) end if '变量赋值 intPageSize=15 '每页显示记录数 intSectionSize=5 '多少页为一段,像GOOGLE一样 PrevSectionText="7" '上一段的链接文字 NextSectionText="8" '下一段的链接文字 PrevPageText="3" '上页的链接文字 NextPageText="4" '下页的链接文字 strPageUrl="?key=" & strKey & "&type=" & strType rs.pagesize=intPageSize intCount=rs.RecordCount intPageCount=rs.pagecount intSectionCount=(intPageCount - 1) \ intSectionSize + 1 if intCount>0 then rs.AbsolutePage=page end if %> 普通会员申请升级为VIP会员申请表
普通会员升级为VIP会员申请列表
<% '循环输出 for i=1 to intPageSize if rs.eof then exit for if i mod 2=0 then strColor="#eeeeee" else strColor="#f9f9f9" end if %> <% rs.movenext next %>
    所有 会员 按会员名查找 '">
  用户名 身份证号 申请说明 申请时间  
"> <%=trim(rs("m_name"))%> <%=trim(rs("m_number"))%> <%=trim(rs("a_note"))%> <%=trim(rs("a_createtime"))%> [&action=dele&key=<%=trim(request.QueryString("key"))%>&type=<%=trim(request.QueryString("type"))%>">删除] <%if rs("m_code")=0 then%> [&action=up&key=<%=trim(request.QueryString("key"))%>&type=<%=trim(request.QueryString("type"))%>" title="升级为VIP会员">批准] <%end if%>

共有<%=intCount%>记录,分<%=intPageCount%>页,当前页<%=Page%>,每页显示<%=intPageSize%>条记录 <% '计算每一段的开始页 intStarPage=(Section-2) * intSectionSize + 1 '前一段 if Section<=1 then response.Write(PrevSectionText & " ") else response.Write("" & PrevSectionText & " ") end if '显示页码列表 response.Write("第") intStarPage=(Section-1) * intSectionSize + 1 for p=intStarPage to intStarPage + intSectionSize - 1 if p > intPageCount then exit for if p=page then response.Write("[" & p & "] ") else response.Write("[" & p & "] ") end if next response.Write("页") '后一段 intStarPage=(Section) * intSectionSize + 1 if Section>=intSectionCount then response.Write(" " & NextSectionText) else response.Write(" " & NextSectionText & " ") end if %>