listing.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps in displaying the information of all the members. Admin can 
'Also send an email to a particular member
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Listing()
	
	dim field, order, id, istart,displaystring,listingar,i,headerdataa 
	
	smumadminheader("Members Listing")

	if not Application("smumdebugmode") then on error resume next
	
	field = Request.QueryString ("field")
	order = Request.QueryString ("order")
	id = Request.QueryString ("id")
	istart = Request.QueryString ("start")

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

	if field = "" or order = "" then
		smumquery =  smumquery&" where members_accesslevel < "&session("accesslevel") &" order by members_date desc "
	else
		smumquery =  smumquery&" where members_accesslevel < "&session("accesslevel") &" order by " &field&" "&order
	end if
	
	smPaging smumdataconn,smumquery,headerdataa,displaystring,Application("smumrecordsperpage"),"listing","There are currently no Members.","Members Listing",iStart

End Sub%>