📄 user_userinfo.asp
字号:
<!--#include file="Inc/Const.asp"-->
<!--#include file="../Inc/Cl_Md5.asp"-->
<%
Header
select case request("action")
case "ShowInfo"
User_ShowInfo
case "SaveModifyInfo"
User_SaveModifyInfo
case else
User_ModifyInfo
end select
Footer
Sub User_ShowInfo()
Dim rsUser,UserIM
Set rsUser=Cl.Execute_U("Select * From "&Db.UserTable&" Where UserID="&Clng(Cl.UserID)&"")
if rsUser.Bof and rsUser.Eof then
Response.redirect "Logout.asp"
end if
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" class="border">
<tr class="title">
<td align="center" colspan="4"> <b>用户信息</b>(<%=Cl.MemberName%>)</td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户名称：</strong></td>
<td> <%=Cl.MemberName%> (ID:<font color="red"><%=Cl.UserID%></font>)</td>
<td colspan="2" rowspan="5" align="center"><img src="<%=Cl.ReplaceDir(rsUser(Db.UserFace)&"")%>" alt="" name="showuserface" width="80" height="90" border="0" id="showuserface" /></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>真实姓名：</strong></td>
<td> <%=rsUser(Db.UserReName)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户性别：</strong></td>
<td> <%=Cl.GetUserSex(RsUser(Db.UserSex))%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户等级：</strong></td>
<td> <font color="#0000ff"><%=Cl.User_Group.SelectSingleNode("@groupname").text%></font></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户<%=Cl.Web_Setting(28)%>：</strong></td>
<td> <font color="#ff0033"><b><%=Cl.User_Info(15)%></b></font> <%=Cl.Web_Setting(29)%>
<strong><%=Cl.Web_Setting(26)%>：</strong><font color="#ff0033"><b><%=Cl.User_Info(16)%></b></font> <%=Cl.Web_Setting(27)%>
</td>
</tr>
<%if UserTableType = "Bbsxp" Then
UserIM=Split(RsUser(Db.UserIM),"/")
%>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户邮箱：</strong></td>
<td> <%=Cl.User_Info(7)%></td>
<td width="100" height="25" align="right"><strong>用户主页：</strong></td>
<td> <%=Cl.Execute_U("Select "&Db.UserHomePage&" From [User] where Id="&Clng(Cl.UserID)&"")(0)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户QQ：</strong></td>
<td> <%=UserIM(0)%></td>
<td width="100" height="25" align="right"><strong>用户ICQ：</strong></td>
<td> <%=UserIM(1)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户MSN：</strong></td>
<td> <%=UserIM(4)%></td>
<td width="100" height="25" align="right"><strong>AIM号码：</strong></td>
<td> <%=UserIM(3)%></td>
</tr>
<tr class="tdbg" >
<td width="100" height="25" align="right"><strong>yahoo帐号：</strong></td>
<td> <%=UserIM(5)%>></td>
<td width="100" height="25" align="right"><strong>UC号码：</strong></td>
<td> <%=UserIM(2)%></td>
</tr>
<%Else
UserIM=Split(RsUser(Db.UserIM),"|||")
%>
<tr class="tdbg">
<td width="100" align="right" style="height: 24px"><strong>用户邮箱：</strong></td>
<td style="height: 24px"> <%=Cl.User_Info(7)%></td>
<td width="100" align="right" style="height: 24px"><strong>用户主页：</strong></td>
<td style="height: 24px"> <%=UserIM(0)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户QQ：</strong></td>
<td> <%=UserIM(1)%></td>
<td width="100" height="25" align="right"><strong>用户ICQ：</strong></td>
<td> <%=UserIM(2)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户MSN：</strong></td>
<td> <%=UserIM(3)%></td>
<td width="100" height="25" align="right"><strong>AIM号码：</strong></td>
<td> <%=UserIM(4)%></td>
</tr>
<tr class="tdbg" >
<td width="100" height="25" align="right"><strong>yahoo帐号：</strong></td>
<td> <%=UserIM(5)%></td>
<td width="100" height="25" align="right"><strong>UC号码：</strong></td>
<td> <%=UserIM(6)%></td>
</tr>
<%end if%>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>国家/省/市：</strong></td>
<td colspan="3"> <%=Replace(rsUser(Db.CityInfo)&"","|||","/")%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>身份证号：</strong></td>
<td> <%=rsUser(Db.IDCard)%></td>
<td width="100" height="25" align="right"><strong>出生日期：</strong></td>
<td> <%=rsUser(Db.UserBirthDay)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>教育程度：</strong></td>
<td> <%=rsUser(Db.SchoolAge)%></td>
<td width="100" height="25" align="right"><strong>工作单位：</strong></td>
<td> <%=rsUser(Db.UserWorking)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>住宅电话：</strong></td>
<td> <%=rsUser(Db.UserHomePhone)%></td>
<td width="100" height="25" align="right"><strong>手机号码：</strong></td>
<td> <%=rsUser(Db.UserMobile)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>办公电话：</strong></td>
<td> <%=rsUser(Db.UserTelePhone)%></td>
<td width="100" height="25" align="right"><strong>邮政编码：</strong></td>
<td> <%=rsUser(Db.ZipCode)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>联系地址：</strong></td>
<td colspan="3"> <%=rsUser(Db.UserAddRess)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>注册时间：</strong></td>
<td> <%=Cl.Format_Time(rsUser(Db.UserJoinDate),1)%></td>
<td width="100" height="25" align="right"><strong>最后登录：</strong></td>
<td> <%=Cl.Format_Time(rsUser(Db.UserLastLogin),1)%></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>备注：</strong></td>
<td colspan="3"> <%=rsUser(Db.UserReMark)%></td>
</tr>
<tr align="center" class="tdbg" >
<td height="25" colspan="4">
<input type="button" value=" 我要修改资料 " onclick="window.location.href='User_UserInfo.asp'" style="cursor:hand;" /></td>
</tr>
</table>
<%
Set rsUser=Nothing
End Sub
Sub User_ModifyInfo()
Dim rsUser,UserIM
Set rsUser=Cl.Execute_U("Select * From "&Db.UserTable&" Where "&Db.UserID&"="&Clng(Cl.UserID)&"")
if rsUser.Bof and rsUser.Eof then
Response.redirect "Logout.asp"
end if
Dim sCityInfo
sCityInfo=Split(rsUser(Db.CityInfo)&"||||||","|||")
%>
<script language="JavaScript" src="../Inc/Js/selectcity.js" type="text/javascript"></script>
<table width="100%" border="0" cellpadding="0" cellspacing="1" align="center" class="Border">
<tr class="title">
<td height="25" align="center" colspan="4"><strong>修改用户信息</strong></td>
</tr>
<form action="User_UserInfo.asp?Action=SaveModifyInfo" method="post" name="Modify" id="Modify" onSubmit="return CheckModify();">
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户名称：</strong></td>
<td> <b><%=Cl.MemberName%></b> (ID:<font color="red"><%=Cl.UserID%></font>)</td>
<td colspan="2" rowspan="6" align="center"><img src="<%=Cl.ReplaceDir(rsUser(Db.UserFace)&"")%>" alt="" name="showuserface" width="80" height="90" border="0" id="showuserface" /></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户身份：</strong></td>
<td> <font color="blue"><b><%=Cl.User_Group.SelectSingleNode("@groupname").text%></b></font>
<!--<input name="UserGroupID" type="text" size="30" value="<%=Cl.User_Group.SelectSingleNode("@groupname").text%>" disabled="disabled" />--></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户<%=Cl.Web_Setting(28)%>：</strong></td>
<td><font color="red"><b><%=Cl.User_Info(15)%></b></font><%=Cl.Web_Setting(29)%>
<strong><%=Cl.Web_Setting(26)%>：</strong><font color="red"><b><%=Cl.User_Info(16)%></b></font><%=Cl.Web_Setting(27)%>
</td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户性别：</strong></td>
<td height="25"> <input type="radio" value="1" name="sex" <%if RsUser(Db.UserSex)="1" then%>checked="checked"<%end if%> /> 男
<input type="radio" value="0" name="sex" <%if RsUser(Db.UserSex)<>"1" then%>checked="checked"<%end if%> /> 女</td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>真实姓名：</strong></td>
<td> <input name="UserReName" type="text" size="30" value="<%=rsUser(Db.UserReName)%>" /></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>用户密码：</strong></td>
<td> <input type="password" name="OldPassword" value="" size="15" maxlength="12" /> <font color="blue">* 输入当前密码</font></td>
</tr>
<tr class="tdbg">
<td width="100" height="25" align="right"><strong>新 密 码：</strong></td>
<td><input type="password" name="Password" value="" size="15" maxlength="12" /> <font color="red">(不修改请留空)</font></td>
<td width="100" height="25" align="right"><strong>头像选择：</strong></td>
<td> <select name="tUserFace" onchange="changeimage(this.options[this.selectedIndex].value)">
<option value="01">01.GIF</option>
<option value="02">02.GIF</option>
<option value="03">03.GIF</option>
<option value="04">04.GIF</option>
<option value="05">05.GIF</option>
<option value="06">06.GIF</option>
<option value="07">07.GIF</option>
<option value="08">08.GIF</option>
<option value="09">09.GIF</option>
<option value="10">10.GIF</option>
<option value="11">11.GIF</option>
<option value="12">12.GIF</option>
<option value="13">13.GIF</option>
<option value="14">14.GIF</option>
<option value="15">15.GIF</option>
<option value="16">16.GIF</option>
<option value="17">17.GIF</option>
<option value="18">18.GIF</option>
<option value="19">19.GIF</option>
<option value="20">20.GIF</option>
<option value="21">21.GIF</option>
<option value="22">22.GIF</option>
<option value="23">23.GIF</option>
</select>
宽度：<input type="text" name="FaceWidth" value="<%=rsUser(Db.UserFaceWidth)%>" size="3" maxlength="3" />
高度：<input type="text" name="FaceHeight" value="<%=rsUser(Db.UserFaceHeight)%>" size="3" maxlength="3" />
</td>
</tr>
<tr class="tdbg">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -