qqcf_admin_manage_2.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

      <td><%=Rs("Spare_Cent")/1000%>元</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_3"> 
      <td><div align="right">扣多少钱：</div></td>
      <td><input name="Deduct_Cent" type="text" size="10">
        元(注:精确到厘，如：1.251元)</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_4"> 
      <td><div align="right">留言通知用户：</div></td>
      <td><input type="radio" name="NoticUser" value="-1" onclick="bshow_1()">
        是 
        <input name="NoticUser" type="radio" onclick="bshow_2()" value="0" checked>
        否 <br>
        注：这里扣的钱归管理员所得。</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="b_1"> 
      <td><div align="right">留言内容：</div></td>
      <td><textarea name="Gbook" cols="30" rows="5"></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit5" value="修改"></td>
    </tr>

  </form>
</table>

<%End If%>

<%If Action="userspendlist" Or Action="userspendsearch" Then%>
<%
User_Name=Request("User_Name")
SpendState=Request("SpendState")


Sql="Select * From WWW_QQCF_COM_CfWztg_Spend Where 1=1"

If Action="userspendsearch" Then
 If User_Name<>"" Then Sql=Sql&" And User_Name='"&User_Name&"'"
 If SpendState<>"" Then Sql=Sql&" And SpendState="&SpendState
End If

Sql=Sql&" Order By ID Desc"

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not Rs.eof Then
 If Not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
  Page=1
 Else
  Page=Int(Abs(Request("Page")))
 End if
 Rs.pagesize=10
 TotalRs=Rs.RecordCount
 TotalPage=Rs.PageCount
 MyPageSize=Rs.PageSize
 Rs.AbsolutePage=Page
End If
%>
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="D6DFF5"> 
    <td><div align="center"><strong>序</strong><strong> 号</strong></div></td>
    <td><div align="center"><strong>用户</strong></div></td>
    <td><div align="center"><strong>结算金额</strong></div></td>
    <td><div align="center"><strong>结算说明</strong></div></td>
    <td><div align="center"><strong>申请时间</strong></div></td>
    <td><div align="center"><strong>审核状态</strong></div></td>
    <td><div align="center"><strong>管理员审核状态</strong></div></td>
    <td><div align="center">操作</div></td>
  </tr>
  <%
While Not Rs.Eof And MyPageSize>0
%>
  <tr
<%
If MyPageSize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
    <td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
    <td><div align="center"><%=rs("User_Name")%></div></td>
    <td><div align="center"><%=rs("Spend_Cent")/1000%>元</div></td>
    <td><div align="center"><%=rs("SpendDesc")%></div></td>
    <td><div align="center"><%=rs("SpendTime")%></div></td>
    <td><div align="center"> 
        <%
If Rs("SpendState")=1 Then
 Response.Write "审核中"
ElseIf Rs("SpendState")=2 Then
 Response.Write "审核成功"
ElseIf Rs("SpendState")=3 Then
 Response.Write "审核失败,"&Rs("SpendAbortFeedBack")
End If%>
      </div></td>
    <td><div align="center"> 
        <%If Rs("AdminCheck")=-1 Then
	  Response.Write "已审核"
	 Else
	  Response.Write "未审核"
	 End If%>
      </div></td>
    <td><div align="center"> 
        <%If Rs("AdminCheck")=0 Then%>
        <a href="?Action=userspendmodify&ID=<%=Rs("ID")%>">审核</a> 
        <%End If%>
        <%If Rs("AdminCheck")=-1 Then%>
        <a href="?Action=userspendmodify&ID=<%=Rs("ID")%>">修改</a> 
        <%End If%>
        <%If Rs("AdminCheck")=-1 And Rs("SpendState")=3 Then%>
        <a href="?Action=userspenddel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a> 
        <%End If%>
      </div></td>
  </tr>
  <%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td height="35"><div align="right"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&SpendState=<%=SpendState%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
            <a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&SpendState=<%=SpendState%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
            <a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&SpendState=<%=SpendState%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
            <a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&SpendState=<%=SpendState%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td valign="top">
        <Select  name="Page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I=1 To TotalPage    
 Response.Write "<option value=?Action="&Action&"&User_Name="&User_Name&"&SpendState="&SpendState&"&Page="& i
 If Page=i Then Response.Write " selected"
 Response.Write ">转到第"& i &"页</option>"    
Next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
<table border="0" align="center" cellpadding="2" cellspacing="0">
  <form name="form2" method="post" action="?action=userspendsearch">
    <tr> 
      <td><strong>搜 索</strong> </td>
      <td>用户名</td>
      <td><input name="User_Name" type="text" id="User_Name" size="10"></td>
      <td>帐号状态</td>
      <td><select name="SpendState" id="select">
          <option value="" selected>全部</option>
          <option value="-1">已审核</option>
          <option value="0">未审核</option>
        </select></td>
      <td><input type="submit" name="Submit332" value="搜索"></td>
  </form>
</table>
<%End If%>

<%If Action="userspendmodify" Then%>

<%
ID=Request("ID")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_Spend where ID="&ID
Rs.open Sql,Conn,1,1

Set Rs2= Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&Rs("User_Name")&"'"
Rs2.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="D6DFF5"> 
    <td colspan="2"><div align="center"><strong>修改审核</strong></div></td>
  </tr>
  <form name="form4" method="post" action="?Action=userspendmodifysave&ID=<%=ID%>">
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">用户：</div></td>
      <td><%=Rs("User_Name")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">总收入：</div></td>
      <td><%=Rs2("Total_Cent")/1000%>元</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">已结算：</div></td>
      <td><%=Rs2("Spend_Cent")/1000%>元</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150"><div align="right">未结算：</div></td>
      <td><%=Rs2("Spare_Cent")/1000%>元</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">此次结算：</div></td>
      <td><%=Rs("Spend_Cent")/1000%>元</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">状态：</div></td>
      <td><%If Rs("AdminCheck")=0 Then%> <select name="SpendState" id="SpendState">
          <option value="2"<%If Rs("SpendState")=2 Then Response.Write" selected"%>>通过审核</option>
          <option value="3"<%If Rs("SpendState")=3 Then Response.Write" selected"%>>拒绝审核</option>
        </select> <input name="AdminCheck" type="hidden" value="0"> <%Else%> <input name="AdminCheck" type="hidden" value="-1"> 
        <%
		 If Rs("SpendState")=2 Then
		  Response.Write"已经通过审核"
		 ElseIf Rs("SpendState")=3 Then
		  Response.Write"已经拒绝审核"
		 End If
		 %> <%End If%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">管理员说明：</div></td>
      <td><textarea name="AdminDesc" cols="40" rows="5"><%=GetConVertStr(Rs("AdminDesc"))%></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">审核时间：</div></td>
      <td><input name="AdminSpendTime" type="text" id="AdminSpendTime" value="<%If Rs("AdminSpendTime")="" or isnull(Rs("AdminSpendTime")) Then
Response.write Now()
 Else
Response.write Rs("AdminSpendTime")
End If%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit53" value="修改"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"><div align="center"><strong>用户的汇款方式如下</strong></div></td>
    </tr>
    <%if Rs2("PayType")=0 Then%>
    <tr align="center" bgcolor="#FFFFFF" id="t_4"> 
      <td align="left" bordercolor="#33CCCC"></td>
      <td align="left">没有填写</td>
    </tr>
    <%Elseif Rs2("PayType")=1 Then%>
    <tr align="center" bgcolor="#FFFFFF" > 
      <td align="left" bordercolor="#33CCCC"><div align="right">开户银行：</div></td>
      <td align="left"><%=Rs2("Bank_Address")%></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF" id="t_2"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">开户人：</div></td>
      <td align="left"><%=Rs2("Bank_UserName")%></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF" id="t_3"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">银行卡号或帐号：</div></td>
      <td align="left"><%=Rs2("Bank_UserCode")%></td>
    </tr>
    <%Elseif Rs2("PayType")=2 Then%>
    <tr align="center" bgcolor="#FFFFFF" id="t_4"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">支付宝账号：</div></td>
      <td align="left"><%=Rs2("Pay_B")%></td>
    </tr>
    <%Elseif Rs2("PayType")=3 Then%>
    <tr align="center" bgcolor="#FFFFFF" id="t_5"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">快钱账号：</div></td>
      <td align="left"><%=Rs2("Pay_C")%></td>
    </tr>
    <%End If%>
  </form>
</table>
<%End If%>

<%If Action="usersitelist" Then%>

<%
SiteState=Int(Request("SiteState"))

Sql="Select * From WWW_QQCF_COM_CfWztg_UserSite Where 1=1"

If SiteState<>0 Then Sql=Sql&" And SiteState="&SiteState

Sql=Sql&" Order By ID Desc"

Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1

If Not Rs.eof Then
 If Not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
  Page=1
 Else
  Page=Int(Abs(Request("Page")))
 End if
 Rs.pagesize=10
 TotalRs=Rs.RecordCount
 TotalPage=Rs.PageCount
 MyPageSize=Rs.PageSize
 Rs.AbsolutePage=Page
End If
%>
          
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form1" method="post" action="?">
    <tr bgcolor="D6DFF5"> 
      <td colspan="6" bgcolor="#FFFFFF"> <div align="right">请选择审核状态 
          <select name="sitestate" onChange="window.location=form.sitestate.options[form.sitestate.selectedIndex].value">
            <option value="?Action=usersitelist&SiteState=0"<%If SiteState=0 Then Response.Write " selected"%>>全部</option>
            <option value="?Action=usersitelist&SiteState=1"<%If SiteState=1 Then Response.Write " selected"%>>等待审核</option>
            <option value="?Action=usersitelist&SiteState=2"<%If SiteState=2 Then Response.Write " selected"%>>审核成功</option>
            <option value="?Action=usersitelist&SiteState=3"<%If SiteState=3 Then Response.Write " selected"%>>审核失败</option>
          </select>
        </div></td>
    </tr>
  </form>
  <tr bgcolor="D6DFF5"> 
    <td><div align="center">序 号</div></td>
    <td><div align="center">用户</div></td>
    <td><div align="center">网址</div></td>
    <td><div align="center">审核状态</div></td>
    <td><div align="center">时 间</div></td>
    <td><div align="center">操作</div></td>
  </tr>
  <%
While Not Rs.Eof And MyPageSize>0
%>
  <tr
<%
If MyPageSize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
    <td height="18"><div align="center"><%=Rs.RecordCount-Rs.PageSize*(Page)+MyPageSize%></div></td>
    <td><div align="center"><%=Rs("User_Name")%></div></td>
    <td><div align="center"><%=Rs("SiteUrl")%></div></td>
    <td><div align="center"><%
	If Rs("SiteState")=1 Then
	 Response.Write "审核中"
	ElseIf Rs("SiteState")=2 Then
	 Response.Write "审核成功"
	ElseIf Rs("SiteState")=3 Then
	 Response.Write "审核失败"
	End if%></div></td>
    <td><div align="center"><%=Rs("AddDate")%></div></td>
    <td><div align="center"><a href="?Action=usersitemodify&ID=<%=Rs("ID")%>">修改</a>　<a href="?Action=usersitedel&ID=<%=Rs("ID")%>&User_Name=<%=Rs("User_Name")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
  </tr>
  <%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>

<table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td height="30"><div align="right"><a href="?Action=<%=Action%>&SiteState=<%=SiteState%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
            <a href='?Action=<%=Action%>&SiteState=<%=SiteState%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
            <a href='?Action=<%=Action%>&SiteState=<%=SiteState%>&Page=<%=Page+1%>'>下一页</a>