usermanage_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 47 行

<%
	dim i,j,rs,DataName,PageNum,PageEnd
	dim User,action,key,Query,act,UserLevel,sql
	i=0
	
	DataName = "名用户"
	PageNum = 15
	action = sqlchg(Request.QueryString("action"))
	act = sqlchg(Request.QueryString("act"))
	key = sqlchg(Request.QueryString("key"))
	UserLevel = sqlchg(Request.QueryString("UserLevel"))
	if UserLevel <> "" then
		sql = "and UserFlag = "&UserLevel&""
	else
		sql = ""
	end if

	call CheckType(23)		
	if action <> "search" then
		if act = "" then
			Query = "select u.UserID,u.UserName,u.UserTrueName,u.UserPass,u.UserLogin,u.UserRegDate,l.LevelName,u.UserJifen,u.UserFlag from [User] u inner join [Level] l on u.UserFlag = l.LevelOrder where UserName <> '管理员' and not isnull(u.UserRegDate) "&sql&" order by u.UserFlag desc,u.UserID desc"
		elseif act = "login" then
			Query = "select u.UserID,u.UserName,u.UserTrueName,u.UserPass,u.UserLogin,u.UserRegDate,l.LevelName,u.UserJifen,u.UserFlag from [User] u inner join [Level] l on u.UserFlag = l.LevelOrder where UserName <> '管理员' and not isnull(u.UserRegDate) "&sql&" order by u.UserLogin desc,u.UserFlag desc,u.UserID desc"
		elseif act = "jifen" then
			Query = "select u.UserID,u.UserName,u.UserTrueName,u.UserPass,u.UserLogin,u.UserRegDate,l.LevelName,u.UserJifen,u.UserFlag from [User] u inner join [Level] l on u.UserFlag = l.LevelOrder where UserName <> '管理员' and not isnull(u.UserRegDate) "&sql&" order by u.UserJifen desc,u.UserFlag desc,u.UserID desc"
		elseif act = "reg" then
			Query = "select u.UserID,u.UserName,u.UserTrueName,u.UserPass,u.UserLogin,u.UserRegDate,l.LevelName,u.UserJifen,u.UserFlag from [User] u inner join [Level] l on u.UserFlag = l.LevelOrder where UserName <> '管理员' and not isnull(u.UserRegDate) "&sql&" order by u.UserRegDate desc,u.UserFlag desc,u.UserID desc"
		end if
	else
		if key = "" then
			Response.Write("请输入关键字")
			Response.End()
		end if
		Query = "select u.UserID,u.UserName,u.UserTrueName,u.UserPass,u.UserLogin,u.UserRegDate,l.LevelName,u.UserJifen,u.UserFlag from [User] u inner join [Level] l on u.UserFlag = l.LevelOrder where UserName <> '管理员' and u.UserName like '%"&key&"%' and not isnull(u.UserRegDate) "&sql&" order by u.UserFlag desc,u.UserID desc"
	end if
	
	set rs=conn.execute(Query)
	if not rs.eof then
		User = rs.getrows
		i = ubound(User,2)
		if not isnumeric(i) then
			i = 1
		end if
	else
		i = -1
	end if
%>