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