📄 equser.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="chk.asp"--> <%
if session("rank")>1 then
call Msgbox("你的权限不够！","Back","None")
response.End
end if%>
<%
if NOT isempty(request("SaveEditSubmit")) then
dim UserID
UserID=request.QueryString("id")
if UserID="" then UserID=request("UserID")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [user] where UserID="&UserID,conn,1,3
if trim(request("UserPassword"))<>"" then rs("UserPassword")=md5(trim(request("UserPassword")))
rs("realname")=trim(request("realname"))
rs("identify")=trim(request("identify"))
rs("mobile")=trim(request("mobile"))
rs("QQ")=trim(request("QQ"))
rs("UserEmail")=trim(request("UserEmail"))
rs("UserQuestion")=trim(request("UserQuestion"))
if trim(request("UserAnswer"))<>"" then rs("UserAnswer")=md5(trim(request("UserAnswer")))
rs("UserSex")=request("UserSex")
rs("city")=trim(request("city"))
rs("address")=trim(request("address"))
rs("postcode")=trim(request("postcode"))
rs("usertel")=trim(request("usertel"))
rs("score")=trim(request("score"))
rs("book")=trim(request("book"))
rs("vip")=trim(request("vip"))
rs.Update
rs.Close
set rs=nothing
call MsgBox("操作成功!","None","None")
end if%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>E书部落—网上书城</title>
<link href="../style.css" rel="stylesheet" type="text/css"></head>
<body>
<!--#include file="head.htm"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="218" align="left" valign="top" style="border-left: 1px dotted #65A8CF; border-top: 1px dotted #65A8CF; border-bottom: 1px dotted #65A8CF"><br>
<!--#include file="menu.htm"-->
<br></td><td width="560" align="left" valign="top" style="border-left: 1px dotted #65A8CF; border-right:1px dotted #65A8CF; border-top: 1px dotted #65A8CF; border-bottom: 1px dotted #65A8CF">
<br> <table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="../images/w.gif" width="18" height="18"></td>
<td style="color:#415373">用户详细资料</td>
</tr>
</table> <%dim vipuser
UserID=request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open "select * from [user] where UserID="&UserID ,conn,1,1
if rs("vip") = true then
vipuser="VIP会员"
else
vipuser="普通会员"
end if
%> <br> <form name="form1" method="post" action="equser.asp?id=<%=UserID%>">
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr >
<td width="20%"> 用户名称：</td>
<td width="80%"> <font color=#FF0000><%=trim(rs("UserName"))%></font></td>
</tr>
<tr >
<td> 登录密码：</td>
<td>
<input name="UserPassword" type="text" id="UserPassword2" size="12">
不改密码请为空!</td>
</tr>
<tr >
<td> 真实姓名：</td>
<td>
<input name="realname" type="text" id="realname" size="12" value=<%=trim(rs("realname"))%>>
</td>
</tr>
<tr >
<td> 身份证号码</td>
<td>
<INPUT NAME="identify" TYPE="text" ID="identify" SIZE="18" VALUE=<%=trim(rs("identify"))%>></td>
</tr>
<tr >
<td> 电子邮件：</td>
<td>
<input name="UserEmail" type="text" id="UserEmail" value=<%=trim(rs("UserEmail"))%>>
</td>
</tr>
<tr >
<td> 手机号码：</td>
<td>
<INPUT NAME="mobile" TYPE="text" ID="mobile" SIZE="15" VALUE=<%=trim(rs("mobile"))%>></td>
</tr>
<tr >
<td> 腾 讯 Q Q：</td>
<td>
<INPUT NAME="QQ" TYPE="text" ID="QQ" SIZE="15" VALUE=<%=trim(rs("QQ"))%>></td>
</tr>
<tr >
<td> 密码提问：</td>
<td>
<input name="UserQuestion" type="text" id="UserQuestion" value=<%=trim(rs("UserQuestion"))%>>
</td>
</tr>
<tr >
<td> 密码答案：</td>
<td>
<input name="UserAnswer" type="text" id="UserAnswer">
</td>
</tr>
<tr >
<td> 收货人姓名：</td>
<td>
<input name="recipient" type="text" id="recipient" size="12" value=<%=trim(rs("recipient"))%>>
</td>
</tr>
<tr >
<td> 收货人性别：</td>
<td>
<%if rs("UserSex")=0 then%>
<input type="radio" name="UserSex" value="1"> 男
<input name="UserSex" type="radio" value="0" checked> 女
<%else%>
<input type="radio" name="UserSex" value="1" checked> 男
<input name="UserSex" type="radio" value="0" > 女
<%end if%>
</td>
</tr>
<tr >
<td> 收货人省/市：</td>
<td>
<input name="city" type="text" id="city" size="12" value=<%=trim(rs("city"))%>>
</td>
</tr>
<tr >
<td> 收货地址：</td>
<td>
<input name="address" type="text" id="address" size="30" value=<%=trim(rs("address"))%>>
</td>
</tr>
<tr >
<td> 邮编：</td>
<td>
<input name="postcode" type="text" id="postcode" size="12" value=<%=rs("postcode")%>>
</td>
</tr>
<tr >
<td> 电话：</td>
<td>
<input name="usertel" type="text" id="usertel" size="12" value=<%=trim(rs("usertel"))%>>
</td>
</tr>
<tr height="20">
<td > 送货方式：</td>
<td >
<%
dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select subject from deliver where method=0 and deliveridorder="&rs("delivermethod"),conn,1,1
if rs2.recordcount=0 then
response.write "没有此送货方式！"
else
response.write rs2("subject")
end if
rs2.close
%>
</td>
</tr>
<tr height="20">
<td> 支付方式：</td>
<td>
<%
rs2.open "select subject from deliver where method=1 and deliveridorder="&rs("paymethod"),conn,1,1
if rs2.recordcount=0 then
response.write "没有此支付方式！"
else
response.write rs2("subject")
end if
set rs2=nothing
%>
</td>
</tr>
<tr >
<td> 用户积分：</td>
<td>
<INPUT NAME="score" TYPE="text" ID="usertel" SIZE="12" VALUE=<%=trim(rs("score"))%>> </td>
</tr>
<tr >
<td> 会员级别</td>
<td bgcolor="#FFFFFFFF"> <input name="vip" type="radio" value="true" <%if vipuser="VIP会员" then response.write "checked"%>>
VIP会员 <input type="radio" name="vip" value="false" <%if vipuser="普通会员" then response.write "checked"%>>
普通会员</td>
</tr>
<tr height="20">
<td> 注册时间：</td>
<td> <%=rs("JoinDate")%></td>
</tr>
<tr height="20">
<td> 上次登录时间：</td>
<td> <%=rs("LastLogin")%></td>
</tr>
<tr height="20">
<td> 登录次数：</td>
<td> <%=rs("Userlogins")%>次</td>
</tr>
<tr height="20">
<td> 已下订单数：</td>
<td>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select distinct(goods) from orders where UserName='"&trim(rs("UserName"))&"' ",conn,1,1
response.write rs2.recordcount&" 笔订单"
rs2.close
set rs2=nothing
%> </td>
</tr>
<tr >
<td valign="top"> 系统广播</td>
<td>
<TEXTAREA NAME="book" ID="book" COLS="50" ROWS="5"><%=trim(rs("book"))%></TEXTAREA></td>
</tr>
<tr >
<td height="28" colspan="2"> 查找此用户的所有定单：
<select name="state" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<base target=Right>
<option value="" selected>--选择查询状态--</option>
<option value="porder.asp?state=0&namekey=<%=trim(rs("UserName"))%>" >全部订单状态</option>
<option value="porder.asp?state=1&namekey=<%=trim(rs("UserName"))%>" >未作任何处理</option>
<option value="porder.asp?state=2&namekey=<%=trim(rs("UserName"))%>" >用户已经划出款</option>
<option value="porder.asp?state=3&namekey=<%=trim(rs("UserName"))%>" >服务商已经收到款</option>
<option value="porder.asp?state=4&namekey=<%=trim(rs("UserName"))%>" >服务商已经发货</option>
<option value="porder.asp?state=5&namekey=<%=trim(rs("UserName"))%>" >用户已经收到货</option>
</select>
</td>
</tr>
<%rs.close
set rs=nothing
conn.close
%>
<tr>
<td height="28" colspan="2" align="center"><input name="SaveEditSubmit" type="submit" id="SaveEditSubmit" value="确认提交">
<input type="button" name="Submit2" value="返回上一页" onClick='javascript:history.go(-1)'>
</td>
</tr>
</table>
</form> <br>
</td>
</tr>
</table>
<!--#include file="foot.htm"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -