<% if session("S_login")="" then Response.Redirect "default.asp" end if %> 用户首页 <% dim db,trs,trs_day Set db=new Connections del_sql="delete from Member_Info where M_NAME='' and M_SEX='' and M_TITLE='' and M_AGENCIES='' and M_COUNTRY=''" db.Query del_sql,0 %>
<% set trs=server.CreateObject("ADODB.recordset")'总注册人数查询 set trs_day=server.CreateObject("ADODB.recordset")'当天注册人数查询 set trs_upd=server.CreateObject("ADODB.recordset")'修改注册信息人数查询 strsql="select * from Member_Info" set trs=db.Query (strsql,1) totalrecord=db.GetRecordcount(trs) len_t=len(date()) sql_day="select * from Member_Info where left(REG_TIME,"&len_t&")='"& cstr(date()) &"'" set trs_day=db.Query (sql_day,1) total_day=db.GetRecordcount(trs_day) sql_upd="select * from Member_Info where UPD_DATE is not null order by UPD_DATE desc" set trs_upd=db.Query (sql_upd,1) total_upd=db.GetRecordcount(trs_upd) %>
 您所使用的管理用户:<%=session("USER_NAME")%> <% select case session("U_Type") case "all" response.Write " 为最高权限管理员" case "manager" response.Write " 为会务组管理员权限" case "finance" response.Write " 为财务组管理员权限" end select %>
 ★ 最高权限可以使用后台管理的所有操作
 ★ 会务组管理员可以添加用户,修改、查看注册用户除付款信息外的基本信息
 ★ 财务组管理员可以查看注册用户的所有信息
 
 总注册用户:<%=totalrecord%>
 今日注册用户:<%=total_day%>
 修改注册信息用户:<%=total_upd%> 名 (点击查看