📄 listuser.asp
字号:
<!--#include file="connection.asp"-->
<!--#include file="Vchar.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.reload('login.asp')</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #f1f1f1;
}
-->
</style></head>
<body>
<%dim userid,grtt
grtt=request.QueryString("grtt")
userid=request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open "select * from [shop_users] where userid="&userid ,conn,1,1
dim yufukuan
yufukuan=ccur(rs("yufukuan"))%>
<table width="96%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#5d5d5d">
<tr>
<td height="18" background="images/admin_bg.gif"><div align="center"><font color="#FFFFFF"><b><%if grtt=1 then
response.write "团体用户详细资料"
else
response.write "个人用户详细资料"
end if%></b></font></div></td>
</tr>
<tr>
<td height="163" valign="top" bgcolor="#dfdfdf">
<form name="form1" method="post" action="saveuser.asp?action=save&id=<%=userid%>">
<br>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#cecece">
<td width="20%" style="PADDING-LEFT: 8px">用户名称：</td>
<td width="32%" style="PADDING-LEFT: 8px"><font color=#FF0000><%=trim(rs("username"))%></font></td>
<td width="48%" style="PADDING-LEFT: 8px"><div align="center">用户类型：
<%select case int(rs("grtt"))
case "0"%>
<input name="grtt" type="radio" value="0" checked>
个人用户
<input type="radio" name="grtt" value="1">
团体用户
<%case "1"%>
<input name="grtt" type="radio" value="0" >
个人用户
<input type="radio" name="grtt" value="1" checked>
团体用户
<%case "2"%>
<input name="grtt" type="radio" value="1" checked>
通过审核
<input type="radio" name="grtt" value="0">
未通过审核<br>
（未通过审核将自动转换成个人用户）
<%end select%>
</div></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">登陆密码：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="userpassword" type="text" id="userpassword" size="16">
不改密码请为空!
<input type=hidden value=<%=Request.ServerVariables("HTTP_REFERER")%> name=comeurl></td>
</tr>
<%if grtt=1 then%>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">公司名称：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="companyname" type="text" id="companyname" value="<%=trim(rs("companyname"))%>" size="30"></td>
</tr>
<%end if%>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px"><%if grtt=1 then
response.write "联 系 人："
else
response.write "真实姓名："
end if%></td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="userzhenshiname" type="text" id="userzhenshiname" size="12" value=<%=trim(rs("userzhenshiname"))%>></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px"><%if grtt=1 then
response.write "公司邮箱："
else
response.write "电子邮件："
end if%></td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="useremail" type="text" id="useremail" value=<%=trim(rs("useremail"))%> size="30"></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">
<%if grtt=1 then
response.write "办公电话："
else
response.write "住宅电话："
end if%> </td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="zhuzhaitel" type="text" id="zhuzhaitel" value=<%=trim(rs("zhuzhaitel"))%> size="30"></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">移动电话：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="yidongtel" type="text" id="yidongtel" size="30" value=<%=trim(rs("yidongtel"))%> ></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">密码提问：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="quesion" type="text" id="quesion" size="30" value=<%=trim(rs("quesion"))%> ></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">密码答案：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="answer" type="text" id="answer" size="30"></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">收货人姓名：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="shouname" type="text" id="shouhuoname" size="16" value=<%=trim(rs("shouname"))%>></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">收货人性别：</td>
<td colspan="2" style="PADDING-LEFT: 8px"> <input type="radio" name="usersex" value="0" <%if int(rs("shousex"))=0 then response.write "checked"%> >
男
<input name="usersex" type="radio" value="1" <%if int(rs("shousex"))=1 then response.write "checked"%>>
女 </td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px"><%if grtt=1 then
response.Write "公司所在省/市："
else
response.Write "收货人省/市："
end if%></td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="shengshi" type="text" id="shengshi" size="16" value=<%=trim(rs("shengshi"))%>></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">收货地址：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="shouhuodizhi" type="text" id="shouhuodizhi" size="30" value=<%=trim(rs("shouhuodizhi"))%>></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">邮编：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="youbian" type="text" id="youbian" size="16" value=<%=rs("youbian")%>></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px"><%if grtt=1 then
response.Write "公司电话："
else
response.Write "电话："
end if%></td>
<td colspan="2" style="PADDING-LEFT: 8px"><input name="usertel" type="text" id="usertel" size="16" value=<%=trim(rs("usertel"))%>></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">配送方式：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><%select case rs("songhuofangshi")
case "1"
response.write "普通平邮"
case "2"
response.write "特快专递（EMS）"
end select%></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">支付方式：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><%select case rs("zhifufangshi")
case "1"
response.write "邮局汇款"
case "2"
response.write "建设银行汇款"
case "3"
response.write "交通银行汇款"
case else
response.write "使用预付款"
end select %></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">注册时间：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><%=rs("adddate")%></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">最后登陆时间：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><%=rs("lastlogin")%></td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">登陆次数：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><%=rs("logins")%>次</td>
</tr>
<tr bgcolor="#cecece">
<td style="PADDING-LEFT: 8px">已下订单数：</td>
<td colspan="2" style="PADDING-LEFT: 8px"><%dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select distinct(dingdan) from shop_action where username='"&trim(rs("username"))&"' ",conn,1,1
response.write rs2.recordcount&"笔"
rs2.close
set rs2=nothing
%></td>
</tr>
<tr bgcolor="#cecece">
<td height="28" style="PADDING-LEFT: 8px">成交订单数：</td>
<td height="28" colspan="2" style="PADDING-LEFT: 8px"><%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select distinct(dingdan) from shop_action where username='"&trim(rs("username"))&"' and zhuangtai=5 ",conn,1,1
response.write rs2.recordcount&"笔"
rs2.close
set rs2=nothing
%></td>
</tr>
<tr bgcolor="#cecece">
<td height="28" style="PADDING-LEFT: 8px">所剩预付款：</td>
<td height="28" colspan="2" style="PADDING-LEFT: 8px"><%=yufukuan%>元人民币</td>
</tr>
<tr bgcolor="#cecece">
<td height="28" style="PADDING-LEFT: 8px">更改预付款：</td>
<td height="28" colspan="2" style="PADDING-LEFT: 8px"><input name="yufukuan" type="checkbox" id="yufukuan" value="1" onclick="if(checked==false){jiner.disabled=true;jian.disabled=true;jia.disabled=true;}else{jiner.disabled=false;jian.disabled=false;jia.disabled=false;}">
打上对勾后才可生效<br> <input name="jiajian" type="radio" value="0" id="jia" checked>
增加金额
<input type="radio" name="jiajian" value="1" id="jian">
减去金额 金额数：
<input name="jiner" type="text" id="jiner" onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))" value="0.00" size="10"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))">
元人民币 </td>
</tr>
<tr bgcolor="#cecece">
<td height="28" style="PADDING-LEFT: 8px">所剩购物券：</td>
<td height="28" colspan="2" style="PADDING-LEFT: 8px"><input name="usergwq" type="text" id="usergwq" size="4" maxlength="5" value=<%=int(rs("usergwq"))%> >
张</td>
</tr>
<tr bgcolor="#cecece">
<td height="28" colspan="3" style="PADDING-LEFT: 8px">查找此用户的所有定单：
<select name="zhuangtai" 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="editdingdan.asp?zhuangtai=0&namekey=<%=trim(rs("username"))%>&action=1" >全部订单状态</option>
<option value="editdingdan.asp?zhuangtai=1&namekey=<%=trim(rs("username"))%>&action=1" >未作任何处理</option>
<option value="editdingdan.asp?zhuangtai=2&namekey=<%=trim(rs("username"))%>&action=1" >用户已经划出款</option>
<option value="editdingdan.asp?zhuangtai=3&namekey=<%=trim(rs("username"))%>&action=1" >服务商已经收到款</option>
<option value="editdingdan.asp?zhuangtai=4&namekey=<%=trim(rs("username"))%>&action=1" >服务商已经发货</option>
<option value="editdingdan.asp?zhuangtai=5&namekey=<%=trim(rs("username"))%>&action=1" >用户已经收到货</option>
</select></td>
</tr>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
<tr bgcolor="#cecece">
<td height="28" colspan="3"><div align="center">
<input type="submit" name="Submit" value="确认提交">
<input type="button" name="Submit2" value="返回上一页" onclick='javascript:history.go(-1)'>
</div></td>
</tr>
</table>
</form> </td>
</tr>
</table><!--#include file="copyright.asp"-->
</body>
</html>
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -