📄 member_profile.asp
字号:
%>
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
<tr class="tableLedger">
<td width="50%"><% = strTxtProfile & ": " & strUsername %></td>
<td width="50%"><% = strTxtActiveStats %></td>
</tr>
<tr class="tableRow">
<td valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td width="30%"><img src="<% = strAvatar %>" id="avatar" alt="<% = strTxtAvatar %>" align="left" onError="document.getElementById('avatar').src='avatars/blank_avatar.jpg'"></td>
<td width="80%"> </td>
</tr>
<tr>
<td><% = strTxtUsername %>:</td>
<td><% = strUsername %></td>
</tr><%
'If there is a member title display it
If strMemberTitle <> "" Then
%>
<tr>
<td><% = strTxtMemberTitle %>:</td>
<td><% = strMemberTitle %></td>
</tr><%
End If
%>
<tr>
<td><% = strTxtGroup %>:</td>
<td><% = strGroupName %> <img src="<%
If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.png")
Response.Write(""" alt=""" & strGroupName & """ title=""" & strGroupName & """>") %></td>
</tr>
</table>
</td>
<td valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td width="30%"><% = strTxtAccountStatus %>:</td>
<td width="80%"><%
'Display account status
If blnAccSuspended Then
Response.Write(strTxtSuspended)
ElseIf blnActive Then
Response.Write(strTxtActive)
Else
Response.Write(strTxtNotActive)
End If
%></td>
</tr>
<tr>
<td><% = strTxtJoined %>:</td>
<td><% = DateFormat(dtmJoined) & " " & strTxtAt & " " & TimeFormat(dtmJoined) %></td>
</tr>
<tr>
<td><% = strTxtLastVisit %>:</td>
<td><% If isDate(dtmLastVisit) Then Response.Write(DateFormat(dtmLastVisit) & " " & strTxtAt & " " & TimeFormat(dtmLastVisit)) %></td>
</tr><%
'If Web Wiz NewsPad integration is enabled show if teh user has subscribed
If blnWebWizNewsPad Then
%>
<tr>
<td><% = strTxtNewsletterSubscription %>:</td>
<td><% If blnNewsletter Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""" & strTxtYes & """ title=""" & strTxtYes & """ />") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""" & strTxtNo & """ title=""" & strTxtNo & """ />") %></td>
</tr><%
End If
%>
<tr>
<td><% = strTxtPosts %>:</td>
<td><% = lngNumOfPosts %> <% If lngNumOfPosts > 0 AND DateDiff("d", dtmJoined, Now()) > 0 Then Response.Write(" [" & FormatNumber(lngNumOfPosts / DateDiff("d", dtmJoined, Now()), 2) & " " & strTxtPostsPerDay) & "]" %></td>
</tr>
<tr>
<td><% = strTxtFindPosts %>:</td>
<td><img src="<% = strImagePath %>profile_search.png" border="0" alt="<% = strTxtSearchForPosts %> <% = strUsername %>" title="<% = strTxtSearchForPosts %> <% = strUsername %>" /> <a href="search_form.asp?USR=<% = Server.URLEncode(strUsername) %><% = strQsSID2 %>" title="<% = strTxtSearchForPosts %> <% = strUsername %>"><% = strTxtFindMembersPosts %></a></td>
</tr><%
'If active users are enabled display if they are online or not
If blnActiveUsers Then
%>
<tr>
<td><% = strTxtOnlineStatus %>:</td>
<td><% If blnIsUserOnline Then Response.Write("<img src=""" & strImagePath & "online.png"" alt=""" & strTxtOnLine2 & """ title=""" & strTxtOnLine2 & """ /> " & strTxtOnLine2) Else Response.Write("<img src=""" & strImagePath & "offline.png"" alt=""" & strTxtOffLine & """ title=""" & strTxtOffLine & """ /> " & strTxtOffLine)%></td>
</tr><%
'If the user is online display their location in the forum
If blnIsUserOnline Then
%>
<tr>
<td valign="top"><% = strTxtOnLine2 & " " & strTxtLocation %>:</td>
<td><% = strOnlineLocation %><% If strOnlineLocation <> "" AND strOnlineURL <> "" Then Response.Write("<br />") %><% = strOnlineURL %></td>
</tr><%
End If
End If
%>
</table>
</td>
</tr>
<tr class="tableLedger">
<td><% = strTxtInformation %></td>
<td><% = strTxtCommunicate %></td>
</tr>
<tr class="tableRow">
<td valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td width="30%"><% = strTxtRealName %>:</td>
<td width="80%"><% If strRealName <> "" Then Response.Write(strRealName) Else Response.Write(strTxtNotGiven) %></td>
</tr>
<tr>
<td width="30%"><% = strTxtGender %>:</td>
<td width="80%"><% If strGender <> "" Then Response.Write(strGender) Else Response.Write(strTxtNotGiven) %></td>
</tr>
<tr>
<td><% = strTxtDateOfBirth %>:</td>
<td><%
'If there is a Date of Birth display it
If isDate(dtmDateOfBirth) Then
'Calculate the age (use months / 12 as counting years is not accurate) (use FIX to get the whole number)
intAge = Fix(DateDiff("m", dtmDateOfBirth, now())/12)
'Display the persons Date of Birth
Response.Write(stdDateFormat(dtmDateOfBirth, False))
Else
'Display that a Date of Birth was not given
Response.Write(strTxtNotGiven)
End If
%></td>
</tr>
<tr>
<td><% = strTxtAge %>:</td>
<td><% If intAge > 0 Then Response.Write(intAge) Else Response.Write(strTxtUnknown) %></td>
</tr>
<tr>
<td><% = strTxtLocation %>:</td>
<td><% If strLocation = "" Or isNull(strLocation) Then Response.Write(strTxtNotGiven) Else Response.Write(strLocation) %></td>
</tr>
<tr>
<td><% = strTxtHomepage %>:</td>
<td><img src="<% = strImagePath %>profile_homepage.png" border="0" alt="<% = strTxtHomepage %>" title="<% = strTxtVisitMembersHomepage %>" /> <% If strHomepage = "" OR IsNull(strHomepage) Then Response.Write(strTxtNotGiven) Else Response.Write("<a href=""" & formatInput(strHomepage) & """ target=""_blank"" title=""" & formatInput(strHomepage) & """>" & strTxtHomepage & "</a>") %></td>
</tr>
<tr>
<td><% = strTxtOccupation %>:</td>
<td><% If strOccupation = "" OR IsNull(strOccupation) Then Response.Write(strTxtNotGiven) Else Response.Write(strOccupation) %></td>
</tr>
<tr>
<td><% = strTxtInterests %>:</td>
<td><% If strInterests = "" OR IsNull(strInterests) Then Response.Write(strTxtNotGiven) Else Response.Write(strInterests) %></td>
</tr>
</table>
</td>
<td valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="2"><%
'If the private messager is on show PM link
If blnPrivateMessages Then
%>
<tr>
<td><% = strTxtPrivateMessage %>:</td>
<td><img src="<% = strImagePath %>profile_pm.png" border="0" alt="<% = strTxtSendPrivateMessage %>" title="<% = strTxtSendPrivateMessage %>" /> <% Response.Write("<a href=""pm_new_message_form.asp?name=" & Server.URLEncode(Replace(strUsername, "'", "\'", 1, -1, 1)) & strQsSID2 & """ rel=""nofollow"">" & strTxtSendPrivateMessage & "</a>") %></td>
</tr>
<tr>
<td><% = strTxtBuddyList %>:</td>
<td><img src="<% = strImagePath %>add_buddy.png" border="0" alt="<% = strTxtAddToBuddyList %>" title="<% = strTxtAddToBuddyList %>" /> <a href="pm_buddy_list.asp?name=<% = Server.URLEncode(Replace(strUsername, "'", "\'", 1, -1, 1)) & strQsSID2 %>"><% = strTxtAddToBuddyList %></a></td>
</tr><%
End If
%>
<tr>
<td width="30%"><% = strTxtEmailAddress %>:</td>
<td width="80%"><img src="<% = strImagePath %>profile_email.png" border="0" alt="<% = strTxtSendEmail %>" title="<% = strTxtSendEmail %>" /> <%
'If the user has choosen not to display there e-mail then this field will show private
If blnShowEmail = False AND blnAdmin = False AND strEmail <> "" Then
Response.Write(strTxtPrivate)
'If no password then display not given
ElseIf strEmail = "" OR isNull(strEmail) Then
Response.Write(strTxtNotGiven)
'If email address is shown and the email messenger of the forum is enabled show link button
ElseIf blnEmailMessenger Then
Response.Write("<a href=""email_messenger.asp?SEID=" & lngProfileNum & strQsSID2 & """>" & strTxtSendEmail & "</a>")
'Else the user allows there email address to be shown so show there email address
Else
Response.Write("<a href=""mailto:" & strEmail & """>" & strEmail & "</a>")
End If
%></td>
<tr>
<td><% = strTxtMSNMessenger %>:</td>
<td><img src="<% = strImagePath %>profile_msn.png" border="0" alt="<% = strTxtMSNMessenger %>" title="<% = strTxtMSNMessenger %>" /> <% If strMSNAddress <> "" Then Response.Write(formatInput(strMSNAddress)) Else Response.Write(strTxtNotGiven) %></td>
</tr>
<tr>
<td><% = strTxtAIMAddress %>:</td>
<td><img src="<% = strImagePath %>profile_aol.png" border="0" alt="<% = strTxtAIMAddress %>" title="<% = strTxtAIMAddress %>" /> <% If strAIMAddress <> "" Then Response.Write("<a href=""aim:goim?screenname=" & formatInput(strAIMAddress) & "&message=Hello+Are+you+there?"">" & strTxtAIMAddress & "</a>") Else Response.Write(strTxtNotGiven) %></td>
</tr>
<tr>
<td><% = strTxtYahooMessenger %>:</td>
<td><img src="<% = strImagePath %>profile_yim.png" border="0" alt="<% = strTxtYahooMessenger %>" title="<% = strTxtYahooMessenger %>" /> <% If strYahooAddress <> "" Then Response.Write("<a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & formatInput(strYahooAddress) & "&.src=pg"">" & strTxtYahooMessenger &"</a>") Else Response.Write(strTxtNotGiven) %></td>
</tr>
<tr>
<td><% = strTxtICQNumber %>:</td>
<td><img src="<% = strImagePath %>profile_icq.png" border="0" alt="<% = strTxtICQNumber %>" title="<% = strTxtICQNumber %>" /> <% If strICQNum <> "" Then Response.Write("<a href=""http://wwp.icq.com/scripts/search.dll?to=" & formatInput(strICQNum) & """>" & strTxtICQNumber & "</a>") Else Response.Write(strTxtNotGiven) %></td>
</tr>
<tr>
<td><% = strTxtSkypeName %>:</td>
<td><img src="<% = strImagePath %>profile_skype.png" border="0" alt="<% = strTxtSkypeName %>" title="<% = strTxtSkypeName %>" /> <% If strSkypeName <> "" Then Response.Write("<a href=""skype:" & formatInput(strSkypeName) & "?call"">" & strTxtSkypeName & "</a>") Else Response.Write(strTxtNotGiven) %></td>
</tr>
</table>
</td>
</tr><%
'If there is a signature display it
If strAdminNotes <> "" AND (blnAdmin OR blnModerator) Then
%>
<tr class="tableLedger">
<td colspan="2"><% = strTxtAdminNotes %></td>
</tr>
<tr class="tableRow">
<td colspan="2"><%
'Put in line breaks
strAdminNotes = Replace(strAdminNotes, vbCrLf, "<br />", 1, -1, 1)
'Display admin notes
Response.Write(strAdminNotes)
%></td>
</tr><%
End If
'If there are notes on the user display them
If strSignature <> "" Then
%>
<tr class="tableLedger">
<td colspan="2"><% = strTxtSignature %></td>
</tr>
<tr class="tableRow">
<td colspan="2"><% Response.Write(formatSignature(strSignature)) %></td>
</tr><%
End If
%>
</table><%
'If the user is an admin or a moderator give them the chance to edit the profile unless it's the main admin account of the guest account
If blnAdmin OR (blnModerator AND blnModeratorProfileEdit) Then
%><br />
<form method="get" action="member_control_panel.asp">
<table class="basicTable" cellspacing="0" cellpadding="3" align="center">
<tr>
<td align="center"><input type="hidden" name="PF" id="PF" value="<% = lngProfileNum %>" /><input type="hidden" name="M" id="M" value="A" /><input type="hidden" name="SID" id="SID" value="<% = strQsSID %>" /><input type="submit" name="Submit" id="Submit" value="<% = strTxtEditMembersSettings %>" /></td>
</tr>
</table>
</form><%
End If
End If
'Clean up (done down here are session data may need to be saved)
Call closeDatabase()
%>
<br />
<div align="center"><%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnLCode = True Then
If blnTextLinks = True Then
Response.Write("<span class=""text"" style=""font-size:10px"">Bulletin Board Software by <a href=""http://www.webwizforums.com"" target=""_blank"" style=""font-size:10px"">Web Wiz Forums®</a> version " & strVersion & "</span>")
Else
Response.Write("<a href=""http://www.webwizforums.com"" target=""_blank""><img src=""webwizforums_image.asp"" border=""0"" title=""Bulletin Board Software by Web Wiz Forums® version " & strVersion& """ alt=""Bulletin Board Software by Web Wiz Forums® version " & strVersion& """ /></a>")
End If
Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright ©2001-2008 <a href=""http://www.webwizguide.com"" target=""_blank"" style=""font-size:10px"">Web Wiz</a></span>")
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'Display the process time
If blnShowProcessTime Then Response.Write "<span class=""smText""><br /><br />" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "</span>"
%></div>
<!-- #include file="includes/footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -