<%@ LANGUAGE=VBScript codepage ="936" %><%Response.Expires=0
Response.Buffer=true
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
if session("zhbg_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if zhbg_grade<>10 or instr(Application("zhbg_user"),zhbg_name)=0  then Response.Redirect "../error.asp?id=439"
if zhbg_name<>Application("zhbg_adminuser") then Response.Redirect "../chat/readonly/bomb.htm"
ID=request("ID")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM 会员卡 Where 卡号='"&ID&"'",conn
if rs.eof or rs.bof then
rs.close
conn.close
set rs=nothing
set conn=nothing
Response.Write "<script Language=Javascript>alert('提示：找不到此卡！');location.href = 'javascript:history.go(-1)';</script>"
response.end
end if
%>
<html>
<head>
<title>会员数据库管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href='../css.css' type=text/css rel=stylesheet>
</head>
<body >
<p align="center">会员卡管理</p>
<p align="center">&nbsp;说明：如果密码不想更改的话请保持密码为“不更改字样”</p>
<p align="center">点数：点数按实际价格*1000计算，也就是说1RMG=1000点</p>
<p align="center">
类型：0为未使用，1为使用过，2冲为泡点会员分钟卡，3为冲为等级会员分钟卡，4为废卡，在添加新卡的时候</p>
<p align="center">
会自动覆盖。此项如果更改可能会出现不可预料的后果，所以禁止改动。</p>
<p align="center">时间为：在使用分钟会员的时候所剩的时间是多少如果类型不是2或3，改动是无效的~</p>
<form method="POST" action="updatehyk.asp?ID=<%=ID%>">
  <table border="1" width="41%"  cellpadding="0"  height="80" align="center">
  <tr> 
    <td  width="33%" align="center"  height="27">
    卡&nbsp; 号</td> 
    <td   width="68%" align="center"  height="27"> 
    <input type="text" name="KNAME" size="16" value="<%=ID%>" maxlength="8"></td> 
  </tr> 
  <tr>  
    <td width="33%" align="center"  height="27"> 
    密&nbsp; 码</td> 
    <td   width="68%" align="center"  height="27"> 
    <input type="text" name="KPASS" size="16" value="不更改" maxlength="8"></td> 
  </tr> 
  <tr>  
    <td width="33%" align="center"  height="27"> 
    点&nbsp; 数</td> 
    <td   width="68%" align="center"  height="27"> 
    <input type="text" name="KNUM" size="16" value="<%=rs("点数")%>"></td> 
  </tr> 
  <tr>  
    <td   width="33%" align="center"  height="27"> 
    类&nbsp; 型</td> 
    <td   width="68%" align="center"  height="27"> 
  <% 
    select case rs("类型") 
    case 0 
    %> 
    未使用 
    <% 
   case 1 
    %> 
    已使用 
    <% 
   case 2 
    %> 
   冲泡点分钟 
    <% 
   case 3 
    %>  
   冲等级分钟 
    <% 
   case 4 
    %>  
   已作废 
    <% 
end select 
    %> 
</td> 
  </tr> 
  <tr>  
    <td    width="33%" align="center"  height="27"> 
    用户ID</td> 
    <td   width="68%" align="center"  height="27"> 
    <%=rs("用户ID")%></td> 
  </tr> 
  <tr>  
    <td  width="33%" align="center"  height="27"> 
    时&nbsp; 间</td>
    <td  width="68%" align="center"  height="27">
    <input type="text" name="KTIME" size="16" value="<%=rs("时间")%>"></td>
  </tr>
  <tr> 
    <td  width="33%" align="center"  height="27">
    <input type="submit" value="更新" name="submit"></td>
    <td   width="68%" align="center"  height="27">
    <input type="submit" value="删除" name="submit"></td>
  </tr>
  </table>
</form>
<p align="center">　</p>
<p align="center"><a href="http://www.oneidc.cn/" target="_blank">非凡国度</a></p>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>