?? 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 support@scriptmate.com
'=========================================
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%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -