📄 inc_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)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。 #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！ #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们 #
'#################################################################
on error resume next
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" valign=top>
<tr>
<td bgColor="<% =strPageBGColor %>" align=center <%= strColspan %>>
<p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>前面有 <FONT color=#ff0000 size="<% =strHeaderFontSize %>"><b>*</b></FONT> 的栏目都必须填写</b></font></p>
</td>
</tr>
<tr>
<td bgcolor="<% =strPageBGColor %>" align=left valign=top>
<table border="0" width="100%" cellspacing="1" cellpadding="0" align="center">
<tr>
<%
if strUseExtendedProfile then
%>
<td width="50%"" bgColor=<% =strPopUpTableColor %> valign=top>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="<% =strPopUpBorderColor %>">
<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 color=#ff0000>*</FONT> 电子邮件： </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Email" size="25" value="<% =RS("M_EMAIL") %>">
<INPUT type="hidden" name="Email2" value="<% =RS("M_EMAIL") %>">
</tr>
<!################### - kerrycode for Email List------>
<%if Request.QueryString("mode") = "goEdit" or Request.Querystring("mode") = "goModify" then
RECMAIL = RS("M_RECMAIL")
if RECMAIL = "1" then
YesNo = "No"
else
RECMAIL = "0"
YesNo = "Yes"
end if
%>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right width="10%"" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Receive Updates: </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<select name="RECMAIL" size="1">
<option value="<%= RECMAIL %>" SELECTED> <% =YesNo%></option>
<option value="0"> 是</option>
<option value="1"> 否</option>
</select>
</font></td>
</tr>
<% end if %>
<!################### - /kerrycode------>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right width="10%"" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">不显示信箱地址： </font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if (RS("M_HIDE_EMAIL") = 1) then %>
是<input type="radio" value="1" checked name="HideMail"> 否<input type="radio" value="0" name="HideMail"
<% else %>
是<input type="radio" value="1" name="HideMail"> 否<input type="radio" value="0" checked name="HideMail"
<% end if %>
</font></td>
</tr>
<%if strICQ = "1" then%>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">ICQ号码: </font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="ICQ" size="25" value="<% =ChkString(RS("M_ICQ"), "display") %>"></font></td>
</tr>
<%end if
if strYAHOO = "1" then
%><tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">OICQ号码: </font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="YAHOO" size="25" value="<% =ChkString(RS("M_YAHOO"), "display") %>"></font></td>
</tr>
<%end if
if strAIM = "1" then
%><tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">AIM号码: </font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="AIM" size="25" value="<% =ChkString(RS("M_AIM"), "display") %>"></font></td>
</tr>
<%end if
if (strHomepage + strFavLinks) > 0 and (strUseExtendedProfile) then %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>相关连结</b> </font></td>
</tr>
<%if strHomepage = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人主页： </font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Homepage" size="25" value="<% if ChkString(RS("M_Homepage"), "display") <> " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(RS("M_Homepage")) else Response.Write("http://") %>"></font></td>
</tr>
<%end if
if strFavLinks = "1" then%>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">推荐连结： </font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Link1" size="25" value="<% if RS("M_LINK1") <> " " and lcase(RS("M_LINK1")) <> "http://" then Response.Write(ChkString(rs("M_LINK1"), "display")) else Response.Write("http://") %>"></font></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> </font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Link2" size="25" value="<% if RS("M_LINK2") <> " " and lcase(RS("M_LINK2")) <> "http://" then Response.Write(ChkString(rs("M_LINK2"), "display")) else Response.Write("http://") %>"></font></td>
</tr>
<%end if
end if
%>
<%if strPicture = "1" then %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">个性头像地址（请不要大於 70 × 70 像素） </font></b></td>
</tr>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">图片连接地址： </font></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Photo_URL" size="25" value="<% if Trim(RS("M_PHOTO_URL") <> "") and lcase(RS("M_PHOTO_URL")) <> "http://" and not(IsNull(RS("M_PHOTO_URL"))) then Response.Write(ChkString(rs("M_PHOTO_URL"), "display")) else Response.Write("http://") %>"></font></td>
</tr>
<%end if ' strPicture
if (strBio + strHobbies + strLNews + strQuote)> 0 then
strMyBio = rs("M_BIO")
strMyHobbies = rs("M_HOBBIES")
strMyLNews = rs("M_LNEWS")
strMyQuote = rs("M_QUOTE")
%><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%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人简介： </font>
</td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><textarea name="Bio" cols="30" rows=4><% =Trim(cleancode(strMyBio)) %></textarea></font>
</td>
</tr>
<%end if
if strHobbies = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top align=right nowrap width="10%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人爱好： </font>
</td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><textarea name="Hobbies" cols="30" rows=4><% =Trim(cleancode(strMyHobbies)) %></textarea></font>
</td>
</tr>
<%end if
if strLNews = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top align=right nowrap width="10%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">最近状况： </font>
</td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><textarea name="LNews" cols="30" rows=4><% =Trim(cleancode(strMyLNews)) %></textarea></font>
</td>
</tr>
<%end if
if strQuote = "1" then%>
<tr>
<td bgcolor="<% =strPopUpTableColor %>" valign=top align=right nowrap width="10%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">座 右 铭： </font></td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><textarea name="Quote" cols="30" rows=4><% =Trim(cleancode(strMyQuote)) %></textarea></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
fieldValue = getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID"))
Response.Write ("<tr><td valign=""top"" align=""right"" bgColor=" &strPopUpTableColor & " > <b><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">" & rs2("USR_LABEL") & ":</font></b></td>")
if rs2("USR_FIELDTYPE") = "T" then %>
<td valign="top" bgColor="<% =strPopUpTableColor %>"><textarea maxLength="255" name=<%=rs2("USR_SHORTNAME")%> cols="20" rows=3><%= getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) %></textarea></td>
<% Else
if rs2("USR_FIELDTYPE") = "S" then %>
<td valign="top" bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name=<%=rs2("USR_SHORTNAME")%> size="20" value="<%= getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) %>"></font></td>
<% Else %>
<td valign="top" bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name=<%=rs2("USR_SHORTNAME")%> type="checkbox" value="1" <% If fieldValue = "1" then %>checked<% End If %>></font></td>
<% End If %>
<% End If %>
</tr>
<%rs2.MoveNext
loop
rs2.Close
Conn.close
set Conn = Nothing
end if
'Rem User Field Code #######################################
%>
</table>
</td>
<%
end if 'extended profile
%>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="<% =strPopUpBorderColor %>">
<tr>
<td valign="top" align=center colspan="2" bgcolor="<% =strCategoryCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">基本资料</font></b></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -