📄 pop_profile.asp
字号:
<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'# #
'# 汉化修改: 资源搜罗站 #
'# 电子邮件: cgier@21cn.com #
'# 主页地址: http://www.sdsea.com #
'# http://www.99ss.net #
'# http://www.cdown.net #
'# http://www.wzdown.com #
'# http://www.13888.net #
'# 论坛地址:http://ubb.yesky.net #
'# 最后修改日期: 2001/03/12 中文版本：Version 3.1 SR4 #
'#################################################################
'# 原始来源 #
'# Snitz Forums 2000 Version 3.1 SR4 #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved #
'#################################################################
'#【版权声明】 #
'# #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。 #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！ #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们 #
'#################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<%
if not(strUseExtendedProfile) then
%>
<!--#INCLUDE FILE="inc_top_short.asp" -->
<%
else
%>
<!--#INCLUDE FILE="inc_top.asp" -->
<% end if
if Request.QueryString("mode") = "Moderator" then
select case Request.QueryString("action")
case "del"
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_LEVEL = 1 "
strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID")
my_Conn.Execute(strsql)
case "add"
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_LEVEL = 2 "
strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID")
my_Conn.Execute(strsql)
end select %>
<meta http-equiv="Refresh" content="0; URL=members.asp">
<% end if
if strAuthType = "nt" then
if ChkAccountReg() <> "1" then %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<b>注意：</b>此用户帐号尚未注册所以没有会员资料。<br>
如果这是你的帐号，请<a href="register.asp?mode=Register">按这里</a>注册。
</font></p>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
Response.End
end if
end if
%>
<%
select case Request.QueryString("mode")
case "display" '## Display Profile
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_USERNAME, " & strMemberTablePrefix & "MEMBERS.M_EMAIL "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME, " & strMemberTablePrefix & "MEMBERS.M_LASTNAME "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM"
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_COUNTRY "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_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, " & strMemberTablePrefix & "MEMBERS.M_LINK2 "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE, " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX, " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_SIG"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES, " & strMemberTablePrefix & "MEMBERS.M_LNEWS "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE, " & strMemberTablePrefix & "MEMBERS.M_BIO "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID=" & Request.QueryString("id")
set rs = my_Conn.Execute(strSql)
strMyHobbies = rs("M_HOBBIES")
strMyLNews = rs("M_LNEWS")
strMyQuote = rs("M_QUOTE")
strMyBio = rs("M_BIO")
Set HideMail = rs("M_HIDE_EMAIL")
if strUseExtendedProfile then
strColspan = " colspan=""2"" "
strIMURL1 = "javascript:openWindow('"
strIMURL2 = "')"
else
strColspan = ""
strIMURL1 = ""
strIMURL2 = ""
end if
mLev = cint(ChkUser2(Request.Cookies(strUniqueID & "User")("Name"), Request.Cookies(strUniqueID & "User")("Pword")))
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgColor="<% =strPageBGColor %>">
<tr>
<td bgColor="<% =strPageBGColor %>" align=center <%= strColspan %>>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">用户资料<br></font></p>
</td>
</tr>
<tr>
<td bgColor="<% =strPageBGColor %>" align=center <%= strColspan %>>
<table border="0" width="95%" cellspacing="0" cellpadding="4" align=center>
<tr>
<% if mLev = 4 then %>
<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") %></a></b></font></td>
<% else %>
<td valign=top align=left bgcolor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b> <% =ChkString(rs("M_NAME"),"display") %></b></font></td>
<% end if%>
<td valign=top align=right bgcolor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">注册日期：<% =ChkDate(rs("M_DATE")) %> </font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="<% =strPageBGColor %>" align=left valign=top>
<table border="0" width="95%" cellspacing="1" cellpadding="0" align="center" bgcolor="<% =strPageBGColor %>">
<tr bgcolor="<% =strPageBGColor %>">
<%
if strUseExtendedProfile then
%>
<td width="40%" bgColor="<% =strPageBGColor %>" valign=top>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="<% =strTableBorderColor %>">
<% if strPicture = "1" 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=center colspan="2">
<% if Trim(rs("M_PHOTO_URL")) <> "" and lcase(rs("M_PHOTO_URL")) <> "http://" then %>
<a href="<% =ChkString(rs("M_PHOTO_URL"), "display") %>"><img src="<% =rs("M_PHOTO_URL") %>" width="150" height="150" border=0 hspace="2" vspace="2"></a><br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">点击浏览全图</font>
<% else %>
<img src="no_photo.gif" alt="没有设定图片" width="150" height="150" border=0 hspace="2" vspace="2"></a>
<% end if %>
</td>
</tr>
<% end if ' strPicture %>
<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>
<% if(HideMail = 0) then %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><% =ChkString(rs("M_EMAIL"), "display") %></a> </font></td>
<% else %>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> 地址隐藏 </font></td>
<% end if %>
</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="<% =strIMURL1 %>pop_messengers.asp?mode=ICQ&ICQ=<% =ChkString(rs("M_ICQ"), "urlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "urlpath") %><% =strIMURL2 %>"><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"), "urlpath") %></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="<% =strIMURL1 %>pop_messengers.asp?mode=AIM&AIM=<% =ChkString(rs("M_AIM"), "urlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "urlpath") %><% =strIMURL2 %>"><% =ChkString(rs("M_AIM"), "urlpath") %></a> </font></td>
</tr>
<% end if
end if
if strRecentTopics = "1" then
strStartDate = DateToStr(dateadd("d", -30, strForumTimeAdjust))
'## Forum_SQL - Find all records for the member
strsql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, "
strsql = strsql & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_STATUS, " & strTablePrefix & "TOPICS.T_LAST_POST, " & strTablePrefix & "TOPICS.T_REPLIES "
strsql = strsql & " FROM ((" & strTablePrefix & "FORUM LEFT JOIN " & strTablePrefix & "TOPICS "
strsql = strsql & " ON " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID) LEFT JOIN " & strTablePrefix & "REPLY "
strsql = strsql & " ON " & strTablePrefix & "TOPICS.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID) "
strsql = strsql & " WHERE (T_DATE > '" & strStartDate & "') "
strsql = strsql & " AND (" & strTablePrefix & "TOPICS.T_AUTHOR = " & Request.QueryString("id") & " "
strsql = strsql & " OR " & strTablePrefix & "REPLY.R_AUTHOR = " & Request.QueryString("id") & ")"
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC, " & strTablePrefix & "TOPICS.TOPIC_ID DESC"
set rs2 = my_Conn.Execute(strsql)
%>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">最近发表的主题</font></b></td>
</tr>
<% if rs2.EOF or rs2.BOF then %>
<tr>
<td bgcolor="<% =strPopUpTableColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <br> <b>没有找到相符的资料<br> </b></font></td>
</tr>
<%
else
currTopic = 0
TopicCount = 0
%>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top colspan="2">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<%
do until rs2.EOF or (TopicCount = 10)
if chkDisplayForum(rs2("FORUM_ID")) then
if currTopic <> rs2("TOPIC_ID") then %>
<tr>
<td bgcolor="<% = strPopUpTableColor %>">
<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") %>">
<% if rs2("T_STATUS") <> 0 then
if strHotTopic = "1" then
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then
if rs2("T_REPLIES") >= intHotTopicNum then%>
<img src=images/icon_folder_new_hot.gif height=15 width=15 alt=热门主题 border=0></a></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -