admin_member_search.asp

代码名称： Snitz Forums 2000 代码语言： 英文 代码类型： 国外代码 运行环境： ASP 授权方式： 免费代码 代码大小： 530kb 代码等级： 3 整

				Members_MemberStatus = arrMemberData(mM_STATUS, iMember)
				Members_MemberName = arrMemberData(mM_NAME, iMember)
				Members_MemberLevel = arrMemberData(mM_LEVEL, iMember)
				Members_MemberEMail = arrMemberData(mM_EMAIL, iMember)
				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_MemberDate = arrMemberData(mM_DATE, iMember)
				Members_MemberIP = arrMemberData(mM_IP, iMember)
				Members_MemberLastIP = arrMemberData(mM_LAST_IP, iMember)

				if intI = 1 then 
					CColor = strAltForumCellColor
				else
					CColor = strForumCellColor
				end if

				Response.Write	"              <tr>" & vbNewLine & _
						"                <td bgcolor=""" & chkHiLite(SearchType,1) & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><span class=""spnMessageText"">" & profileLink(ChkString(Members_MemberName,"display"),Members_MemberID) & "</span></font></td>" & vbNewLine & _
						"                <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & ChkString(getMember_Level(Members_MemberTitle, Members_MemberLevel, Members_MemberPosts),"display") & "</font></td>" & vbNewLine & _
						"                <td bgcolor=""" & chkHiLite(SearchType,2) & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & ChkString(Members_MemberEmail,"display") & "</font></td>" & vbNewLine & _
						"                <td bgcolor=""" & chkHiLite(SearchType,3) & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><span class=""spnMessageText""><a href=""http://ws.arin.net/cgi-bin/whois.pl?queryinput=" & ChkString(Members_MemberIP,"display") & """ target=""_blank"">" & ChkString(Members_MemberIP,"display") & "</a></span></font></td>" & vbNewLine & _
						"                <td bgcolor=""" & chkHiLite(SearchType,3) & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><span class=""spnMessageText""><a href=""http://ws.arin.net/cgi-bin/whois.pl?queryinput=" & ChkString(Members_MemberLastIP,"display") & """ target=""_blank"">" & ChkString(Members_MemberLastIP,"display") & "</a></span></font></td>" & vbNewLine
				Response.Write	"                <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberDate,"",false) & "</font></td>" & vbNewLine
				if IsNull(Members_MemberLastHereDate) or Trim(Members_MemberLastPostDate) = "" then
					Response.Write	"                <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>-</font></td>" & vbNewLine
				else
					Response.Write	"                <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberLastPostDate,"<br />",true) & "</font></td>" & vbNewLine
				end if
				Response.Write	"                <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberLastHereDate,"<br />",true) & "</font></td>" & vbNewLine
				Response.Write	"                <td bgcolor=""" & CColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
				if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then
					'## Do Nothing
				else
					if Members_MemberStatus <> 0 then
						Response.Write	"                <a href=""JavaScript:openWindow('pop_lock.asp?mode=Member&MEMBER_ID=" & Members_MemberID & "')""" & dWStatus("Lock Member") & ">" & getCurrentIcon(strIconLock,"Lock Member","hspace=""0""") & "</a>" & vbNewLine
					else
						Response.Write	"                <a href=""JavaScript:openWindow('pop_open.asp?mode=Member&MEMBER_ID=" & Members_MemberID & "')""" & dWStatus("Un-Lock Member") & ">" & getCurrentIcon(strIconUnlock,"Un-Lock Member","hspace=""0""") & "</a>" & vbNewLine
					end if
				end if
				if (Members_MemberID = intAdminMemberID and MemberID <> intAdminMemberID) OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID AND MemberID <> Members_MemberID) then
					Response.Write	"                -" & vbNewLine
				else
					if strUseExtendedProfile then
						Response.Write	"                <a href=""pop_profile.asp?mode=Modify&ID=" & Members_MemberID & """" & dWStatus("Edit Member") & ">" & getCurrentIcon(strIconPencil,"Edit Member","hspace=""0""") & "</a>" & vbNewLine
					else
						Response.Write	"                <a href=""JavaScript:openWindow3('pop_profile.asp?mode=Modify&ID=" & Members_MemberID & "')""" & dWStatus("Edit Member") & ">" & getCurrentIcon(strIconPencil,"Edit Member","hspace=""0""") & "</a>" & vbNewLine
					end if
				end if
				if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then
					'## Do Nothing
				else
					Response.Write	"                <a href=""JavaScript:openWindow('pop_delete.asp?mode=Member&MEMBER_ID=" & Members_MemberID & "')""" & dWStatus("Delete Member") & ">" & getCurrentIcon(strIconTrashcan,"Delete Member","hspace=""0""") & "</a>" & vbNewLine
				end if
				Response.Write	"                </font></b></td>" & vbNewLine
				Response.Write	"              </tr>" & vbNewLine

				intI = intI + 1
				if intI = 2 then intI = 0
			next
		end if 
		Response.Write	"            </table>" & vbNewLine & _
				"          </td>" & vbNewLine & _
				"        </tr>" & vbNewLine & _
				"      </table>" & vbNewLine & _
				"      <br />" & vbNewLine
	else
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>You must enter something to search for</p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Back To Search Page</a><br /><br /></p>" & vbNewLine & _
				"      <meta http-equiv=""Refresh"" content=""2; URL=JavaScript:history.go(-1)"">" & vbNewLine
	end if
else
	Response.Write	"      <table width=""100%"" align=""center"" border=""0"">" & vbNewLine & _
			"        <tr>" & vbNewLine & _
			"          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"          " & getCurrentIcon(strIconFolderOpen,"","") & "&nbsp;<a href=""default.asp"">All&nbsp;Forums</a><br />" & vbNewLine & _
			"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & "&nbsp;<a href=""admin_home.asp"">Admin&nbsp;Section</a><br />" & vbNewLine & _
			"          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & "&nbsp;Member&nbsp;Search<br /></font></td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table><br />" & vbNewLine

	Response.Write	"      <form action=""admin_member_search.asp?mode=DoIt"" name=""SearchForm"" id=""SearchForm"" method=""post"">" & vbNewLine & _
			"      <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
			"        <tr>" & vbNewLine & _
			"          <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
			"            <table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgcolor=""" & strHeadCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Member Search</b></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"">" & _
			"                <select name=""searchType"">" & vbNewLine & _
			"                	<option value=""1"" selected>Member Name contains...</option>" & vbNewLine & _
			"                	<option value=""2"">E-Mail Address contains...</option>" & vbNewLine & _
			"                	<option value=""3"">IP Address contains...</option>" & vbNewLine & _
			"                </select></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""left"" valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""SearchMember"" value="""" size=""50""></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""center"" valign=""middle"" colspan=""2""><input type=""submit"" value=""Find Member""></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"            </table>" & vbNewLine & _
			"          </td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table>" & vbNewLine & _
			"      </form>" & vbNewLine
end if 
WriteFooter
Response.End

function chkHiLite(actualValue, thisValue)
	if isNumeric(actualValue) then actualValue = cLng(actualValue)
	if actualValue = thisValue then
		chkHiLite = strSearchHiLiteColor 
	else 
		chkHiLite = CColor
	end if
end function
%>