📄 user3.asp
字号:
<!--#include file="../include/dbopenbd.asp"-->
<!--#include file="checkadmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
<script language=javascript>
<!--
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
-->
</script>
</head>
<BODY background="../images/admin/back.gif">
<%
action=request("action")
id=request("id")
if action="save" then call save()
'修改会员资料
set rs=conn.execute("select * from s_buser where UserId='"&id&"'")
if rs.eof and rs.bof then mGoBack "出错了，没有此用户。"
Memo=rs("Memo")
Memo2=rs("Memo2")
%>
<table width="98%" border="1"style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<form name="myinfo" action="user3.asp?action=save" method="post">
<tr><td colspan=2 class=td height=25>查看/编辑会员资料 </td></tr>
<tr><td width='20%' align=right height=25>会员ID </td>
<td><%=id%></td>
</tr>
<tr><td width='20%' align=right height=25>注册时间 </td>
<td><%=rs("SignDate")%></td>
</tr>
<tr><td width='20%' align=right height=25>上次登陆时间 </td>
<td><%=rs("lastlogin")%></td>
</tr>
<tr><td width='20%' align=right height=25>上次登陆IP </td>
<td><%=rs("IP")%></td>
</tr>
<tr><td width='20%' align=right height=25>登陆次数 </td>
<td><%=rs("totallogin")%> 次</td>
</tr>
<tr><td align=right height=25>消费总金额 </td>
<td><input type="text" name="totalsum" value="<%if rs("totalsum")<>"" then response.write formatnum(rs("totalsum"),2)%>" maxlength=8> <img src=../images/admin/memo.gif alt="订单完成后，会自动追加金额<br>管理员亦可手工修改此处金额"> </td></tr>
<tr><td align=right height=25>会员密码 </td>
<td><input type="text" name="Userpassword" value="" maxlength="16">
<img src=../images/admin/memo.gif alt="若不修改密码，请空出">
</td></TR>
<tr><td width='20%' align=right height=25>真实姓名 </td>
<td><input type="text" name="Username" value="<%=rs("UserName")%>" maxlength="16"></td>
</tr>
<tr><td align=right height=25>电子邮箱 </td>
<td><input type="text" name="UserMail" value="<%=rs("UserMail")%>" maxlength="100">
<a href='sendmail.asp?<%=rs("UserMail")%>'><img alt='发邮件' border=0 src='../images/small/e-mail.gif'></a>
</td></tr>
<tr><td align=right height=25>联系地址 </td>
<td><input type="text" name="Address" value="<%=rs("Address")%>" maxlength="100"></td>
</tr>
<tr><td align=right height=25>邮政编码 </td>
<td><input type="text" name="ZipCode" value="<%=rs("ZipCode")%>" maxlength="8"></td>
</tr>
<tr><td align=right height=25>联系电话 </td>
<td><input type="text" name="HomePhone" value="<%=rs("HomePhone")%>" maxlength="20"></td>
</tr>
<tr><td align=right height=25>移动电话 </td>
<td><input type="text" name="CompPhone" value="<%=rs("CompPhone")%>" maxlength="20"></td>
</tr>
<tr><td align=right height=25>腾讯ＱＱ </td>
<td><input type="text" name="UserQQ" value="<%=rs("UserQQ")%>" maxlength="11">
</td></tr>
<tr><td align=right height=25>ICQ号 </td>
<td><input type="text" name="UserICQ" value="<%=rs("UserICQ")%>" maxlength="15"></td>
</tr>
<tr><td align=right height=25>MSN号 </td>
<td><input type="text" name="UserMSN" value="<%=rs("UserMSN")%>" maxlength="100"></td>
</tr>
<tr><td align=right height=25>国家 </td>
<td><input type="text" name="Country" value="<%=rs("Country")%>"></td>
</tr>
<tr><td align=right height=25>省份 </td>
<td><input type="text" name="Province" value="<%=rs("Province")%>"></td>
</tr>
<tr><td align=right height=25>城市 </td>
<td><input type="text" name="City" value="<%=rs("City")%>"></td>
</tr>
<tr><td align=right height=25>性别 </td>
<td><input name="Sex" type="radio" value="1" <%if rs("Sex")="1" then response.write "checked"%>>帅哥
<input type="radio" name="Sex" value="0" <%if rs("Sex")="0" then response.write "checked"%>>靓妹
</td></tr>
<tr><td align=right height=25>生日 </td>
<td><input type="text" name="Birthday" value="<%=rs("Birthday")%>"></td>
</tr>
<tr><td align=right height=25>个人说明 </td>
<td><TEXTAREA style="overflow:auto;" type="text" name="Memo" ROWS="3" COLS="40"><%=Memo%></TEXTAREA></td>
</tr>
<tr><td align=right height=25>管理附言 </td>
<td><TEXTAREA style="overflow:auto;background-color: #FFFFCC;" type="text" name="Memo2" ROWS="3" COLS="40"><%=Memo2%></TEXTAREA>
<img src=../images/admin/memo.gif alt="管理员此处添加的信息<br>会员只能查看不能修改<br>此信息在会员的个人资料页中滚动提示"> </td></tr>
<tr><td align=right height=25>会员状态 </td>
<td>
<input name="Status" type="radio" value="1" <%if rs("Status")="1" then%>checked<%end if%>>正常/通过审核
<input name="Status" type="radio" value="0" <%if rs("Status")<>"1" then%>checked<%end if%>>锁定/未审核
</tr>
<tr><td colspan=2>
<input name="id" type="hidden" value="<%=id%>">
<input type="submit" name="Submit" value="确认修改">
<input alt='给此会员发送站内消息' type="button" value="发送站内消息" onClick="javascript:location.href='hand2.asp?back=user&name=<%=rs("UserId")%>';" >
</td></tr>
</form>
</table>
<%
set rs=nothing
%>
</body>
</html>
<%
sub save()
'保存会员资料
sql = "select * from s_buser where UserId='"&id&"'"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
mGoBack "出错了，没有此会员。"
rs.close
set rs=nothing
end if
rs("Usertype") = request("usertype")
rs("userkou") = request("usertype")
rs("Username") = trim(request("Username"))
rs("Sex") = request("Sex")
if trim(request("totalsum"))<>"" then rs("totalsum")= trim(request("totalsum"))
rs("UserQQ") = trim(request("UserQQ"))
rs("UserICQ") = trim(request("UserICQ"))
rs("UserMSN") = trim(request("UserMSN"))
rs("Birthday") = trim(request("Birthday"))
rs("HomePhone")= trim(request("HomePhone"))
rs("CompPhone") = trim(request("CompPhone"))
rs("UserMail") = trim(request("UserMail"))
rs("Country") = trim(request("Country"))
rs("Province") = trim(request("Province"))
rs("City") = trim(request("City"))
rs("Address") = trim(request("Address"))
rs("ZipCode") = trim(request("ZipCode"))
rs("Memo") = request("Memo")
rs("Memo2") = request("Memo2")
rs("Status") = request("Status")
if trim(request("Userpassword"))<>"" then rs("Userpassword")=md5(trim(request("Userpassword")))
rs.update
rs.close
set rs = nothing
mGoTo "user3.asp?id="&id,"操作成功，会员资料已保存！"
end sub
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -