📄 pop_profile.asp
字号:
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if IsNull(strMyQuote) or Trim(strMyQuote) = "" then Response.Write("-") else Response.Write(formatStr(strMyQuote)) %></font></td>
</tr>
<% end if
end if
'Rem User Field Code #######################################
if (intUserFields > 0) then %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">更多详细资料</font></b></td>
</tr>
<tr><td></td></tr>
<% set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnString
set rs2 = Conn.Execute("SELECT * FROM " & strMemberTablePrefix & "USERFIELDS ORDER BY USR_FIELD_ID")
do until rs2.EOF
Response.Write ("<tr><td valign=""top"" width=150 align=""right"" bgColor=" &strPopUpTableColor & "> <b><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">" & rs2("USR_LABEL") & ":</font></b></td>")
if rs2("USR_FIELDTYPE") = "C" then
%>
<td valign="top" bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) = "1" then %>是<% Else %>否<% End If %></font></td>
<% Else %>
<td valign="top" bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><%= getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) %></font></td>
<% End If %>
</tr>
<% rs2.MoveNext
loop
rs2.Close
end if
'Rem User Field Code #######################################
if (strHomepage + strFavLinks) > 0 and not(strRecentTopics = "0" and strUseExtendedProfile) then
if strUseExtendedProfile then
%>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">相关连接 </font></b></td>
</tr>
<% end if
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="<% = ChkString(rs("M_Homepage"), "urlpath") %>" target="_Blank"><% =ChkString(rs("M_Homepage"), "display") %></a> </font></td>
<% else %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">没有个人主页</font></td>
<% end if%>
</tr>
<% end if
if strFavLinks = "1" then
if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "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="<% =ChkString(rs("M_LINK1"), "urlpath") %>" target="_Blank"><% =ChkString(rs("M_LINK1"), "display") %></a> </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="<% =ChkString(rs("M_LINK2"), "urlpath") %>" target="_Blank"><% =ChkString(rs("M_LINK2"), "display") %></a> </font></td>
</tr>
<% end if
end if
end if
end if
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<% if strUseExtendedProfile then %>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="3" valign=top>
<tr>
<td bgColor="<% =strPageBGColor %>" align=center nowrap>
<br>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1) ">返回上一页</a></font></p>
<p> </p>
</td>
</tr>
<tr>
<% else%>
<tr>
<td bgColor="<% =strPageBGColor %>" align=center nowrap>
<% end if%>
<% case "Edit" %>
<center>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">用户资料</font></p>
<p align=center><form action="pop_profile.asp?mode=goEdit&id=<% =Request.QueryString("id")%>" method="post">
<input name="Refer" type="hidden" value="<% =Request.ServerVariables("HTTP_REFERER") %>">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">修改你在论坛的注册资料.<br>
<% if strAuthType = "nt" then %>
你的 NT 使用者帐号已显示。点选『送出』继续。<br><br>
<% else %>
<% if strAuthType = "db" then %>
请填写表格。<br><br>
<% end if %>
<% end if %>
如果你尚未注册，<a href="policy.asp">按这里注册</a>。</center>
<table border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td bgcolor="<% =strPopUpBorderColor %>">
<table border="0" width="100%" cellspacing="1" cellpadding="4">
<% if strAuthType = "nt" then %>
<TR>
<TD bgColor="<% =strPopUpTableColor %>" align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的帐号</font></b></td>
<TD bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><% =Session(strCookieURL & "userid") %></font></b></td>
</TR>
<% else %>
<% if strAuthType = "db" then %>
<TR>
<TD bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">会员名称：</font></td>
<TD bgColor=<% =strPopUpTableColor %>><input name="Name" size="25" value="<% =Request.Cookies(strUniqueID & "User")("Name")%>"></td>
</TR>
<TR>
<TD bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的密码：</font></td>
<TD bgColor=<% =strPopUpTableColor %>><input name="Password" type=Password size="25" value="<% =Request.Cookies(strUniqueID & "User")("Pword")%>"></td>
</TR>
<% end if %>
<% end if %>
<TR>
<TD bgColor=<% =strPopUpTableColor %> align=center colspan=2><input type=submit value=提交></td>
</TR>
</table>
</td>
</tr>
</table>
</form></p>
<%
case "goEdit"
if strAuthType = "db" then
if strDBNTUserName = "" then
strDBNTUserName = Request.Form("Name")
end if
end if
'## 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_LEVEL"
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 "
'######################################## kerrycode for Mail List # Display in Edit mode
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_RECMAIL"
'-------/kerrycode
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE "&Strdbntsqlname&" = '" & ChkString(STRdbntUserName, "decode") & "' "
if strAuthType = "db" then
strSql = strSql & " AND M_PASSWORD = '" & ChkString(Request.Form("Password"),"password") & "'"
end if
QuoteOk = ChkQuoteOk(STRdbntUserName)
set rs = my_Conn.Execute(strSql)
'Response.write strSQL
'response.end
if rs.BOF and rs.EOF and QuoteOk then
%>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">错误的用户名或密码</font></p>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">返回重试</a></font></p>
<%
if strUseExtendedProfile then
%>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if %>">返回论坛</a></font></p>
<%
end if
else
'## Display Edit Profile Page
%>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">编辑注册资料</font></p>
<p align=center><form action="pop_profile.asp?mode=EditIt&id=<% =Request.QueryString("id")%>" method="Post" id=Form1 name=Form1>
<input name="Refer" type="hidden" value="<% =Request.Form("Refer") %>">
<!-- #include file="inc_profile.asp" -->
</form></p>
<%
end if
case "Modify"
%>
<center>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">编辑会员资料</font></p>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><font color=red>注意：</font></b>只有管理员才能修改会员资料</font></p>
<center>
<form action="pop_profile.asp?mode=goModify" method=post id=Form1 name=Form1>
<input type=hidden name="Method_Type" value="<% =Request.QueryString("mode") %>">
<input type=hidden name="MEMBER_ID" value="<% =Request.QueryString("ID") %>">
<input type=hidden name="Name" value="<% =Request.QueryString("name") %>">
<input name="Refer" type="hidden" value="<% =Request.ServerVariables("HTTP_REFERER") %>">
<table border="0" width="30%" cellspacing="0" cellpadding="0" align=center>
<tr>
<td bgcolor="<% =strPopUpBorderColor %>">
<table border="0" width="100%" cellspacing="1" cellpadding="4">
<% if strAuthType="db" then %>
<tr>
<TD bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">用户名称：</font></b></td>
<TD bgColor=<% =strPopUpTableColor %>><input type=text name="User" value="<% =Request.Cookies(strUniqueID & "User")("Name")%>" size=20></td>
</tr>
<tr>
<TD bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的密码：</FONT></b></td>
<TD bgColor=<% =strPopUpTableColor %>><input type=Password name="Pass" value="<% =Request.Cookies(strUniqueID & "User")("Pword")%>" size=20></td>
</tr>
<% elseif strAuthType="nt" then %>
<tr>
<td bgcolor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">NT 帐号：</font></b></td>
<td bgcolor=<% =strPopUpTableColor %>><font face="<%=strDefaultFontFace %>" size="<% =strDefaultFontSize%>"><%=Session(strCookieURL & "userid")%></FONT></td>
</tr>
<% end if %>
<tr>
<TD bgColor=<% =strPopUpTableColor %> colspan=2 align=center><Input type=Submit value="提交" id=Submit1 name=Submit1></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -