| T O P I C R E V I E W |
| lasatalayas |
Posted - 02 April 2006 : 06:22:45
I wanted Administrators to be able to view the IP as well as the last here date.
Just look for the instances of Last IP below. It should be fairly easy to understand.
Around line 120
If strMode = "search" and (srchUName = "1" or srchFName = "1" or srchLName = "1" or srchInitial = "1" ) then
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_SKYPE, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_LAST_IP "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
Around line 160
'## Forum_SQL - Get all members
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_SKYPE, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_LAST_IP "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
Around line 180
case "lastheredateasc"
strSql4 = " ORDER BY M_LASTHEREDATE ASC, M_NAME ASC"
case "lastheredatedesc"
strSql4 = " ORDER BY M_LASTHEREDATE DESC, M_NAME ASC"
case "lastipasc"
strSql4 = " ORDER BY M_LAST_IP ASC, M_NAME ASC"
case "lastipdesc"
strSql4 = " ORDER BY M_LAST_IP DESC, M_NAME ASC"
Around line 350
if mlev = 4 or mlev = 3 then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?method="
if Request.QueryString("method") = "lastheredatedesc" then Response.Write("lastheredateasc") else Response.Write("lastheredatedesc")
Response.Write """" & dWStatus("Sort by Last Visit Date") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Visit</font></b></a></td>" & vbNewLine
end if
if mlev = 4 or mlev = 3 then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?method="
if Request.QueryString("method") = "lastipdesc" then Response.Write("lastipasc") else Response.Write("lastipdesc")
Response.Write """" & dWStatus("Sort by Last IP") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last IP</font></b></a></td>" & vbNewLine
end if
Around line 380
mM_POSTS = 13
mM_LASTPOSTDATE = 14
mM_LASTHEREDATE = 15
mM_DATE = 16
mM_LAST_IP = 17
Around line 410
Members_MemberTitle = arrMemberData(mM_TITLE, iMember)
Members_MemberPosts = arrMemberData(mM_POSTS, iMember)
Members_MemberLastPostDate = arrMemberData(mM_LASTPOSTDATE, iMember)
Members_MemberLastHereDate = arrMemberData(mM_LASTHEREDATE, iMember)
Members_MemberLastIP = arrMemberData(mM_LAST_IP, iMember)
Members_MemberDate = arrMemberData(mM_DATE, iMember)
Around line 480
if mlev = 4 or mlev = 3 then
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberLastHereDate,"",false) & "</font></td>"
end if
if mlev = 4 or mlev = 3 then
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Members_MemberLastIP & "</font></td>"
end if
< |
|
|
