<!--#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">
<script src="/js/industrys.js" type="text/javascript"></script>
<script src="/js/areas.js" type="text/javascript"></script>
<LINK media=screen href="../js/dhtmlgoodies_calendar.css" rel=stylesheet></LINK>
<SCRIPT src="../js/dhtmlgoodies_calendar.js" type=text/javascript></SCRIPT>
</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>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
	<%
dim act
act=request.querystring("act")
if(act="do") then
	call mod_personalinfook()
	response.write("<div align=""center"">成功修改会员积分</p>")
	response.write("<p align=""center""><a href="""&request.Form("furl")&""">返回</a></p>")
else
	call mod_personalinfo()
end if
%>    </td>
  </tr>
</table>
<%
sub mod_personalinfook
	dim Score
	Score=Cint(request.Form("Score"))	
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select * from t_member where id="&id,conn,3,3
	if not rs.eof then
		rs("Score")=Score		
		rs.update
	end if
	rs.close
	set rs=nothing
end sub
sub mod_personalinfo
	dim rs,userinfo,sql
	sql="select * from t_member where id="&id
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,3,1
	if not rs.eof then		
%>
<form id="PostForm" name="PostForm" method="post" action="?act=do&id=<%=id%>">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  <tr>
    <td height="28" colspan="2" class="th_title">会员积分修改</td>
  </tr>
  <tr>
    <td width="17%" height="32" bgcolor="#FFFFFF" class="pad_5"><strong>会员ID：</strong></td>
      <td width="83%" bgcolor="#FFFFFF" class="pformleft">&nbsp;<%=rs("UserId")%></td>
    </tr>
    <tr>
      <td height="32" bgcolor="#FFFFFF" class="pad_5"><strong>积分：</strong></td>
      <td bgcolor="#FFFFFF" class="pformleft">&nbsp;
      <input name="Score" type="text" id="Score" value="<%=rs("Score")%>"></td>
    </tr>
  <tr>
    <td class="td_row">&nbsp;</td>
    <td class="td_row">
    	<input type="hidden" name="furl" value="<%=request.ServerVariables("HTTP_REFERER")%>">
    	<input type="submit" name="Submit" value="确 定" />
      <input type="reset" name="Submit2" value="取 消" /></td>
  </tr>
</table>
</form>
<%
	end if
	rs.close
	set rs=nothing
end sub
%>
</body>
</html>
<%
call connclose()
%>