expiredmembers.asp

一个虚拟主机代理系统

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

Sub Expiredmembers()

	dim field, id, order, istart,headerdataa,displaystring,smumquery
	
	smumadminheader("Expired Members")

	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") &" and members_expirydate < "&smumdatechar&Date&smumdatechar& " and members_expirydate <> "&smumdatechar&"1/1/9000"&smumdatechar&" order by members_date desc "
	else
		smumquery = smumquery&" where members_accesslevel < "&session("accesslevel") &" and members_expirydate < "&smumdatechar&Date&smumdatechar& " and members_expirydate <> "&smumdatechar&"1/1/9000"&smumdatechar&" order by " &field&" "&order
	end if

	smPaging smumdataconn,smumquery,headerdataa,displaystring,Application("smumrecordsperpage"),"expiredmembers","There are currently no Expired Members.","Expired Members Listing",iStart
	
End Sub%>