📄 admin_xguser.asp
字号:
<!-- #include file="conn.asp"-->
<!-- #Include File=../md5.asp -->
<%
set rs=server.CreateObject("ADODB.recordset")
rs.open "index",conn,3,3
name=rs("name")
rs.close
set rs=nothing
%>
<title><%=name%>购物--管理系统</title>
<link rel="stylesheet" href="style.css" type="text/css">
<meta NAME=GENERATOR Content=""Microsoft FrontPage 4.0"" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
if request("action")="xg" then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
response.end
end if
set rs=server.CreateObject("ADODB.recordset")
sql="select * from customers where id="&request("id")
rs.open sql,conn,3,3
if rs.eof and rs.bof then
response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
response.end
else
rs("name")=request("name")
if request("pwd")<>"" then
rs("pwd")=MD5(request("pwd"))
end if
rs("que")=request("que")
rs("ans")=request("ans")
rs("email")=request("email")
rs("typed")=request("typed")
rs("custname")=request("custname")
rs("contact")=request("contact")
rs("sex")=request("sex")
rs("prov")=request("prov")
rs("city")=request("city")
rs("district")=request("district")
rs("address")=request("address")
rs("postcode")=request("postcode")
rs("tel")=request("tel")
rs("fax")=request("fax")
rs("zhekou")=request("zhekou")
rs("qita")=request("qita")
rs.update
response.write "<script language=JavaScript>{window.alert('会员信息修改成功！');window.location='admin_xguser.asp?id="&request("id")&"'}</script>"
response.end
rs.close
set rs=nothing
end if
end if
%>
<br>
<%
set rs=server.CreateObject("ADODB.recordset")
if request("id")="" then
sql="select * from customers where bianhao='"&request("bianhao")&"'"
else
sql="select * from customers where id="&request("id")
end if
rs.open sql,conn,3,3
if rs.eof and rs.bof then
response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
response.end
else
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" class="tableBorder">
<form action="admin_xguser.asp?action=xg" method="post">
<tr>
<th width="100%" colspan="2" height="25">会员信息管理</th>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">会员编号</td>
<td width="70%" height="25" class="forumrow"><font color="#ff0000"><%=rs("bianhao")%></font></td>
<input type="hidden" name="id" value="<%=rs("id")%>">
</tr>
<tr>
<td width="30%" height="25" class="forumrow">用户名称</td>
<td width="70%" height="25" class="forumrow">
<input name="name" size="40" value="<%=rs("name")%>" maxlength="20">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">用户密码</td>
<td width="70%" class="forumrow">
<input type="password" name="pwd" size="40" maxlength="10">
不改密码请为空！
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">密码提问</td>
<td width="70%" class="forumrow">
<input name="que" size="40" value="<%=rs("que")%>" maxlength="20">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">密码答案</td>
<td width="70%" class="forumrow">
<input name="ans" size="40" value="<%=rs("ans")%>" maxlength="20">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">电子邮件</td>
<td width="70%" class="forumrow">
<input name="email" size="40" value="<%=rs("email")%>" maxlength="30">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">客户类型</td>
<td width="70%" class="forumrow">
<select name="typed">
<option value="家庭用户" <%if rs("typed")="家庭用户" then%>selected<%end if%>>家庭用户</option>
<option value="技术用户" <%if rs("typed")="技术用户" then%>selected<%end if%>>技术用户</option>
<option value="私企外企" <%if rs("typed")="私企外企" then%>selected<%end if%>>私企外企</option>
<option value="政府国企" <%if rs("typed")="政府国企" then%>selected<%end if%>>政府国企</option>
<option value="教育科研" <%if rs("typed")="教育科研" then%>selected<%end if%>>教育科研</option>
<option value="其他" <%if rs("typed")="其他" then%>selected<%end if%>>其他</option>
</select>
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">真实姓名</td>
<td width="70%" class="forumrow">
<input name="custname" size="40" value="<%=rs("custname")%>" maxlength="30">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">联 系 人</td>
<td width="70%" class="forumrow">
<input name="contact" size="40" value="<%=rs("contact")%>" maxlength="30">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">性 别</td>
<td width="70%" class="forumrow">
<input type="radio" name="sex" value="男" <%if rs("sex")="男" then%>checked<%end if%> id="1"><label for="1">男</label>
<input type="radio" name="sex" value="女" <%if rs("sex")="女" then%>checked<%end if%> id="2"><label for="2">女</label>
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">省 份</td>
<td width="70%" class="forumrow">
<input name="prov" size="40" value="<%=rs("prov")%>" maxlength="10">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">城 市</td>
<td width="70%" class="forumrow">
<input name="city" size="40" value="<%=rs("city")%>" maxlength="10">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">区</td>
<td width="70%" class="forumrow">
<input name="district" size="40" value="<%=rs("district")%>" maxlength="20">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">联系地址</td>
<td width="70%" class="forumrow">
<input name="address" size="40" value="<%=rs("address")%>" maxlength="50">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">邮 编</td>
<td width="70%" class="forumrow">
<input name="postcode" size="40" value="<%=rs("postcode")%>" maxlength="10">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">联系电话</td>
<td width="70%" class="forumrow">
<input name="tel" size="40" value="<%=rs("tel")%>" maxlength="50">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">传 真</td>
<td width="70%" class="forumrow">
<input name="fax" size="40" value="<%=rs("fax")%>" maxlength="50">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">折 扣</td>
<td width="70%" class="forumrow">
<input name="zhekou" size="40" value="<%=rs("zhekou")%>" maxlength="10">
</td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">登陆次数</td>
<td width="70%" class="forumrow"><%=rs("hits")%></td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">注册时间</td>
<td width="70%" class="forumrow"><%=rs("zctime")%></td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">最后登陆时间</td>
<td width="70%" class="forumrow"><%=rs("lasttime")%></td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">已下订单数</td>
<%
set rs1=server.CreateObject("ADODB.recordset")
sql="select * from orders where khbh='"&rs("bianhao")&"'"
rs1.open sql,conn,3,3
count=rs1.recordcount
rs1.close
set rs1=nothing
%>
<td width="70%" class="forumrow"><a href="admin_dingdan.asp?mode=1&xxx=2&search=<%=rs("bianhao")%>"><%=count%>笔订单</a></td>
</tr>
<tr>
<td width="30%" height="25" class="forumrow">备 注</td>
<td width="70%" class="forumrow">
<textarea name="qita" cols="40" rows="5"><%=rs("qita")%></textarea>
</td>
</tr>
<tr>
<td height="15" colspan="2" class="forumrow">
<input type="submit" style="CURSOR:hand" value="修 改">
</td>
</tr>
</form>
</table><br>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -