📄 pop_profile.asp
字号:
<% else%>
<img src=images/icon_folder_new.gif height=15 width=15 alt=新主题 border=0></a></td>
<% end if
else
if rs2("T_REPLIES") >= intHotTopicNum then%>
<img src=images/icon_folder_hot.gif height=15 width=15 alt=热门主题 border=0></a></td>
<% else%>
<img src=images/icon_folder.gif height=15 width=15 border=0></a></td>
<% end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<img src=images/icon_folder_new.gif height=15 width=15 alt=新主题 border=0></a></td>
<% else%>
<img src=images/icon_folder.gif height=15 width=15 border=0></a></td>
<% end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<img src="images/icon_folder_new_locked.gif" alt="主题锁定" border="0"></a></td>
<% else %>
<img src="images/icon_folder_locked.gif" alt="主题锁定" border="0"></a></td>
<% end if
end if %>
<td bgcolor="<% = strPopUpTableColor %>" valign="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="topic.asp?TOPIC_ID=<% =rs2("TOPIC_ID") %>&FORUM_ID=<% =rs2("FORUM_ID") %>&CAT_ID=<% =rs2("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs2("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs2("F_SUBJECT"),"urlpath") %>"><% =ChkString(left(rs2("T_SUBJECT"), 50),"display") %></a> </font></td>
</tr>
<%
TopicCount = TopicCount + 1
end if
currTopic = rs2("TOPIC_ID")
end if
rs2.MoveNext
TopicCount = TopicCount + 1
loop
%> </table>
</td>
</tr>
<% end if
rs2.close
set rs2 = nothing
elseif (strHomepage + strFavLinks) > 0 and (strRecentTopics = "0") then %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">相关连接 </font></b></td>
<% if strHomepage = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人主页： </font></b></td>
<% if Trim(rs("M_HOMEPAGE")) <> "" and lcase(trim(rs("M_HOMEPAGE"))) <> "http://" and Trim(lcase(rs("M_HOMEPAGE"))) <> "https://" then %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =rs("M_Homepage") %>" target="_blank"><% =rs("M_Homepage") %></a> </font></td>
<% else %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">没有个人主页</font></td>
<% end if %>
</tr>
<% end if
if strFavLinks = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">推荐连接： </font></b></td>
<% if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "https://" then %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =rs("M_LINK1") %>" target="_Blank"><% =rs("M_LINK1") %></a> </font></td>
<% else %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">没有推荐连接</font></td>
</tr>
<% if Trim(rs("M_LINK2")) <> "" and lcase(trim(rs("M_LINK2"))) <> "http://" and Trim(lcase(rs("M_LINK2"))) <> "https://" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =rs("M_LINK2") %>" target="_Blank"><% =rs("M_LINK2") %></a> </font></td>
<% end if
end if %>
</tr>
<% end if
end if ' strRecentTopics
%>
</table>
</td>
<td valign=top width="3%" bgColor=<% =strPageBGColor %> >
</td>
<%
end if ' UseExtendedMemberProfile
%>
<td bgColor=<% =strPageBGColor %> valign=top>
<table border="0" width="100%" cellspacing="1" cellpadding="3" valign=top bgcolor="<% =strTableBorderColor %>">
<tr>
<td valign="top" align=center colspan="2" bgcolor="<% =strCategoryCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">基本资料</font></b></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%" valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> 会员名字： </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(rs("M_NAME"),"display") %> </font></td>
</tr>
<% if strAuthType = "nt" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的帐号： </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSizederFontSize %>"><%= ChkString(rs("M_USERNAME"),"display") %></FONT></td>
</tr>
<% end if
if strFullName = "1" and (Trim(rs("M_FIRSTNAME")) <> "" or Trim(rs("M_LASTNAME")) <> "" ) then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">真实姓名：</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(rs("M_LASTNAME"), "display") %> <% =ChkString(rs("M_FIRSTNAME"), "display") %></font></td>
</tr>
<%
end if
if (strCity = "1" and Trim(rs("M_CITY")) <> "") or (strCountry = "1" and Trim(rs("M_COUNTRY")) <> "") or (strCountry = "1" and Trim(rs("M_STATE")) <> "") then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">国家地区：</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% Response.Write(rs("M_CITY"))
if Trim(rs("M_CITY")) <> "" then
Response.Write(" ")
end if
if Trim(rs("M_STATE")) <> "" then
Response.Write(ChkString(rs("M_STATE"), "display") & "<br>")
end if
Response.Write(ChkString(rs("M_COUNTRY"), "display"))
%>
</font>
</td>
</tr>
<%
end if
if (strAge = "1" and Trim(rs("M_AGE")) <> "") then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">年 龄： </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(rs("M_AGE"), "display") %></font></td>
</tr>
<%
end if
if (strMarStatus = "1" and Trim(rs("M_MARSTATUS")) <> "") then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">婚姻状况： </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% = ChkString(rs("M_MARSTATUS"), "display") %></font></td>
</tr>
<%
end if
if (strSex = "1" and Trim(rs("M_SEX")) <> "") then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">性 别： </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% = ChkString(rs("M_SEX"), "display") %></font></td>
</tr>
<%
end if
if (strOccupation = "1" and Trim(rs("M_OCCUPATION")) <> "") then
%> <tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">现任职业： </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% = ChkString(rs("M_OCCUPATION"), "dislay") %></font></td>
</tr>
<%
end if
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">文章总数：</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% = ChkString(rs("M_POSTS"), "display") %></font></td>
</tr>
<%
if not(strUseExtendedProfile) then
%>
<!-- <tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"> 联络资讯 </font></b></td>
</tr> -->
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right width="10%" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> 电子邮件： </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="pop_mail.asp?id=<% =rs("MEMBER_ID") %>"><% =ChkString(rs("M_EMAIL"), "display") %></a> </font></td>
</tr>
<% if strICQ = "1" then
if Trim(rs("M_ICQ")) <> "" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">ICQ号码： </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="pop_messengers.asp?mode=ICQ&ICQ=<% =ChkString(rs("M_ICQ"), "urlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "urlpath") %>"><img src="http://online.mirabilis.com/scripts/online.dll?icq=<% =ChkString(rs("M_ICQ"), "urlpath") %>&img=5" border="0" align="absmiddle"><% =ChkString(rs("M_ICQ"), "display") %></a> </font></td>
</tr>
<% end if
end if
if strYAHOO = "1" then
if Trim(rs("M_YAHOO")) <> "" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">OICQ号码： </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<% =rs("M_YAHOO") %>" target=_blank><img align=absmiddle width=16 height=16 src="http://icon.tencent.com/<% =rs("M_YAHOO") %>/s/00/" border=0><% =rs("M_YAHOO") %></a></font></td>
</tr>
<% end if
end if
if strAIM = "1" then
if Trim(rs("M_AIM")) <> "" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">AIM号码： </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="pop_messengers.asp?mode=AIM&AIM=<% =ChkString(rs("M_AIM"), "urlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "urlpath") %>"><% =ChkString(rs("M_AIM"), "display") %></a> </font></td>
</tr>
<% end if
end if
end if
%>
<% if (strBio + strHobbies + strLNews + strQuote) > 0 then %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">更多详细资料</font></b></td>
</tr>
<% if strBio = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top align=right nowrap width="10%">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人简介： </font></b>
</td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if IsNull(strMybio) or trim(strMyBio) = "" then Response.Write("-") else Response.Write(formatStr(strMyBio)) %></font>
</td>
</tr>
<% end if
if strHobbies = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top align=right nowrap width="10%">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人爱好： </font></b>
</td>
<td bgColor=<% =strPopUpTableColor %> >
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if IsNull(strMyHobbies) or trim(strMyHobbies) = "" then Response.Write("-") else Response.Write(formatStr(strMyHobbies)) %></font>
</td>
</tr>
<% end if
if strLNews = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top align=right nowrap width="10%">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">最近状况： </font></b>
</td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if IsNull(strMyLNews) or trim(strMyLNews) = "" then Response.Write("-") else Response.Write(formatStr(strMyLNews)) %></font>
</td>
</tr>
<% end if
if strQuote = "1" then %>
<tr>
<td align=right bgcolor="<% =strPopUpTableColor %>" nowrap width="10%" valign=top>
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">座 右 铭： </font></b></td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -