⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 inc_profile_with_random_pass_and_maillist_manager.asp

📁 一个不错的ASP论坛源码
💻 ASP
📖 第 1 页 / 共 3 页
字号:
                        <OPTION VALUE="Russia">Russia
                        <OPTION VALUE="Rwanda">Rwanda
                        <OPTION VALUE="Saint Barthelemy">Saint Barthelemy
                        <OPTION VALUE="Saint Croix">Saint Croix
                        <OPTION VALUE="Saint Helena">Saint Helena
                        <OPTION VALUE="Saint Kitts and Nevis">Saint Kitts and Nevis
                        <OPTION VALUE="Saint Lucia">Saint Lucia
                        <OPTION VALUE="Saint Pierre and Miquelon">Saint Pierre and Miquelon
                        <OPTION VALUE="Saint Vincent and Grenadi">Saint Vincent and Grenadi
                        <OPTION VALUE="San Marino">San Marino
                        <OPTION VALUE="Sao Tome and Principe">Sao Tome and Principe
                        <OPTION VALUE="Saudi Arabia">Saudi Arabia
                        <OPTION VALUE="Senegal">Senegal
                        <OPTION VALUE="Seychelles">Seychelles
                        <OPTION VALUE="Sierra Leone">Sierra Leone
                        <OPTION VALUE="Singapore">Singapore
                        <OPTION VALUE="Slovakia">Slovakia
                        <OPTION VALUE="Slovenia">Slovenia
                        <OPTION VALUE="Solomon Islands">Solomon Islands
                        <OPTION VALUE="Somalia Northern Region">Somalia Northern Region
                        <OPTION VALUE="Somalia Southern Region">Somalia Southern Region
                        <OPTION VALUE="South Africa">South Africa
                        <OPTION VALUE="South Sandwich Islands">South Sandwich Islands
                        <OPTION VALUE="Spain">Spain
                        <OPTION VALUE="Sri Lanka">Sri Lanka
                        <OPTION VALUE="Sudan">Sudan
                        <OPTION VALUE="Suriname">Suriname
                        <OPTION VALUE="Swaziland">Swaziland
                        <OPTION VALUE="Sweden">Sweden
                        <OPTION VALUE="Switzerland">Switzerland
                        <OPTION VALUE="Syria">Syria
                        <OPTION VALUE="台湾">台湾
                        <OPTION VALUE="Tajikistan">Tajikistan
                        <OPTION VALUE="Tanzania">Tanzania
                        <OPTION VALUE="Thailand">Thailand
                        <OPTION VALUE="Togo">Togo
                        <OPTION VALUE="Tonga">Tonga
                        <OPTION VALUE="Trinidad and Tobago">Trinidad and Tobago
                        <OPTION VALUE="Tunisia">Tunisia
                        <OPTION VALUE="Turkey">Turkey
                        <OPTION VALUE="Turkmenistan">Turkmenistan
                        <OPTION VALUE="Turks and Caicos Islnd">Turks and Caicos Islnd
                        <OPTION VALUE="Tuvalu">Tuvalu
                        <OPTION VALUE="美国">美国
                        <OPTION VALUE="Uganda">Uganda
                        <OPTION VALUE="Ukraine">Ukraine
                        <OPTION VALUE="United Arab Emirates">United Arab Emirates
                        <OPTION VALUE="United Kingdom">United Kingdom
                        <OPTION VALUE="Uruguay">Uruguay
                        <OPTION VALUE="Uzbekistan">Uzbekistan
                        <OPTION VALUE="Vanuatu">Vanuatu
                        <OPTION VALUE="Vatican City">Vatican City
                        <OPTION VALUE="Venezuela">Venezuela
                        <OPTION VALUE="Vietnam">Vietnam
                        <OPTION VALUE="Virgin Islands (United Kingdom)">Virgin Islands (United Kingdom)
                        <OPTION VALUE="Wallis and Futuna Islands">Wallis and Futuna Islands
                        <OPTION VALUE="Western Sahara">Western Sahara
                        <OPTION VALUE="Western Samoa">Western Samoa
                        <OPTION VALUE="Yemen">Yemen
      <OPTION VALUE="Zambia">Zambia
    <OPTION VALUE="Zimbabwe (Rhodesia)">Zimbabwe (Rhodesia)         
</select></font></td>
</tr>
<%end if
if strAge = "1" then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">年&nbsp;&nbsp;&nbsp;&nbsp;龄:&nbsp;</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT  name="Age" size="7" value="<% =ChkString(RS("M_AGE"), "display") %>"></font></td>
</tr>
<%
end if
if strSex = "1" then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">性&nbsp;&nbsp;&nbsp;&nbsp;别:&nbsp;</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><select name="Sex" size="1">
            <OPTION selected VALUE="<% =RS("M_SEX") %>"><% =RS("M_SEX") %>&nbsp;
            <OPTION VALUE="男性">男性&nbsp;
            <OPTION VALUE="女性">女性&nbsp;
            </select></font></td>
</tr>
<%
end if
if strMarStatus = "1" then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">婚姻状况:&nbsp;</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT  name="MarStatus" size="25" value="<% =ChkString(RS("M_MARSTATUS"), "display") %>"></font></td>
</tr>
<%
end if
if strOccupation = "1" then
%><tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">现任职业:&nbsp;</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT  name="Occupation" size="25" value="<% = ChkString(RS("M_OCCUPATION"), "display") %>"></font></td>
</tr>
<%
end if
if Request.Querystring("mode") = "goModify" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>"align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">文章总数:&nbsp;</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT  name="Posts" size="25" value="<% = ChkString(RS("M_POSTS"), "display") %>"></font></td>
</tr>
<%end if
strTxtSig = RS("M_SIG") %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right valign=top nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人签名:&nbsp;</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><textarea maxLength="255" name="Sig" cols="25" rows=4><% =Trim(cleancode(strTxtSig)) %></textarea></td>
</tr>
<%if Request.Form("Method_Type") = "Modify" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right valign=top nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">会员等级:&nbsp;</font></b></td>
<td bgColor="<% =strPopUpTableColor %>" valign=top>
<%if rs("M_NAME") = "Admin" then %>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">管理员</font>
<input type="hidden" value="3" name="Level">
<%else %>
        <SELECT value="1" name="Level">
<OPTION VALUE="1"<% if rs("M_LEVEL") = 1 then Response.Write(" selected") %>>一般会员
<OPTION VALUE="2"<% if rs("M_LEVEL") = 2 then Response.Write(" selected") %>>版主
<OPTION VALUE="3"<% if rs("M_LEVEL") = 3 then Response.Write(" selected") %>>管理员
</SELECT>
<%end if %>
</td>
</tr>
<%end if %>
<!--</table>
</td> -->
<%
if not(strUseExtendedProfile)  then
%>
 <tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">&nbsp;联系方法&nbsp;</font></b></td>
 </tr>
 <tr>
<td bgColor=<% =strPopUpTableColor %> align=right width="10%"" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT> 电子邮件:&nbsp;</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT  name="Email" size="25" value="<% = ChkString(RS("M_EMAIL"), "display") %>">
<INPUT type="hidden" name="Email2" value="<% =RS("M_EMAIL") %>"></font></td>
</tr>
<%if strICQ = "1" then%>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">ICQ号码:&nbsp;</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 width="10%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">YAHOO号码:&nbsp;</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 width="10%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">OICQ号码:&nbsp;</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 
end if
if (strHomepage + strFavLinks) > 0 and not(strUseExtendedProfile) then  %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">相关连接&nbsp;</font></b></td>
</tr>
<%if strHomepage = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人主页:&nbsp;</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Homepage" size="25" value="<% if RS("M_Homepage") <> " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(ChkString(RS("M_Homepage"), "display")) else Response.Write("http://") %>"></font></td>
</tr>
<%end if
if strFavLinks = "1" then
 strLINK1 = rs(M_LINK1)
 strLINK2 = rs(M_LINK2)
%>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">推荐连接:&nbsp;</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Link1" size="25" value="<% if strLINK1 <> " " and strLINK1 <> "http://" then Response.Write(ChkString(strLINK1, "display")) else Response.Write("http://") %>"></font></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">&nbsp;</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Link2" size="25" value="<% if strLINK2 <> " " and lcase(strLINK2) <> "http://" then Response.Write(ChkString(strLINK2, "display")) else Response.Write("http://") %>"></font></td>
</tr>
<%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="0">
  <tr>
    <td bgColor="<% =strPageBGColor %>" align=center nowrap <%= strColspan %>>
    <br>      
        <INPUT type="hidden" value="<% =Request.Form("MEMBER_ID") %>" name="MEMBER_ID">
        <INPUT type="submit" value="提 交" name=Submit1>
      </td>
  </tr>
<% else%>
  <tr>
    <td bgColor="<% =strPageBGColor %>" align=center nowrap <%= strColspan %>>
    <br>      
        <INPUT type="hidden" value="<% =Request.Form("MEMBER_ID") %>" name="MEMBER_ID">
        <INPUT type="submit" value="提 交" name=Submit1>
      </td>
  </tr>
<tr>
  <td bgColor="<% =strPageBGColor %>" align=center nowrap>
<% end if%>


⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -