家庭/个人应用

开发平台：
ASP/ASPX

buyUSER02.ASP：源码内容
							
<!--#include file="../checkpost.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>3 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if
%>
<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="inc/Admin_STYLE.CSS">
<title>订单管理页</title>
</head>
<body leftmargin="0" topmargin="0">
<script language="javascript">
<!--
function winopen(url)                    
     {                    
        window.open(url,"search","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=yes,width=540,height=380,top=1,left=1");                    
      }
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<script language="javascript">
<!--
function emailopen(url)                    
     {                    
        window.open(url,"search","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=yes,width=500,height=350,top=1,left=1");                    
      }
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<%
   MaxPerPage=20
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   dim money
   money=0
   dim typename
   
   typename=""
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   dim sql
   dim rs
   dim rstype
   dim typesql
   dim typeid,typename1
   if not isEmpty(Replace(request("typeid"), "'", "''")) then
	typeid=Replace(request("typeid"), "'", "''")
   else
	typeid=0
   end if
  
%>
<!--#include file="top1.asp"-->
<%
 if request("name23")="" and request("date01")="" and request("date02")=""  then
 sql="select * from buy where baoyue=1 and paymoney<>0 and pay=1 order by id desc"
 else if request("name23")<>"" and request("date01")="" and request("date02")="" then
 sql="select * from buy where baoyue=1 and userid like '%"&request("name23")&"%'"
  else if request("date01")<>"" and request("date02")<>"" then
   sql="select * from buy where baoyue=1 and paymoney<>0 and pay=1 and datetime>='"&request("date01")&"' and datetime<='"&request("date02")&"' "
 end if
 end if
 end if
 Set rs= Server.CreateObject("ADODB.Recordset")
 rs.open sql,conn,1,1
  if rs.eof and rs.bof then
       response.write "<p align='center'> 还 没 有 任 何 购 买 会 员</p>"
   else
	  totalPut=rs.recordcount
      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
           showpage totalput,MaxPerPage,"buyuse02r.asp"
            showContent
            showpage totalput,MaxPerPage,"buyuser02.asp"
       else
          if (currentPage-1)*MaxPerPage<totalPut then
            rs.move  (currentPage-1)*MaxPerPage
            dim bookmark
            bookmark=rs.bookmark
           showpage totalput,MaxPerPage,"buyuser02.asp"
            showContent
             showpage totalput,MaxPerPage,"buyuser02.asp"
        else
	        currentPage=1
           showpage totalput,MaxPerPage,"buyuser02.asp"
           showContent
           showpage totalput,MaxPerPage,"buyuser02.asp"
	      end if
	   end if
   end if
	        
  
   sub showContent
       dim i
	   i=0
  %> <center>
  <font color=#FF0000><b>包月会员订单管理</b></font><br>
  <a href="buyuser.asp"><font color=#ffffff><font color="#000000">查看全部订单</font></font></a><font color="#000000">　　<a href="buyuser01.asp"> 
  查看未处理订单</a></font><br>
  <table border="0" cellspacing="1" width="100%" class="border" cellpadding="2" height="33" style="border-collapse: collapse" bordercolor="#111111">
    <tr bgcolor="#429AEF"> 
      <td width="62" height="20" align="center"><font color="#FFFFFF">用户名</font></td>
      <td width="66" height="20" align="center"><font color="#FFFFFF">姓<span lang="en-us">&nbsp;&nbsp;&nbsp; 
        </span>名</font></td>
      <td width="39" height="20" align="center"><font color="#FFFFFF">天<span lang="en-us"> 
        </span>数</font></td>
      <td width="66" align="center"><font color="#FFFFFF">购买等级</font></td>
      <td width="61" height="20" align="center"><font color="#FFFFFF">应收金额</font></td>
      <td width="80" height="20" align="center"><font color="#FFFFFF">付款方式</font></td>
      <td width="57" height="20" align="center"><font color="#FFFFFF">代理会员</font></td>
      <td width="94" height="20" align="center"> <p align="center"><font color="#FFFFFF">购买时间</font></td>
      <td width="50" height="20" align="center"><font color="#FFFFFF">回复会员</font></td>
      <td width="42" height="20" align="center"><font color="#FFFFFF">处理</font></td>
      <td width="45" height="20" align="center"><font color="#FFFFFF">操作</font></td>
    </tr>
  <%do while not rs.eof%>
    <form method="POST" action="userbuyserver.asp?id=<%=rs("id")%>&userid=<%=rs("userid")%>&askmejoin=<%=rs("askmejoin")%>">
   
      <tr bgcolor="#E1F4EE"> 
        <td width="62" height="4" bgcolor="#E1F4EE"> 
          <p align="center"> 
            </a><a href="useredit.asp?userid=<%=rs("userid")%>"><font color="#0000FF"><u><%=rs("userid")%></u></font></a>
            <input type="hidden" name="id" value="<%=rs("id")%>">
</td>
        <td width="66" height="4" align="center"><%=rs("name")%></td>
        <td width="39" height="4" align="center"> 
          <input type="text" name="money" size="3" value="<%=rs("money")%>"></td>
        <td width="66" align="center"> 
        <% select case rs("oklook")
		    case 1
			response.write"普通会员"
			case 2
			response.write"白银会员"
			case 3
			response.write"黄金会员"
			case 4
			response.write"钻石会员"
		   end select
		%>        </td>
        <td width="61" height="4" align="center">&yen;<%=rs("paymoney")%>
          <input type="hidden" name="paymoney" value="<%=rs("paymoney")%>">
元</td>
      
        <td width="80" height="4" align="center"><%=rs("giveme")%></td>
        <td width="57" height="4" align="center"> <% if rs("askmejoin")<>"" then%> <%=rs("askmejoin")%> <%else%> 没有 <%end if%>
          <input type="hidden" name="askmejoin" size="1" value="<%=rs("askmejoin")%>">
          <input type="hidden" name="oklook" size="1" value="<%=rs("oklook")%>"></td>
        <td width="94" height="4" align="center"> <%=month(rs("datetime"))%>月<%=day(rs("datetime"))%>日<%=hour(rs("datetime"))%>时</td>
        <td width="50" height="4" align="center" bgcolor="#E1F4EE"> <a href="javascript:emailopen('sendmail.asp?email=<%=rs("email")%>')">回复</a></td>
        <td width="42" height="4"><p align="center"> <% if rs("pay")=0 then %>
            <input type="submit" value="确认" name="add">
            <% else if rs("pay")=1 then
			response.write"已处理"
			end if
		   end if
		%> </td>
        <td width="45" height="4"><p align="center"> <% if rs("pay")=0 then %>
            <input type="submit" value="删除" name="del">
            <% else if rs("pay")=1 then
			response.write"已付款"
		   end if
		   end if
		%> </td>
      </tr>
    </form>
       <% i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	   loop
		  %>
  </table>
</center>
<%
   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 "<p align=""center""><form method=Post action="&filename&"?typeid="&typeid&">"
    if CurrentPage<2 then
    response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
  else
    response.write "<a href="&filename&"?page=1&typeid="&typeid&">首页</a>&nbsp;"
    response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&">上一页</a>&nbsp;"
  end if
  if n-currentpage<1 then
    response.write "<font color='#000080'>下一页 尾页</font>"
  else
    response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&">"
    response.write "下一页</a> <a href="&filename&"?page="&n&"&typeid="&typeid&">尾页</a>"
  end if
   response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=#ffffff>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
    response.write "<font color='#000080'>&nbsp;共<b>"&totalnumber&"</b>个订单 <b>"&maxperpage&"</b>个订单/页</font> "
   response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput value="&currentpage&">"
   response.write " <input class=buttonface type='submit'  value='Goto'  name='cndok'></span></p></form></p>"
       
end function
   rs.close
   set rs=nothing  
   conn.close
   set conn=nothing
  %>
<form method="POST" action="buyuser02.asp">
  <table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr class="title"> 
      <td align="center" height="22" valign="middle"><font color="#FF0000"><b>按用户名查询</b></font></td>
    </tr>
    <tr class="tdbg"> 
      <td align="center" height="19" valign="middle"><font color="#000000">用户名： 
        <input type="text" name="name23" size="20">
        <input name="submit" type="submit" value="查询">
        </font></td>
    </tr>
  </table>
</form>
<form method="POST" action="buyuser02.asp">
  <table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr class="title"> 
      <td align="center" height="22" valign="middle"><font color="#FFFFFF"><b><font color="#FF0000">按日期查询（输入格式：年-月-日）</font></b></font></td>
    </tr>
    <tr class="tdbg"> 
      <td align="center" height="19" valign="middle"><font color="#FFFFFF"> <font color="#000000">起始日期： 
        <input type="text" name="date01" size="20">
        　　终止日期：</font></font> <font color="#000000"> 
        <input type="text" name="date02" size="20">
        <input name="submit2" type="submit" value="查询">
        </font></td>
    </tr>
  </table>
</form>
 
<p align="center"><font color=#00FFFF><b><font color="#FF0000">当前页面金额：</font></b></font><font color="#FF0000"><b> 
  </b></font><font color=#0033FF><b><% response.write(money) %></b></font><font color="#FF0000"><b>  元<br>
  </b></font><a href="del_3_no_buy.asp"><font color=#ffffff><b><font color="#3333FF">删除3天未处理的定单</font></b></font></a> 
</p>
<form method="POST" action="delbuy02.asp">
  <table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr class="title"> 
      <td align="center" height="22" valign="middle"><font color=#FF0000><b>按日期删除未处理的定单（输入格式：年-月-日）</b></font></td>
    </tr>
    <tr class="tdbg"> 
      <td align="center" valign="middle"><font color=#000000>&nbsp;</font><font color=#000000>起始日期： 
        <input type="text" name="date03" size="20">
        　　终止日期： 
        <input type="text" name="date04" size="20">
        <input name="submit3" type="submit" value="确定">
        </font></td>
    </tr>
  </table>
</form>
</body>
</html>

						