<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<!--#include file="../include/Lebi_Config.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Home_users.asp
'* 最后更新 2010-09-19 by 56770.kingdge
'*****************************************
admin_flag=",4.1,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_user.inc"
CurrentId = 3
CurrentUrl = "home_users.asp"
LB_Head()
LB_Menu()
Response.Write("<div class=""mainbody"">")
Response.Write("<div class=""mainbody2"">")
If Eshop_Lebi_name="" Or instr(","&request.cookies(cookiesname)("flag")&",",admin_flag)=0 Then
	adminflag()
End If
If IsSqlDataBase = 1 Then
		user_num1=conn.Execute("Select Count(ID) from [Lebi_user] where datediff(d,regdate,"&sqlnowstring&")<1")(0)
else
		user_num1=conn.Execute("Select Count(ID) from [Lebi_user] where datediff('d',regdate,"&sqlnowstring&")<1")(0)
end if
user_num2=conn.Execute("Select Count(ID) from [Lebi_user] where usermoney>0")(0)
user_num3=conn.Execute("Select Count(ID) from [Lebi_user] where usermoney=0")(0)
%>
<script language="javascript" type="text/javascript" src="inc/js/MyCalendar.js"></script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="query" class="classtable">
<form name="searchuser" method="get" action="Admin_user.asp">
<tr>
	<td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " title=" <%=Lang_sys(1)%> " align="absmiddle">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle"></td>
	<td align="right" class="classhead">
	<%=QuickMenu("Admin_user.asp|"& Lang_Menu(56) &"","admin_user_log.asp|"& Lang_Menu(105) &"")%>
	</td>
 </tr>
<tr class="classrow">
   <td class="classtop" height="30" colspan="2"><%=Lang_Menu(102)%></td>
 </tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(15)%></td><td class="classrow">
<input type="text" name="user_id" class="form">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(21)%></td><td class="classrow">
<input type="text" name="user_name" class="form">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(143)%></td><td class="classrow">
<select name="Showlang">
	<option value="" selected>┌ <%=Lang_User(144)%></option>
	<%For LangT = 1 To TotalLang%>
	<option value="<%= LanguageName(LangT) %>">├ <%= LanguageName(LangT) %></option>
	<%Next%>
	</select>
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(32)%></td><td class="classrow">
<%=getUserGrade()%>&nbsp;&nbsp;&nbsp;&nbsp;
<input type="checkbox" name="ifpay" value="1">
<%=Lang_User(55)%>
</td>
</tr>
<tr class="classrow">
<td height="30" class="classrow"><%=Lang_User(62)%></td>
<td class="classrow">
<input type="text" name="u_dateFrom" value="" size="12" class="Calendar" onclick="setday(this)" /> - <input type="text" name="u_dateTo" value="" size="12" class="Calendar" onclick="setday(this)" />
</td>
</tr>
<tr class="classrow">
<td height="30" class="classrow"><%=Lang_User(56)%></td>
<td class="classrow">
<input type="text" name="u_lastdate" value="" size="12" class="calendar" onclick="setday(this)" />
</td>
</tr>
<tr class="classrow" class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(27)%></td><td class="classrow">
<input type="text" name="user_tel" class="form">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(26)%></td><td class="classrow">
<input type="text" name="user_mob" class="form" onkeyup="value=value.replace(/[^\d\.]/g,'');">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(25)%></td><td class="classrow">
<input type="text" name="user_mail" class="form">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(30)%></td><td class="classrow">
<input type="text" name="user_zip" class="form" onkeyup="value=value.replace(/[^\d\.]/g,'');">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(31)%></td><td class="classrow">
<input type="text" name="user_adds" class="form">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(40)%></td><td class="classrow">
<%=Lang_User(145)%> <input type="text" size="5" name="user_jifen_from" class="form" onkeyup="value=value.replace(/[^\d\.]/g,'');">
&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_User(146)%> <input type="text" size="5" name="user_jifen_to" class="form" onkeyup="value=value.replace(/[^\d\.]/g,'');">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(42)%></td><td class="classrow">
<%=Lang_User(145)%> <input type="text" size="5" name="user_money_from" class="form" onkeyup="value=value.replace(/[^\d\.]/g,'');">
&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_User(146)%> <input type="text" size="5" name="user_money_to" class="form" onkeyup="value=value.replace(/[^\d\.]/g,'');">
</td>
</tr>
<tr class="classrow">
<td height="30" width="15%" class="classrow"><%=Lang_User(63)%></td><td class="classrow">
<%=Lang_User(145)%> <input type="text" size="5" name="user_login_from" class="form" onkeyup="value=value.replace(/[^\d\.]/g,'');">
&nbsp;&nbsp;&nbsp;&nbsp;<%=Lang_User(146)%> <input type="text" size="5" name="user_login_to" class="form" onkeyup="value=value.replace(/[^\d\.]/g,'');">
</td>
</tr>
</form>
<tr class="classrow">
   <td class="classtop" height="30" colspan="2"><%=Lang_User(141)%></td>
 </tr>
 <tr class="classrow">
	<td height="30" width="15%" class="classrow"><%=Lang_User(142)%></td><td class="classrow"><a href="admin_user.asp?u_dateFrom=<%=Date()%>&u_dateTo=<%=Date()%>"><font color=red><%=user_num1%></font></a>
</td>
</tr>
 <%
 Set rs = server.CreateObject("adodb.recordset")
 rs.open "select grade_dj,grade_name from [Lebi_user_grade] where grade_dj <> 0 order by grade_dj",conn,1,1
 i = 1
 Do While Not rs.eof
 		userCount = conn.execute("select count(id) from [Lebi_user] where user_grade = "&rs("grade_dj")&" ")(0)
		If IsNull(userCount) Or userCount = "" Then userCount = 0
		If (i+1) Mod 2 = 0 Then classstyle = "class=""classrow"""
%>
<tr <%=classstyle%>>
	<td height="30" width="15%" class="classrow"><%=rs("grade_name")%>：</td><td class="classrow"><a href="admin_user.asp?user_grade=<%=rs("grade_dj")%>"><font color=red><%=userCount%></font></a>
</td>
</tr>
<%
rs.movenext
i = i + 1
classstyle = ""
Loop
rs.close:Set rs = Nothing
%>
</table>
<script>tdshow("query");</script>
<%
rem	<-{  搜索页 会员等级多选框 2008-2-26  by Lebi.WangLei
Function getUserGrade()
	sql="select grade_dj,grade_name from [Lebi_user_grade] where grade_dj <> 0 order by grade_dj"
	set rs_ug = conn.execute(sql)
	do while not rs_ug.eof
		getUserGrade = getUserGrade&"<INPUT TYPE=""checkbox"" NAME=""user_grade"" value="""&rs_ug("grade_dj")&"""> "&rs_ug("grade_name")&"&nbsp;"
		rs_ug.movenext
	Loop
	rs_ug.close:Set rs_ug = Nothing
End Function
rem	}->
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()
%>