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

📄 inc_profile.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<OPTION VALUE="俄罗斯">俄罗斯
<OPTION VALUE="卢旺达">卢旺达
<OPTION VALUE="圣卢西亚岛">圣卢西亚岛
<OPTION VALUE="沙特阿拉伯">沙特阿拉伯
<OPTION VALUE="塞内加尔">塞内加尔
<OPTION VALUE="塞舌尔">塞舌尔
<OPTION VALUE="塞拉利昂">塞拉利昂
<OPTION VALUE="新加坡">新加坡
<OPTION VALUE="斯洛伐克">斯洛伐克
<OPTION VALUE="斯洛文尼亚">斯洛文尼亚
<OPTION VALUE="所罗门">所罗门
<OPTION VALUE="索马里">索马里
<OPTION VALUE="南非">南非
<OPTION VALUE="西班牙">西班牙
<OPTION VALUE="斯里兰卡">斯里兰卡
<OPTION VALUE="苏丹">苏丹
<OPTION VALUE="斯威士兰">斯威士兰
<OPTION VALUE="瑞典">瑞典
<OPTION VALUE="瑞士">瑞士
<OPTION VALUE="叙利亚">叙利亚
<OPTION VALUE="中国" selected>中国
<OPTION VALUE="中国 北京">中国 北京
<OPTION VALUE="中国 广东">中国 广东
<OPTION VALUE="中国 上海">中国 上海
<OPTION VALUE="中国 新疆">中国 新疆
<OPTION VALUE="中国 辽宁">中国 辽宁
<OPTION VALUE="中国 广西">中国 广西
<OPTION VALUE="中国 海南">中国 海南
<OPTION VALUE="中国 湖南">中国 湖南
<OPTION VALUE="中国 甘肃">中国 甘肃
<OPTION VALUE="中国 河北">中国 河北
<OPTION VALUE="中国 湖北">中国 湖北
<OPTION VALUE="中国 江西">中国 江西
<OPTION VALUE="中国 江苏">中国 江苏
<OPTION VALUE="中国 西藏">中国 西藏
<OPTION VALUE="中国 山东">中国 山东
<OPTION VALUE="中国 浙江">中国 浙江
<OPTION VALUE="中国 安徽">中国 安徽
<OPTION VALUE="中国 福建">中国 福建
<OPTION VALUE="中国 吉林">中国 吉林
<OPTION VALUE="中国 山西">中国 山西
<OPTION VALUE="中国 云南">中国 云南
<OPTION VALUE="中国 贵州">中国 贵州
<OPTION VALUE="中国 四川">中国 四川
<OPTION VALUE="中国 陕西">中国 陕西
<OPTION VALUE="中国 重庆">中国 重庆
<OPTION VALUE="中国 天津">中国 天津
<OPTION VALUE="中国 河南">中国 河南
<OPTION VALUE="中国 青海">中国 青海
<OPTION VALUE="中国 宁夏">中国 宁夏
<OPTION VALUE="中国 台湾">中国 台湾
<OPTION VALUE="中国 香港">中国 香港
<OPTION VALUE="中国 澳门">中国 澳门
<OPTION VALUE="中国 其它">中国 其它
<OPTION VALUE="塔吉克斯坦">塔吉克斯坦
<OPTION VALUE="坦桑尼亚">坦桑尼亚
<OPTION VALUE="泰国">泰国
<OPTION VALUE="多哥">多哥
<OPTION VALUE="汤加">汤加
<OPTION VALUE="特立尼达和多巴哥">特立尼达和多巴哥
<OPTION VALUE="突尼斯">突尼斯
<OPTION VALUE="土库曼斯坦">土库曼斯坦
<OPTION VALUE="土耳其">土耳其
<OPTION VALUE="图瓦卢">图瓦卢
<OPTION VALUE="美国">美国
<OPTION VALUE="乌干达">乌干达
<OPTION VALUE="乌克兰">乌克兰
<OPTION VALUE="英国">英国
<OPTION VALUE="乌拉圭">乌拉圭
<OPTION VALUE="乌兹别克斯坦">乌兹别克斯坦
<OPTION VALUE="瓦努阿图">瓦努阿图
<OPTION VALUE="梵蒂冈">梵蒂冈
<OPTION VALUE="委内瑞拉">委内瑞拉
<OPTION VALUE="越南">越南
<OPTION VALUE="维尔津群岛">维尔津群岛
<OPTION VALUE="瓦利斯、富图纳群岛">瓦利斯、富图纳群岛
<OPTION VALUE="萨哈拉">萨哈拉
<OPTION VALUE="西萨摩亚">西萨摩亚
<OPTION VALUE="也门">也门
<OPTION VALUE="赞比亚">赞比亚
<OPTION VALUE="津巴布韦">津巴布韦
</select></font></td>
</tr>
<%end if
if strAge = "1" then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">年&nbsp;&nbsp;&nbsp;&nbsp;龄：</font></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><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">性&nbsp;&nbsp;&nbsp;&nbsp;别：</font></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><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">婚姻状况：</font></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><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">现任职业：</font></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><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">发表总数：</font></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><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人签名：</font></td>
<td bgColor="<% =strPopUpTableColor %>"><textarea maxLength="255" name="Sig" cols="42" rows=5><% =Trim(cleancode(strTxtSig)) %></textarea></td>
</tr>
<%if Request.Form("Method_Type") = "Modify" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right valign=top nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">会员等级：</font></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>
<% '####################################File Attachment ######################### %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right valign=top nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">附加文件：</font></b></td>
<td bgColor="<% =strPopUpTableColor %>" valign=top>
<input type="checkbox" name="allowDownloads" value="1"<% if rs("M_ALLOWDOWNLOADS") = 1 then Response.Write(" checked") end if%> > <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">允许下载</font><br>
<input type="checkbox" name="allowUploads" value="1"<% if rs("M_ALLOWUPLOADS") = 1 then Response.Write(" checked") end if%> > <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">允许上传</font>
</td>
</tr>
<% '####################################File Attachment ######################### %>
<%end if
if not(strUseExtendedProfile)  then
%>
 <tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">&nbsp;联系方法</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="<% = 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号码：</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号码：</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号码：</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">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">相关连结</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 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%""><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">推荐连结：</font></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%""><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"></font></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>
<% end if%>
</table>
123

⌨️ 快捷键说明

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