📄 pop_profile.asp
字号:
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_CITY"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_STATE"
' strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_RECEIVE_EMAIL"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK1"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK2"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DOB"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LNEWS"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_BIO"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID=" & ppMember_ID
set rs = my_Conn.Execute(strSql)
if rs.BOF or rs.EOF then
Err_Msg = "Invalid Member ID!"
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member's Profile</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem!</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & Err_Msg & "</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Back to Forum</a></font></p>" & vbNewLine & _
" <br />" & vbNewLine
if not(strUseExtendedProfile) then
WriteFooterShort
Response.End
else
WriteFooter
Response.End
end if
else
strMyHobbies = rs("M_HOBBIES")
strMyQuote = rs("M_QUOTE")
strMyLNews = rs("M_LNEWS")
strMyBio = rs("M_BIO")
intTotalMemberPosts = rs("M_POSTS")
if intTotalMemberPosts > 0 then
strMemberDays = DateDiff("d", strToDate(rs("M_DATE")), strToDate(strForumTimeAdjust))
if strMemberDays = 0 then strMemberDays = 1
strMemberPostsperDay = round(intTotalMemberPosts/strMemberDays,2)
if strMemberPostsperDay = 1 then
strPosts = " post"
else
strPosts = " posts"
end if
end if
if strUseExtendedProfile then
strColspan = " colspan=""2"""
strIMURL1 = "javascript:openWindow('"
strIMURL2 = "')"
else
strColspan = ""
strIMURL1 = ""
strIMURL2 = ""
end if
if strUseExtendedProfile then
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & chkString(rs("M_NAME"),"display") & "'s Profile</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
end if
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPageBGColor & """ align=""center""" & strColspan & ">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>User Profile<br /></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPageBGColor & """ align=""center""" & strColspan & ">" & vbNewLine & _
" <table border=""0"" width=""90%"" cellspacing=""0"" cellpadding=""4"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine
if mLev = 4 then
Response.Write " <td valign=""top"" align=""left"" bgcolor=""" & strHeadCellColor & """> <a href=""pop_profile.asp?mode=Modify&ID=" & rs("MEMBER_ID") & "&name=" & ChkString(rs("M_NAME"),"urlpath") & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & ChkString(rs("M_NAME"),"display") & "</b></font></a></td>" & vbNewLine
else
Response.Write " <td valign=""top"" align=""left"" bgcolor=""" & strHeadCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b> " & ChkString(rs("M_NAME"),"display") & "</b></font></td>" & vbNewLine
end if
Response.Write " <td valign=""top"" align=""right"" bgcolor=""" & strHeadCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Member Since: " & ChkDate(rs("M_DATE"),"",false) & " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPageBGColor & """ align=""left"" valign=""top"">" & vbNewLine & _
" <table border=""0"" width=""90%"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <td width=""35%"" bgColor=""" & strPageBGColor & """ valign=""top"">" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""3"">" & vbNewLine
if trim(rs("M_PHOTO_URL")) = "" or lcase(rs("M_PHOTO_URL")) = "http://" then strPicture = 0
if strPicture = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> My Picture </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""center"" colspan=""2"">"
if Trim(rs("M_PHOTO_URL")) <> "" and lcase(rs("M_PHOTO_URL")) <> "http://" then
Response.Write "<a href=""" & ChkString(rs("M_PHOTO_URL"), "displayimage") & """>" & getCurrentIcon(ChkString(rs("M_PHOTO_URL"), "displayimage") & "|150|150",ChkString(rs("M_NAME"),"display"),"hspace=""2"" vspace=""2""") & "</a><br /><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Click image for full picture</font>"
else
Response.Write getCurrentIcon(strIconPhotoNone,"No Photo Available","hspace=""2"" vspace=""2""")
end if
Response.Write "</td>" & vbNewLine & _
" </tr>" & vbNewLine
end if ' strPicture
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> My Contact Info </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
strContacts = 0
if mLev > 2 or rs("M_RECEIVE_EMAIL") = "1" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>E-mail User: </font></b></td>" & vbNewLine
if Trim(rs("M_EMAIL")) <> "" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:openWindow('pop_mail.asp?id=" & rs("MEMBER_ID") & "')"">Click to send an E-Mail</a> </font></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>No address specified...</font></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine
end if
if strAIM = "1" and Trim(rs("M_AIM")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>AIM: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " <a href=""" & strIMURL1 & "pop_messengers.asp?mode=AIM&ID=" & rs("MEMBER_ID") & strIMURL2 & """>" & ChkString(rs("M_AIM"), "display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon("http://online.mirabilis.com/scripts/online.dll?icq=" & ChkString(rs("M_ICQ"), "urlpath") & "&img=5|18|18","","align=""absmiddle""") & " <a href=""" & strIMURL1 & "pop_messengers.asp?mode=ICQ&ID=" & rs("MEMBER_ID") & strIMURL2 & """>" & ChkString(rs("M_ICQ"), "display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMSN = "1" and Trim(rs("M_MSN")) <> "" then
strContacts = strContacts + 1
parts = split(rs("M_MSN"),"@")
strtag1 = parts(0)
partss = split(parts(1),".")
strtag2 = partss(0)
strtag3 = ""
for xmsn = 1 to ubound(partss)
if strtag3 <> "" then strtag3 = strtag3 & "."
strtag3 = strtag3 & partss(xmsn)
next
Response.Write " <script language=""javascript"" type=""text/javascript"">" & vbNewLine & _
" function MSNjs() {" & vbNewLine & _
" var tag1 = '" & strtag1 & "';" & vbNewLine & _
" var tag2 = '" & strtag2 & "';" & vbNewLine & _
" var tag3 = '" & strtag3 & "';" & vbNewLine & _
" document.write(tag1 + ""@"" + tag2 + ""."" + tag3) }" & vbNewLine & _
" </script>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>MSN: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & " <script language=""javascript"" type=""text/javascript"">MSNjs()</script> </font></td>" & vbNewLine & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -