showmoney.asp

SMS是SP服务中一种流行的服务类型,用户可以通过发送短信来定制电影,视频,交友,下载等在线服务, 联盟程序正是处于用户与SP商之间的一种接口平台,平台下可以发展站长,站长在自己的站上做宣传. 手

<SCRIPT src="inc/ye_datetime.js"></SCRIPT>
<%
upline=Session("Usr_UserName")
Nowpage=cint(request.QueryString("page"))
startdate=request("startdate")
enddate=request("enddate")
nowdate=request("nowdate")
cc=request("cc")
if cc="" then cc=2
aa=request("aa")
if enddate="" then enddate=date()

Function count_mobile(upline)
	dim i,preNumber
	set gRs=GrateRs("select * from mobile where state=0 and value='有效' and upline='"&upline&"' order by number",1)
	if not gRs.eof then 
		preNumber=""
	 	i=0
	 	do while not gRs.eof
	  		if not gRs("number")=preNumber then 
	    		i=i+1
				preNumber=gRs("number")
	  		end if
	  		gRs.movenext
	 	loop
	else
	 	i=0
	end if
	gRs.close
	Set gRs=nothing
	count_mobile=i
End Function

Set Rs=Server.CreateObject("ADODB.Recordset")
set Rs=GrateRs("select * from member where username='"&upline&"'",1)
moneyTotal=Rs("moneyTotal")+count_mobile(upline)*jg
removeMoney=Rs("removeMoney")
%>
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="22"><b><%=Site_name%> - 用户控制面板 - 提成拥金查询 </b></td>
  </tr>
</table>
<br>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#F7F7F7">
    <td height="22" colspan="4">&nbsp;&nbsp; <font color=red>用户拥金</font></td>
  </tr>
  <tr>
    <td width="29%" height="22" align="center">总拥金</td>
    <td width="28%" height="22" align="center">已支付</td>
    <td width="22%" height="22" align="center">余额</td>
    <td width="21%" height="22" align="center">用户级别</td>
  </tr>
  <tr align="center" bgcolor="#F7F7F7">
    <td height="22"><%=moneyTotal%></td>
    <td height="22"><%=removeMoney%></td>
    <td height="22"><%=moneyTotal-removeMoney%></td>
    <td height="22">
合法会员
	</td>
  </tr>
</table>
<br>
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
     
      <tr>
        <td valign="top">
          <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr bgcolor="#F7F7F7">
              <td height="22" colspan="4">&nbsp;&nbsp; <font color=red>定制清单</font></td>
            </tr>
           <tr>
              <td height="10" colspan="4"></td>
            </tr> <tr>
              <td colspan="4"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <form name="form1" method="post" action="?action=ShowMoney">
                  <tr valign="middle">
                    <td height="23" align="left" background="images/line4.gif"><input name="cc" type="radio" value="2" checked checked<%if cc=2 then response.write(" checked")%> class="textbox">
        指定日期</td>
                    <td height="23" background="images/line4.gif"><input name="nowdate" type="text" class="textbox" id="startdate" value="<%
				  if nowdate="" then 
				  response.write date()
				  else
				  response.write Nowdate
				  end if
				  %>" size="12" onClick="showCal(this);" readonly>                      
                    &nbsp;&nbsp;&nbsp;
          <input name="Submit" type="submit" class="inputbutton" value="查询"></td></tr>
                  <tr valign="middle">
                    <td width="16%" height="23" align="left" background="images/line4.gif"><span class="style7">
                      <input type="radio" name="cc" value="1"<%if cc=1 then response.write(" checked")%> class="textbox">
        详细查询</span></td>
                    <td width="84%" height="23" background="images/line4.gif"><span class="style7">
                      <input name="startdate" type="text" class="textbox" id="startdate" value="<%=startdate%>" size="12" onClick="showCal(this);" readonly>
&nbsp; 至&nbsp;
        <input name="enddate" type="text" class="textbox" id="enddate" value="<%=enddate%>" size="12" onClick="showCal(this);" readonly>
        定制
        <select name="aa" class="textbox" id="aa">
          <option value="" selected selected<%if aa="" then response.write(" selected")%>>全部</option>
       
        </select>
&nbsp;&nbsp;        
<input name="Submit" type="submit" class="inputbutton" value="查询">
                    </span></td>
                  </tr>
                </form>
              </table></td>
            </tr>
            <tr>
              <td height="10" colspan="4"></td>
            </tr>
            <tr>
              <td width="25%" height="22" align="center" bgcolor="#f7f7f7">手机号</td>
              <td width="45%" height="22" align="center" bgcolor="#f7f7f7">定制时间</td>
              <td width="15%" align="center" bgcolor="#f7f7f7">定制状态</td>
              <td width="15%" height="22" align="center" bgcolor="#f7f7f7">包月金额</td>
              </tr>
           <%
		   searchstr=""
		   if upline<>"" then searchstr="state<3 and upline='"&upline&"'"
		   if cc=1 then 
		   
		  	   if isdate(startdate) then 
		     
			      if not searchstr="" then searchstr=searchstr+" and "
 		          searchstr=searchstr+"regdate >= #"&startdate&"#"
		  	    end if
		  	
			 	if isdate(enddate) then 
		      		 if not searchstr="" then searchstr=searchstr+" and "
 		     		 searchstr=searchstr+"regdate <= #"&enddate&"#"
		  	 	end if
			
			else
			
				 if isdate(nowdate) then 
					if not searchstr="" then searchstr=searchstr+" and "
					searchstr=searchstr+"regdate = #"&nowdate&"#"
				end if
		  
		   end if
		   
		    if aa<>"" then 
		      if not searchstr="" then searchstr=searchstr+" and "
 		      searchstr=searchstr+"value='"&aa&"'"
		   end if
		 
		   if not searchstr="" then searchstr=" where "+searchstr	
		   sqlInfo = "Select * from mobile"&searchstr&" order by id desc"
		   set Rs=GrateRs(sqlInfo,1)
		   Rs.PageSize=15
		   if not Rs.eof then 
		   If Nowpage=0 then Nowpage=1
		   Rs.AbsolutePage=Nowpage 
		   i=1
		   do while not Rs.eof and i<=Rs.pagesize
		   %>
		    <tr align="center">
              <td width="25%" height="22" background="images/line4.gif">&nbsp;<%=left(Rs("number"),8)&"×××"%></td>
              <td width="45%" height="22" align="left" background="images/line4.gif">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=Rs("regDate")&"&nbsp;"&Rs("regTime")%></td>
              <td width="15%" height="22" align="center" background="images/line4.gif"><%=Rs("value")%></td>
              <td width="15%" height="22" background="images/line4.gif">
			  <%
			  if Rs("value")="有效" then 
			  ss=left(Rs("number"),3)
			  if instr("131,132,133",ss)>0 then 
			      response.write("20")
				 else
				  response.write("20")
			  end if
			  else
			  response.write("20")
			  end if
			  %></td>
              </tr>
			<%
		   i=i+1
		   Rs.movenext
		   loop
		  %>
          <tr>
              <td height="10" colspan="4"></td>
            </tr>  <tr align="center">
              <td height="22" colspan="4">
                <%
  myurl="?action=ShowMoney&startdate="&startdate&"&enddate="&enddate&"&aa="&aa&"&nowdate="&nowdate&"&cc="&cc&"&"
  response.write("共："&Rs.recordcount&"条记录，共:"&Rs.PageCount&"页,"&Rs.PageSize&"条/页,第"&NowPage&"页&nbsp;")
  response.write("<a href='"&myurl&"page=1'>"&"第一页</a>&nbsp;")
  if NowPage>1 then response.write("<a href='"&myurl&"page="&Nowpage-1&"'>前一页</a>&nbsp;")
  if NowPage<Rs.PageCount then response.write("<a href='"&myurl&"page="&Nowpage+1&"'>后一页</a>&nbsp;")
  response.write("<a href='"&myurl&"page="&Rs.PageCount&"'>最后页</a>&nbsp;")
		%>
                &nbsp;</td>
              </tr>
            
			  <%else%>
			  <tr align="center" bgcolor="#F7F7F7">
              <td height="22" colspan="4">对不起,还没有定制手机!</td>
              </tr>
			  <%end if%>
			   <tr>
              <td height="10" colspan="4"></td>
            </tr> <tr align="center" bgcolor="#F7F7F7">
              <td height="22" colspan="4"><font color=red>注意：连续重复定制号码只能算一个有效号码。</font></td>
            </tr>
            <tr align="left">
              <td height="22" colspan="4">&nbsp;                </td>
            </tr>
             
          </table>
       </td>
      </tr>
      
    </table></td>
  </tr>
</table>