memberlogs.asp

一个虚拟主机代理系统

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

Sub Memberlogs()

	dim field,id,order,istart,listingar,headerdataa,i,displaystring,navidata,count

	smumadminheader("Member Logs")

	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")

	if id <> "" then
		navidata = navidata & "<img src=/smusermanager/images/reset.gif border=0 align=absmiddle> <b><a href="&smumadminpage&"?action=reset&id="&id&">Reset Logins</a></b>"
	else
		navidata = navidata & "<img src=/smusermanager/images/reset.gif border=0 align=absmiddle> <b><a href="&smumadminpage&"?action=reset&id=0>Reset All Logs</a></b>"
	end if

	if id <> "" then

		smumquery = "select COUNT(userlogs_logdate) as totallogs from smum_userlogstbl where userlogs_userid = "&id
		smumOpenrs smumquery,"smumrs",action
	
			count = smumrs("totallogs")
	
		smumClosers(smumrs)
	
		if count <> 0 then Response.Write "<br><table align=center><tr><td><font class=textsize8>"&navidata&"</b></font></td></table>"

	else
	
		smumquery = "select COUNT(userlogs_logdate) as totallogs from smum_userlogstbl"
		smumOpenrs smumquery,"smumrs",action
	
			count = smumrs("totallogs")
	
		smumClosers(smumrs)
	
		if count <> 0 then Response.Write "<br><table align=center><tr><td><font class=textsize8>"&navidata&"</b></font></td></table>"
	
	end if
			
	if (field = "" or order = "") and id = "" then
		smumquery = "select userlogs_userid,members_username,members_firstname,userlogs_logdate,userlogs_ipaddress from smum_userlogstbl,smum_memberstbl where smum_memberstbl.members_id = userlogs_userid order by userlogs_logdate desc "
	elseif id <> "" and (field <> "" or order <> "") then
		smumquery = "select userlogs_userid,members_username,members_firstname,userlogs_logdate,userlogs_ipaddress from smum_userlogstbl,smum_memberstbl where smum_memberstbl.members_id = userlogs_userid  and userlogs_userid = "& id &" order by " &field&" "&order
	elseif id <> "" and (field = "" or order = "") then
		smumquery = "select userlogs_userid,members_username,members_firstname,userlogs_logdate,userlogs_ipaddress from smum_userlogstbl,smum_memberstbl where smum_memberstbl.members_id = userlogs_userid and userlogs_userid = "& id
	elseif id = "" and (field <> "" or order <> "") then
		smumquery = "select userlogs_userid,members_username,members_firstname,userlogs_logdate,userlogs_ipaddress from smum_userlogstbl,smum_memberstbl where smum_memberstbl.members_id = userlogs_userid order by " &field&" "&order
	end if

	headerdataa=headerdataa & "<tr><td class=colorformfields align=center>&nbsp;<a href="&smumadminpage&"?action=memberlogs&start="&istart&"&field=userlogs_userid&order=asc&id="&id&"><img src=/smusermanager/images/asc.gif border=0 align=absmiddle alt=""By Ascending Order""></a><a href="&smumadminpage&"?action=memberlogs&start="&istart&"&field=userlogs_userid&order=desc&id="&id&"><img src=/smusermanager/images/desc.gif border=0 align=absmiddle alt=""By Descending Order""></a>&nbsp;<font class=textsize8><b>Id.</b></font></td>"
	headerdataa=headerdataa &"<td class=colorformfields align=center><font class=textsize8><b>Username</b></font></td>"
	headerdataa=headerdataa &"<td class=colorformfields align=center><font class=textsize8><b>Firstname</b></font></td>"
	headerdataa=headerdataa &"<td class=colorformfields align=center>&nbsp;<a href="&smumadminpage&"?action=memberlogs&start="&istart&"&field=userlogs_logdate&order=asc&id="&id&"><img src=/smusermanager/images/asc.gif border=0 align=absmiddle alt=""By Ascending Order""></a><a href="&smumadminpage&"?action=memberlogs&start="&istart&"&field=userlogs_logdate&order=desc&id="&id&"><img src=/smusermanager/images/desc.gif border=0 align=absmiddle alt=""By Descending Order""></a>&nbsp;<font class=textsize8><b>Date & Time</b></font></td>"
	headerdataa=headerdataa &"<td class=colorformfields align=center>&nbsp;<a href="&smumadminpage&"?action=memberlogs&start="&istart&"&field=userlogs_ipaddress&order=asc&id="&id&"><img src=/smusermanager/images/asc.gif border=0 align=absmiddle alt=""By Ascending Order""></a><a href="&smumadminpage&"?action=memberlogs&start="&istart&"&field=userlogs_ipaddress&order=desc&id="&id&"><img src=/smusermanager/images/desc.gif border=0 align=absmiddle alt=""By Descending Order""></a>&nbsp;<font class=textsize8><b>IP Address</b></font></td></tr>"
			
	displaystring = "<tr><form id=form2 name=form2>"
	for i = 0 to 4
		if i = 0 then
			displaystring=displaystring& "<td class=colorwhite align=center><font class=textsize8><a href="""&smumadminpage&"?action=editmember&id=item"&i&"a"">item"&i&"a</a></font></td>"
		else
			displaystring=displaystring& "<td class=colorwhite align=center><font class=textsize8>item"&i&"a &nbsp;</font></td>"
		end if
	next
	displaystring=displaystring & "</tr>"
	
	smPaging smumdataconn,smumquery,headerdataa,displaystring,50,"memberlogs","There are currently no Member Logs.","Member Logs",iStart

End Sub%>