📄 usercorp.asp
字号:
</td>
</tr>
<tr class="hback">
<td height="24" align="right">您现在所在的省份</td>
<td>
<input type="text" name="frm_Province" readonly="" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Province")) end if%>">
</td>
<td>
<select name="select111" size=1 onChange="javascript:frm_Province.value=this.options[this.selectedIndex].value">
<option value="">请选择</option>
<option value="四川">四川</option>
<option value="北京">北京</option>
<option value="上海">上海</option>
<option value="天津">天津</option>
<option value="重庆">重庆</option>
<option value="安徽">安徽</option>
<option value="甘肃">甘肃</option>
<option value="广东">广东</option>
<option value="广西">广西</option>
<option value="贵州">贵州</option>
<option value="福建">福建</option>
<option value="海南">海南</option>
<option value="河北">河北</option>
<option value="河南">河南</option>
<option value="黑龙江">黑龙江</option>
<option value="湖北">湖北</option>
<option value="湖南">湖南</option>
<option value="吉林">吉林</option>
<option value="江苏">江苏</option>
<option value="江西">江西</option>
<option value="辽宁">辽宁</option>
<option value="内蒙古">内蒙古</option>
<option value="宁夏">宁夏</option>
<option value="青海">青海</option>
<option value="山东">山东</option>
<option value="山西">山西</option>
<option value="陕西">陕西</option>
<option value="西藏">西藏</option>
<option value="新疆">新疆</option>
<option value="云南">云南</option>
<option value="浙江">浙江</option>
<option value="港澳台">港澳台</option>
<option value="海外">海外</option>
<option value="其它">其它</option>
</select>
</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">城市</div>
</td>
<td height="16">
<input name="frm_City" type="text" id="frm_City" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("City")) end if%>">
</td>
<td height="16">您现在所在的城市</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">联系地址</div>
</td>
<td height="16">
<input name="frm_Address" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Address")) end if%>">
</td>
<td height="16">您的联系地址</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">邮政编码</div>
</td>
<td height="16">
<input name="frm_PostCode" type="text" size="6" maxlength="6" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("PostCode")) end if%>">
</td>
<td height="16">邮政编码</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">头像地址</div>
</td>
<td height="16">
<input name="frm_HeadPic" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("HeadPic")) end if%>">
</td>
<td height="16">您的头像地址</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">头像尺寸</div>
</td>
<td height="16">
<input name="frm_HeadPicSize" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("HeadPicSize")) end if%>">
</td>
<td height="16">格式：[宽,高]如60,60 80,80 120,140</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">私人电话</div>
</td>
<td height="16">
<input name="frm_tel" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("tel")) end if%>">
</td>
<td height="16">您的电话</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">手机</div>
</td>
<td height="16">
<input name="frm_Mobile" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Mobile")) end if%>">
</td>
<td height="16">您的手机</td>
</tr>
<tr class="hback" id="tr_isMessage">
<td height="16">
<div align="right">短信验证手机</div>
</td>
<td height="16">
<input type="checkbox" name="frm_isMessage" value="1"<%if Bol_IsEdit then if GetUserDataObj_Rs("isMessage")=1 then response.Write(" checked") end if end if%>>
</td>
<td height="16">是否通过短信验证手机,并捆绑 如果选择是,需要通信网关</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">企业网站</div>
</td>
<td height="16">
<input name="frm_HomePage" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("HomePage")) end if%>">
</td>
<td height="16">您企业的网站</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">QQ</div>
</td>
<td height="16">
<input name="frm_QQ" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("QQ")) end if%>">
</td>
<td height="16">您常用的腾讯QQ号码</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">MSN</div>
</td>
<td height="16">
<input name="frm_MSN" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("MSN")) end if%>">
</td>
<td height="16">您常用的MSN帐户</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">您现在的职业</div>
</td>
<td height="16">
<input name="frm_Vocation" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Vocation")) end if%>">
</td>
<td height="16">您现在所从事的职业</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">积分</div>
</td>
<td height="16">
<input name="frm_Integral" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Integral")) end if%>" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')" onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
</td>
<td height="16"><a href="Integral.asp">[点这里查看详细积分管理]</a></td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">金币</div>
</td>
<td height="16">
<input name="frm_FS_Money" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("FS_Money")) end if%>" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')" onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
</td>
<td height="16">您的金币和当地金钱等价</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">临时登陆时间</div>
</td>
<td height="16">
<input name="frm_TempLastLoginTime" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("TempLastLoginTime")) end if%>">
</td>
<td height="16">记录某天内登陆的第一次登陆时间，以方便结算金钱</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">临时登陆时间</div>
</td>
<td height="16">
<input name="frm_TempLastLoginTime_1" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("TempLastLoginTime_1")) end if%>">
</td>
<td height="16">以方便记录积分</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">会员到期日期</div>
</td>
<td height="16">
<input name="frm_CloseTime" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("CloseTime")) else if request.QueryString("Act")<>"Search" then response.Write("3000-1-1") end if end if%>">
</td>
<td height="16">格式：2006-6-4,如果为3000-1-1,表示不过期</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">婚否</div>
</td>
<td height="16">
<select name="frm_IsMarray">
<%if request.QueryString("Act")="Search" then %>
<option>请选择</option>
<%end if%>
<option value="2"<%if Bol_IsEdit then if GetUserDataObj_Rs("IsMarray")=2 then response.Write(" selected") end if else if request.QueryString("Act")<>"Search" then response.Write(" selected") end if end if%>>未婚</option>
<option value="1"<%if Bol_IsEdit then if GetUserDataObj_Rs("IsMarray")=1 then response.Write(" selected") end if end if%>>已婚</option>
</select>
</td>
<td height="16"> </td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">自我介绍</div>
</td>
<td height="16">
<textarea name="frm_SelfIntro" cols="30" rows="6"><%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("SelfIntro")) end if%>
</textarea>
</td>
<td height="16">您的自我介绍</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">您的爱好</div>
</td>
<td height="16">
<input name="frm_UserFavor" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("UserFavor")) end if%>">
</td>
<td height="16">您的爱好</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">所属会员组</div>
</td>
<td height="16">
<select name="frm_GroupID">
<%if request.QueryString("Act")="Search" then %>
<option>请选择</option>
<%end if%>
<option value="0" style="color:#FF0000"<%if request.QueryString("Act")<>"Search" then response.Write(" selected") end if%>>不分组</option>
<%if Bol_IsEdit then
response.Write(Get_FildValue_List("select GroupID,GroupName from FS_ME_Group",GetUserDataObj_Rs("GroupID"),1))
else
response.Write(Get_FildValue_List("select GroupID,GroupName from FS_ME_Group","",1))
end if
%>
</select>
</td>
<td height="16"> </td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">是否开启资料</div>
</td>
<td height="16">
<input type="radio" name="frm_isOpen" value="0" <%if Bol_IsEdit then if GetUserDataObj_Rs("isOpen")=0 then response.Write("checked") end if end if%>>
关闭
<input type="radio" name="frm_isOpen" value="1" <%if Bol_IsEdit then if GetUserDataObj_Rs("isOpen")=1 then response.Write("checked") end if else if request.QueryString("Act")<>"Search" then response.Write("checked") end if end if%>>
开放 </td>
<td height="16">外人是否可见</td>
</tr>
<tr class="hback">
<td height="16">
<div align="right">是否锁定该用户</div>
</td>
<td height="16">
<input type="radio" name="frm_isLock" value="0" <%if Bol_IsEdit then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -