<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<!-- #include file="inc/checkrole.asp" -->
<%
'''''''''''''''''''''''''''''''''''''''''''''''
call checkPrevilege(Session("Name"),"p20")
'''''''''''''''''''''''''''''''''''''''''''''''
dim id
id=Clng(request.QueryString("id"))
%>
<html>
<head>
<title>会员管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #FFFFFF;
	font-size:12px;
}
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
.td_row{ padding:2px 5px; line-height:20px;}
form{margin:0;}
-->
</style>
<link href="style/global.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><iframe src="right_top.htm" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" height="30" width="100%"></iframe></td>
  </tr>
</table>

<form name="form3" method="get" action="member_manage.asp">
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><div align="center">关键字：
        <input name="key" type="text" id="key" />
      按：
      <select name="bykey" id="bykey">
        <option value="UserId"/>会员ID</option>
        <option value="UserName"/>会员姓名</option>
        <option value="Email"/>会员邮箱</option>
      </select>
      <select name="IsLocked" id="IsLocked">
        <option value="1">锁定</option>
        <option value="0">未锁定</option>
        <option value="-1">全部</option>
      </select>
      <input type="submit" value="搜索会员">
      </div></td>
    </tr>
  </table>
</form>

<%
dim act
act=request.QueryString("act")
if(act="do") then
	dim GoldMoney,Score
	GoldMoney=csng(request.Form("GoldMoney"))
	Score=Cint(request.Form("Score"))
	set rs=server.CreateObject("adodb.recordset") 
	rs.open "select * from t_member where id="&id,conn,3,3
	rs("GoldMoney")=GoldMoney
	rs("Score")=Score
	rs.update
	rs.close
	set rs=nothing
	response.Write("<p align=""center"">成功修改！<br><a href=""member_manage.asp"">返回管理</a></p>")
else
	set rs=server.CreateObject("adodb.recordset") 
	rs.open "select * from t_member where id="&id,conn,3,1
	if not rs.eof then
%>
<form name="form1" method="post" action="?act=do&id=<%=id%>">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="border">
  <tr>
    <td height="28" colspan="2" bgcolor="#FF9900"><div align="center"><span class="style1">◆ 会员信息[<%=rs("UserId")%>] ◆</span></div></td>
  </tr>
  <tr>
    <td width="18%" bgcolor="#DFFAFF" class="td_row"><div align="right">金币：</div></td>
    <td width="82%" bgcolor="#FFFFFF" class="td_row style1">
      <input type="text" name="GoldMoney" value="<%=rs("GoldMoney")%>"></td>
  </tr>
  <tr>
    <td bgcolor="#DFFAFF" class="td_row"><div align="right">积分：</div></td>
    <td bgcolor="#FFFFFF" class="td_row style2">
      <input type="text" name="Score" value="<%=rs("Score")%>">
    </td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#FFFFFF" class="td_row"><div align="center">      
        <input type="submit" name="Submit" value="修改">      
      </div></td>
  </tr>
</table>
</form>
<%
	end if
	rs.close
	set rs=nothing
end if
%>
</body>
</html>
<%
call connclose()
%>