groupslisting.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps to view all the members in a particular group
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Groupslisting()

	dim todo, field, order, group, id, istart,listingar,i,smumquery,headerdataa,displaystring,smumquery1

	smumadminheader("Groups Listing")

	if not Application("smumdebugmode") then on error resume next

	todo = request("todo")
	field = Request.QueryString ("field")
	order = Request.QueryString ("order")
	group = Request("group")
	id = Request.QueryString ("id")
	istart = Request.QueryString ("start")
		
	smumquery1 = "select * from smum_groupstbl order by groups_groupname ASC"
	smumOpenrs smumquery1,"smumrs1",action

		if smumrs1.eof then

			smumFormOpenTable
			smumFormHeader "Groups Listing"
			smumFormResponse "There are currently no groups. You can create them from Group Management Section."
			smumFormCloseTable

		else

			smumFormAction "<form action="""&smumadminpage&"?action=groupslisting"" method=post id=form1 name=form1>"
			smumFormHiddenField "todo","get"
			smumFormOpenTable
			smumFormHeader "Groups Listing"
			smumFormFields "Groups",getgroupssingle(group)
			smumFormButtons "<input class=fieldbox type=submit value=""Get Group Listing"" name=submit>"
			smumFormCloseTable
			smumFormClose

		end if

	smumClosers(smumrs1)

	if todo = "get" then

		headerdataa = getheaderformat(id,istart)
		displaystring = getdisplayformat(1)
		smumquery = getqueryformat()

		if field = "" or order = "" then
			smumquery = smumquery&",smum_usergroupstbl where smum_usergroupstbl.usergroups_groupid = "&group&" and smum_memberstbl.members_accesslevel < "&session("accesslevel") &"  and smum_usergroupstbl.usergroups_userid = smum_memberstbl.members_id order by smum_memberstbl.members_date desc "
		else
			smumquery = smumquery&",smum_usergroupstbl where smum_usergroupstbl.usergroups_groupid = "&group&" and smum_memberstbl.members_accesslevel < "&session("accesslevel") &"  and smum_usergroupstbl.usergroups_userid = smum_memberstbl.members_id order by smum_memberstbl." &field&" "&order
		end if

		smPaging smumdataconn,smumquery,headerdataa,displaystring,Application("smumrecordsperpage"),"groupslisting&todo=get&group="&group,"There are currently no Members in this Group.","Groups Listing",iStart

	end if

End Sub%>