<!--#include file="include/conn.asp"-->
<%Call limsss(sQxa,"$$lstuser$$")%>
<html>
<title>会员信息</title>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="../css/lst.css" rel="stylesheet" type="text/css" />
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="31" border="0" cellpadding="0" cellspacing="0" class="left_topbg" id="table2"><tr><td height="31"><div class="titlebt">会员信息</div></td></tr></table>
<table border="1" width="100%" cellpadding="2" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
	<tr>
		<td>
			<%
			Set oRs = server.CreateObject ("adodb.recordset")
			sSql="select * from LstUser where Id="& Id
			oRs.open sSql,oConn,1,1
			%>			
			<form name="myform" action="?action=edduserinfo&Id=<%=oRs("Id")%>" method=post>			
			<table border="1" width="100%" id="table3" cellspacing="3" cellpadding="3" style="border-collapse: collapse" bordercolor="#F6F6F6">
			<tr>
			<td height="30" align="right" width="200">手机号码：</td>
			<td height="30" colspan="2">
			<input name="UserTel" value="<%=oRs("UserTel")%>" size="20"></td>
			</tr>
			<tr>
			<td height="30" align="right" width="200">会员姓名：</td>
			<td height="30" >
			<input name="UserName" value="<%=oRs("UserName")%>" size="20"></td>
			</tr>
			<tr>
			<td height="30" align="right" width="200">会员密码：</td>
			<td height="30" >
			<input name="UserPass" value="" size="20"> * 不修改留空</td>
			</tr>
			<tr>
			<td height="30" align="right" width="200">公司名称：</td>
			<td height="30" >
			<input name="UserCom" value="<%=oRs("UserCom")%>" size="20"> * </td>
			</tr>
			<tr>
			<td height="30" align="right" width="200">电子信箱：</td>
			<td height="30" >
			<input name="UserEmail" value="<%=oRs("UserEmail")%>" size="20"> * </td>
			</tr>
			<tr>
			<td height="30" align="right" width="200">联系地址：</td>
			<td height="30" colspan="2">
			<input name="UserAddress" value="<%=oRs("UserAddress")%>" size="30"></td>
			</tr>

			<tr>
			<td height="30" align="right" width="200">积分：</td>
			<td height="30" colspan="2">
			<input name="UsrMoney" value="<%=oRs("UsrMoney")%>" size="15"></td>
			</tr>
			<tr>
			<td height="30" align="right" width="200">会员状态：</td>
			<td height="30" colspan="2">
			<select name="UsrState"><option value=<%=oRs("UsrState")%>><%If oRs("UsrState")=1 Then%>正常<%Else%>锁定<%End If%></option><option value=0>锁定</option><option value=1>正常</option></select></td>
			</tr>
			<tr>
			<td height="30" align="right" width="200">会员IP：</td>
			<td height="30" colspan="2"><%=oRs("UsrIP")%></td>
			</tr>
			<tr>
			<td height="30" width="200"></td>
			<td height="30" colspan="2"><input type="submit" value="保存会员信息"></td>
			</tr>
			</table>
			</form>	
		</td>
	</tr>
</table>
</body>
</html>
<%
'编辑会员
If action="edduserinfo" Then
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [LstUser] where id="&Id
	oRs.open sSql,oconn,1,3
		oRs("UserTel")=trim(request("UserTel"))
		oRs("UserName")=trim(request("UserName"))
		oRs("UserCom")=trim(request("UserCom"))
		If trim(request("UserPass"))="" Then 
		Else 
			oRs("UserPass")=MD5(trim(request("UserPass")),32)
		End If
		oRs("UserEmail")=trim(request("UserEmail"))
		oRs("UserAddress")=trim(request("UserAddress"))
		oRs("UsrMoney")=trim(request("UsrMoney"))
		oRs("UsrState")=trim(request("UsrState"))
		oRs.update
		oRs.close
		call alert("编辑成功!","lstuser.asp")
	Set oRs = Nothing
End If
%>