<!--#include file="conn.asp" -->
<!--#include file="inc/usdl.asp" -->
<!--#include file="inc/gl.asp" -->
<% 
call gl(Trim(Request.QueryString("w")))
call gl(Trim(Request.QueryString("id")))
 %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=page_title%>用户管理中心.</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="3" topmargin="0">

<!--#include file="head.asp" -->
<table width="763" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="763" height="19" valign="bottom"><font color="#990000">　→ </font>你当前位置：<a href="default.asp">首 
      页 </a>&gt;&gt;管理中心</td>
  </tr>
  <tr>
    <td height="1" background="images/2.jpg"></td>
  </tr>
</table>
<table width="763" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="175" valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td valign="top">
<div align="center"><img src="pic/manager.gif" width="174" border="0"></div></td>
        </tr>
        <tr> 
          <td height="17" bgcolor="#EEEEEE"> <div align="center">欢迎: <font color="#FF0000"><strong><%= session("us") %></strong></font> 光临</div></td> 
        </tr>
        <tr> 
          <% us=session("us")
			sql="select * from user where userid='"&us&"'"
			rs.open sql,conn,1,1
			usje=rs("je")
			 %>
          <td><p><font color="#FF0000">您的账面存款：</font></p>
            <p>&nbsp;</p>
            <p align="center"><font color="#FF0000">￥ <%= usje %></font></p> 
            <p align="center">&nbsp;</p>
            <p>客户等级: <font color="#FF0000"><%= rs("dl")  %> 
              <% rs.close  
			  
			  If Trim(Request("w"))="jz" Then
                     sql="select * from shop where userid='"&session("us")&"' and id="&Request("id")&" and jf=false"
					 rs.open sql,conn,1,1
					 if not rs.eof then
					  '如果是主机定单则不在这里处理
					  if rs("ll")="host" then
					   response.redirect "host_auto_1.asp?bh="&rs("bh")
					  end if
					 bje=rs("je")
				     bo="订单:"&rs("bh")&"/"&rs("mc")
					 if usje<bje then
					 %><script language="JavaScript" type="text/JavaScript">
                            alert("对不起，您的账号上余额不足，请先付款后再来开通...");
                       </script>
					 <%
					 else 
					 sql="update shop set jf=true where id=("&Request("id")&")" 
					 conn.execute(sql)
					 dje=usje-bje
					 sql="update user set je="&dje&" where userid=('"&session("us")&"')"
					 conn.execute(sql)
					 sql="insert into memo(userid,je,body,log,zje) values ('"&session("us")&"',"&-bje&",'"&bo&"','购物',"&dje&")"
					 conn.execute(sql)
					 %>
					 <script language="JavaScript" type="text/JavaScript">
                          alert("交易成功,请等侍开通！！！");
                     </script>
					 <%
					 end if 
					 
					 end if 
					 rs.close	 
                end if 
				
			  %>
              </font></p></td>
        </tr>
        <tr>
          <td height="1" background="images/2.jpg"> </td>
        </tr>
      </table> 
	  <div align="center"> 
         <!--#include file="user_inc.asp" -->
        </div></td>
    <td width="1" background="images/1.jpg"> </td>
    <td width="587" valign="top"> 
      <table width="573" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="573">
            <p align="center"><a href="user.asp"><img src="images/mameger.gif" width="437" height="43"></a></p>
          </td>
        </tr>
        <tr>
          <td valign="top"> 
            <table width="544" border="0" align="center" cellpadding="1" cellspacing="1">
              <tr bgcolor="#0080C0"> 
                <td height="14" colspan="6" width="536"> 　<font color="#FFFFFF">未付款产品管理 </font></td>
              </tr>
              <tr bgcolor="#F6F6F6"> 
                <td width="58" height="16"> <div align="center">编号</div></td>
                <td width="138"> <div align="center">产品名称</div></td>
                <td width="57"> <div align="center">年限</div></td>
                <td width="74"> <div align="center">应付金额</div></td>
                <td width="48"> <div align="center">删除</div></td>
                <td width="131"> <div align="center">确定交费</div></td>
              </tr>
              <% sql="select * from shop where userid='"&session("us")&"'and jf=false"
			  rs.open sql,conn,1,1
			  while not rs.eof 
			  
			   %>
              <tr bgcolor="#F7FCFF"> 
                <td height="20" width="58"> <div align="center"><a href="user8_<%=rs("ll")%>.asp?bh=<%=rs("bh")%>"><%= rs("bh") %></a></div></td>
                <td width="138"> <div align="center"><a href="user8_<%=rs("ll")%>.asp?bh=<%=rs("bh")%>"><%= rs("mc") %></a></div></td>
                <td width="57"> <div align="center"><%= rs("sl") %></div></td>
                <td width="74"> <div align="center"><font color="#FF0000"><%= rs("je") %>￥</font></div></td>
                <td width="48"> <div align="center"><a href="myshop.asp?w=del&id=<%= rs("bh") %>&ll=<%=rs("ll")%>"><img src="images/delete.gif" width="18" height="18" border="0"></a></div></td>
                <td width="131"> <div align="center"><a href="user7.asp?w=jz&id=<%=rs("id")%>">－结账立即开通－</a></div></td>
              </tr>
              <% 
			  rs.movenext
			  wend 
			  rs.close  %>
            </table></td>
        </tr>
      </table>
      <hr width="90%" size="1" noshade>
      <p> 　您可以在这里对您所定购的产品进行结账，结账时您必须确定你的账号上有足够的金额可以够支付，由于程序和硬件的接口还没有完成，所以您在这里所确认结账的产品我们将会在24小时内手工帮你开通。你可以在<a href="user3.asp"><font color="#0000FF">已付款产品管理</font></a>里查看开通状态。。。。</p>
      <p>&nbsp;</p>
      <p>&nbsp;</p></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
    <td colspan="2">&nbsp;</td>
  </tr>
</table>
<%
call CloseDatabase '关闭数据库链接
%>
<!--#include file="top.asp" -->

</body>
</html>





























