📄 b2b_userinfo.asp
字号:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('1');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('1');history.go(-1);</script>"
response.End
end if
end if
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<script language=JavaScript>
<%dim sql,i,j
set rs_s=server.createobject("adodb.recordset")
sql="select * from welcomeshengbuy order by shengorder"
rs_s.open sql,conn,1,1
%>
var selects=[];
selects['xxx']=new Array(new Option('请选择城市……','xxx'));
<%
for i=1 to rs_s.recordcount
%>
selects['<%=rs_s("ShengNo")%>']=new Array(
<%
set rs_s1=server.createobject("adodb.recordset")
sql="select * from welcomeshibuy where shengid="&rs_s("id")&" order by shiorder"
rs_s1.open sql,conn,1,1
if rs_s1.recordcount>0 then
for j=1 to rs_s1.recordcount
if j=rs_s1.recordcount then
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'));
<% else
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'),
<%
end if
rs_s1.movenext
next
else
%>
new Option('','0'));
<%
end if
rs_s1.close
set rs_s1=nothing
rs_s.movenext
next
rs_s.close
set rs_s=nothing
%>
function chsel(){
with (document.form1){
if(welcomeshengbuy.value) {
welcomeshibuy.options.length=0;
for(var i=0;i<selects[welcomeshengbuy.value].length;i++){
welcomeshibuy.add(selects[welcomeshengbuy.value][i]);
}
}
}
}
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<%dim userid,rsUser,UserNum
userid=SafeRequest("id",1)
set rs=server.createobject("adodb.recordset")
rs.open "select * from [user] where userid="&userid ,conn,1,1
%>
<style type="text/css">
<!--
.STYLE3 {color: #0000FF}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE1 {color: #000000;
font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td background="images/topbg.gif"><span class="STYLE1">您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -> <span class="style4">修改会员信息</span></span></td>
</tr>
<tr>
<form name="form1" method="post" action="b2b_saveuserinfo.asp?action=save&id=<%=userid%>">
<td valign="top" bgcolor="#FFFFFF"> <br>
<table width="95%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="20%" height="25" align="right" background="images/topbg.gif" bgcolor="#F7F7F7">用户名称：</td>
<td width="80%"><font color=#FF6600><%=trim(rs("username"))%></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">登录密码：</td>
<td>
<input name="UserPassword" type="text" class="input_sr" id="UserPassword" size="30">
不改密码请为空!</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">真实姓名：</td>
<td>
<input name="realname" type="text" class="input_sr" id="realname" value="<%=trim(rs("realname"))%>" size="30"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">电子邮件：</td>
<td>
<input name="useremail" type="text" class="input_sr" id="useremail" value="<%=trim(rs("useremail"))%>" size="30"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">手机号码：</td>
<td>
<INPUT NAME="UserMobile" TYPE="text" class="input_sr" ID="UserMobile" VALUE="<%=trim(rs("UserMobile"))%>" SIZE="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">腾 讯 Q Q：</td>
<td>
<INPUT NAME="userqq" TYPE="text" class="input_sr" ID="userqq" VALUE="<%=trim(rs("userqq"))%>" SIZE="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">MSN：</td>
<td>
<INPUT NAME="MSN" TYPE="text" class="input_sr" ID="MSN" VALUE="<%=trim(rs("MSN"))%>" SIZE="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">密码提问：</td>
<td>
<input name="UserQuestion" type="text" class="input_sr" id="UserQuestion" value="<%=trim(rs("UserQuestion"))%>" size="30"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">密码答案：</td>
<td>
<input name="UserAnswer" type="text" class="input_sr" id="UserAnswer" size="30"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">收货人姓名：</td>
<td>
<input name="receipt" type="text" class="input_sr" id="receipt" value="<%=trim(rs("receipt"))%>" size="30"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">收货人性别：</td>
<td>
<select name="UserSex" id="UserSex">
<option value="0" <% if rs("UserSex")=0 Then Response.write("Selected") %>>男</option>
<option value="1" <% if rs("UserSex")=1 Then Response.write("Selected") %>>女</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">收货人省/市：</td>
<td>
<select size="1" name="welcomeshengbuy" onChange=chsel()>
<option value="xxx" selected>请选择省份……</option>
<%dim tmpShengid
tmpShengid=0
set rs_s=server.createobject("adodb.recordset")
sql="select * from welcomeshengbuy order by shengorder"
rs_s.open sql,conn,1,1
while not rs_s.eof
if rs("Sheng")=rs_s("ShengNo") then
tmpShengid=rs_s("id")
%>
<option value="<%=rs_s("ShengNo")%>" selected ><%=trim(rs_s("ShengName"))%></option>
<%
else
%>
<option value="<%=rs_s("ShengNo")%>" ><%=trim(rs_s("ShengName"))%></option>
<%
end if
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
</select>
<select size="1" name="welcomeshibuy">
<%
set rs_s=server.createobject("adodb.recordset")
sql="select * from welcomeshibuy where shengid="&tmpShengid&" order by shiorder"
rs_s.open sql,conn,1,1
while not rs_s.eof
%>
<option value="<%=rs_s("ShiName")%>" <%if rs("Shi")=rs_s("ShiNo") then%>selected<%end if%>><%=trim(rs_s("ShiName"))%></option>
<%
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">收货地址：</td>
<td>
<input name="address" type="text" class="input_sr" id="address" value="<%=trim(rs("address"))%>" size="30"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">邮编：</td>
<td>
<input name="postcode" type="text" class="input_sr" id="postcode" value="<%=rs("postcode")%>" size="30"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">电话：</td>
<td>
<input name="usertel" type="text" class="input_sr" id="usertel" value="<%=trim(rs("usertel"))%>" size="30"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">用户预存款</td>
<td><input name="deposit" type="text" class="input_sr" id="usertel" value="<%=trim(rs("deposit"))%>" size="30" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">会员级别</td>
<td>
<%
set rsUser=server.createobject("adodb.recordset")
rsUser.Open "Select GrpID,GrpName From b2b_userjb" ,conn,1,1 %>
<select name="GrpID" id="GrpID">
<%
do while not rsUser.eof
response.write "<option value="&rsUser("GrpID")
if rsUser("GrpID")=rs("GrpID") then response.write " selected "
response.write ">"&trim(rsUser("GrpName"))&"</option>"
rsUser.movenext
loop
rsUser.Close
%>
</select>
<%
rsUser.Open "Select Count(UserID) as RecNum Where [User].recommender = '"&rs("UserName")&"' ",conn,1,1
UserNum = rsUser("RecNum")
rsUser.Close
Set rsUser = Nothing
%> </td>
</tr>
<tr bgcolor="#FFFFFF" height="20">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">注册时间：</td>
<td><%=rs("adddate")%></td>
</tr>
<tr bgcolor="#FFFFFF" height="20">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">上次登录时间：</td>
<td><%=rs("LastLogin")%></td>
</tr>
<tr bgcolor="#FFFFFF" height="20">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">登录次数：</td>
<td><%=rs("UserLogins")%></td>
</tr>
<tr bgcolor="#FFFFFF" height="20">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">已下订单数：</td>
<td>
<%dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select distinct(goods) from orders where username='"&trim(rs("username"))&"' and orders.state>2 ",conn,1,1
response.write rs2.recordcount&" 笔定单"
rs2.close
set rs2=nothing
%> </td>
</tr>
<tr bgcolor="#FFFFFF" height="20">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">推 荐 人：</td>
<td><A HREF=b2b_userinfo.asp?id=<%=rs("userid")%>><%=trim(rs("recommender"))%></A><% = UserNum %></td>
</tr>
<tr bgcolor="#FFFFFF" height="20">
<td align="right" background="images/topbg.gif" bgcolor="#F7F7F7">最后登录IP：</td>
<td><%=trim(rs("img"))%></A><% = UserNum %></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="28" align="right" background="images/topbg.gif" bgcolor="#F7F7F7"> 查找此用户的所有定单： </td>
<td height="28"><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="b2b_ddgl.asp?state=0&namekey=<%=trim(rs("username"))%>" >全部订单状态</option>
<option value="b2b_ddgl.asp?state=1&namekey=<%=trim(rs("username"))%>" >未做任何处理</option>
<option value="b2b_ddgl.asp?state=2&namekey=<%=trim(rs("username"))%>" >用户已划出款</option>
<option value="b2b_ddgl.asp?state=3&namekey=<%=trim(rs("username"))%>" >服务商已收到款</option>
<option value="b2b_ddgl.asp?state=4&namekey=<%=trim(rs("username"))%>" >服务商已发货</option>
<option value="b2b_ddgl.asp?state=5&namekey=<%=trim(rs("username"))%>" >用户已收到货</option>
</select></td>
</tr>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
<tr>
<td height="28" colspan="2" bgcolor="#FFFFFF" align="center"><input name="Submit" type="submit" class="input_bot" value="确认提交">
<input name="Submit2" type="button" class="input_bot" onClick='javascript:history.go(-1)' value="返回上一页"> </td>
</tr>
</table>
<br>
</td></form>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -