<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>2 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx5<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
%>
<html>
<head>
<title>网软志成在线购物系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="../css.css" rel="stylesheet" type="text/css">
<script>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
}
-->
</style>
</head>
<body>
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="1%" height="28">&nbsp;</td>
    <td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
      <tr>
        <td width="77%" height="27" style="font-size:14px;color:#ffffff">&nbsp;<strong><font color="#000000">网软志成购物后台管理系统 &gt;&gt; 会员管理 &gt;&gt; 会员在线充值</font></strong></td>
        <td width="23%" style="font-size:14px;color:#ffffff"><span class="STYLE1">* 为必添项目</span></td>
      </tr>
    </table></td>
  </tr>
</table>
<br>
  <table border="0" width="95%" cellspacing="1" cellpadding="3" style="border-collapse: collapse" align=center bgcolor="#999999">
    <form method="post" action="user_chongzhi_save.asp?action=add">
      <tr height=25 bgcolor="#F3F3F3">
        <td colspan="2" align=center bgcolor="#CCCCCC">给指定的会员冲入预存款</td>
      </tr>
      <tr height=25 bgcolor="#F3F3F3"> 
        <td width="13%" align=center>冲值会员名：</td>
        <td width="37%" align=center><div align="left">
          <input name="username" type="text" class="wenbenkuang" id="username" size="40">        
          <span class="STYLE1">*</span></div></td>
      </tr>
      <tr height=25 bgcolor="#F3F3F3">
        <td align=center>冲值金额数：</td>
        <td align=center><div align="left">
          <input name="je" type="text" class="wenbenkuang" id="je" ONKEYPRESS="event.returnValue=IsDigit();" size="40">
          <span class="STYLE1">*</span></div></td>
      </tr>
      <tr height=25 bgcolor="#F3F3F3">
        <td align=center>备注说明：</td>
        <td align=center><div align="left">
          <textarea name="bz" cols="80" rows="6" class="wenbenkuang" id="bz" ></textarea>
        </div></td>
      </tr>
      <tr height=25 bgcolor="#F3F3F3">
        <td colspan="2" align=center><input type="submit" name="Submit2" value="确 认 冲 值" class="go-wenbenkuang"></td>
      </tr>
    </form>
  </table>
  <br>      <%
Const MaxPerPage=20 
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    				if Not isempty(request("page")) then
      				currentPage=Cint(request("page"))
   				else
      				currentPage=1
   				end if 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT  * From shop_yck where lx=0 order by id desc",conn,1,1
if rs.eof And rs.bof then
       				Response.Write "<p align='center' class='contents'> 对不起，您选择的状态目前还没有！</p>"
   				else
	  				totalPut=rs.recordcount

      				if currentpage<1 then
          				currentpage=1
      				end if

      				if (currentpage-1)*MaxPerPage>totalput then
	   					if (totalPut mod MaxPerPage)=0 then
	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"user_chongzhi.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"user_chongzhi.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"user_chongzhi.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0

%>
  <table border="0" width="95%" cellspacing="1" cellpadding="3" style="border-collapse: collapse" align=center bgcolor="#999999">
      <tr align=center bgcolor="#cccccc" height=25> 
        <td>ID</td>
        <td>冲值用户</td>
        <td>冲值金额</td>
        <td>操作</td>
        <td>IP</td>
        <td>时间</td>
        <td>备注</td>
        <td>删除</td>
      </tr>
<%do while not rs.eof
		  %>
      <tr height=25 bgcolor="#F3F3F3"> 
        <td align=center><%=rs("ID")%></td>
        <td align=center><input type="hidden" name="id" value="<%=rs("id")%>"> 
        <a href="user_edit.asp?username=<%=trim(rs("username"))%>"><%=trim(rs("username"))%></a>        </td>
        <td align=center> <%=trim(rs("je"))%> </td>
        <td align=center><%=trim(rs("admin"))%></td>
        <td align=center><%=trim(rs("ip"))%></td>
        <td align=center><%=trim(rs("czdate"))%></td>
        <td align=center> <%=trim(rs("bz"))%>        </td>
        <td align=center> <a href="user_chongzhi_save.asp?action=del&id=<%=rs("id")%>">删除</a> 
        </td>
      </tr>
        <%i=i+1
			if i>=MaxPerPage then Exit Do
			rs.movenext
		loop
		rs.close
		set rs=nothing%>
  </table> <%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If
				'//////////////////			
				Response.Write "<form method=Post action="&filename&">" 
				'//////////////////
				Response.Write "<p align='center' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>首页 上一页</font> "  
				Else  
					'///////////////////
				
					Response.Write "<a href="&filename&"?page=1 class='contents'>首页</a> "  
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&" class='contents'>上一页</a> " 
					'//////////////////
				End If
				
				If n-currentpage<1 Then  
					Response.Write "<font class='contents'>下一页 尾页</font>"  
				Else 
				'//////////////////////// 
				
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&" class='contents'>尾页</a>" 
				
					'/////////////////////
				End If  
					Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
					Response.Write "<font class='contents'> 共有"&totalnumber&"条 "&maxperpage&"条/页</font> " 
					Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=wenbenkuang value="&currentpage&">"  
					Response.Write "&nbsp;<input type='submit'  class='go-wenbenkuang' value='GO' name='cndok'></form>"  
				End Function  
			%>
</center>
<!--#include file="copyright.asp"-->
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>