<!--#include file="base.asp"-->
<%
''' EYCMS 内容
''' ==================================================================
	islogin
	dim uid:uid=eycms.getint(eycms.fget("uid",0),0)
	dim order,keyword
	order=eycms.getint(eycms.fget("order",0),0)
	keyword=eycms.enhtml(eycms.fget("keyword",1))

	dim sqlwhere,orderby,ordtitle,wherekey,tablename
	dim user_islock:user_islock=eycms.db.dbloadone("islock","ey_admin_menu","title='会员'")
	If user_islock=1 then
		tablename="ey_user"
		sqlwhere="id>0"

		ordtitle="按排序"
		select case order
			case else:orderby="id desc"
		end Select

		if eycms.strlen(keyword)>0 then
			if datatype then
				wherekey=" and (instr(lcase(username),lcase('"&keyword&"'))>0 or instr(lcase(email),lcase('"&keyword&"'))>0) "
			else
				wherekey=" and (username like '%"&keyword&"%' or email like '%"&keyword&"%') "
			end if
		end If
	Else
		tablename="ey_admin"
		sqlwhere="adminid>0"

		ordtitle="按排序"
		select case order
			case else:orderby="adminid desc"
		end Select

		if eycms.strlen(keyword)>0 then
			if datatype then
				wherekey=" and instr(lcase(adminname),lcase('"&keyword&"'))>0 "
			else
				wherekey=" and adminname like '%"&keyword&"%' "
			end if
		end If
	End if
	load theme_popuplist

	eycms.db.dbclose
%>