📄 inc_profile_with_maillist_manager.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="80%" cellspacing="1" cellpadding="0" align="center">
<tr>
<%
if strUseExtendedProfile then
%>
<td width="50%"" bgColor=<% =strPopUpTableColor %> valign=top>
<table border="0" width="100%" cellspacing="0" cellpadding="1">
<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") %>"></font></td>
</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
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"> Yes</option>
<option value="1"> No</option>
</select>
</font></td>
</tr>
<% end if %>
<!---------------/kerrycode------>
<% if strICQ = "1" 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 %>"><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><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">OICQ号码: </font></b></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><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">AIM号码: </font></b></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">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">相关连结 </font></b></td>
</tr>
<% if strHomepage = "1" 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 %>"><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%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">推荐连结： </font></b></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%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> </font></b></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><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">图片连接地址： </font></b></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%">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人简介： </font></b>
</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%">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人爱好： </font></b>
</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%">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">最近状况： </font></b>
</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%">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">座 右 铭： </font></b></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%>
</table>
</td>
<%
end if 'extended profile
%>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<table border="0" width="100%" cellspacing="0" cellpadding="1">
<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%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT> 用户名称： </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if (Request.QueryString("mode") = "goEdit") or (Request.Querystring("mode") = "goModify" and (Request.QueryString("Name") = "Admin") or Request.Form("MEMBER_ID") = 1 or Request.Form("Name") = "Admin") then %>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(rs("M_NAME"), "display") %></font>
<INPUT type="hidden" name="Name" value="<% =rs("M_NAME") %>">
<% else %>
<INPUT name="Name" size="25" value="<% =ChkString(rs("M_NAME"), "display") %>">
<% end if %>
</font></td>
</tr>
<%
if Request.Querystring("mode") = "goModify" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>"align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">称呼： </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Title" size="25" value="<% =CleanCode(RS("M_TITLE")) %>"></font></td>
</tr>
<% end if
if strAuthType = "nt" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT>你的帐号： </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSizederFontSize %>">
<% if Request.Form("Method_Type") = "Modify" then %>
<input name="Account" value="<% =ChkString(rs("M_USERNAME"), "display") %>">
<% else %>
<%=Session(strCookieURL & "userid")%><input type="hidden" name="Account" value="<% =Session(strCookieURL & "userid") %>">
<% end if %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -