qqcf_admin_manage_2.asp

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

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>

<%If Action="userlist" or Action="usersearch" Then%>
<%
Call GetCurrWeb()

Px=Request("Px")
User_Name=Request("User_Name")
ComVisit=Request("ComVisit")
SpareState=Request("SpareState")
State=Request("State")
DeductState=Request("DeductState")

If Px="" Then  Px="ID"

Sql="Select * From WWW_QQCF_COM_CfWztg_RegUser where 1=1"

If Action="usersearch" Then
 IF User_Name<>"" Then Sql=Sql&" And User_Name Like '%"&User_Name&"%'"
 IF ComVisit<>"" Then Sql=Sql&" And ComVisit>="&ComVisit
 IF State<>"" Then Sql=Sql&" And State="&State
 IF SpareState="0" Then Sql=Sql&" And Spare_Cent=0"
 IF SpareState="-1" Then Sql=Sql&" And Spare_Cent>0"
 IF DeductState="0" Then Sql=Sql&" And Deduct_Rate=0"
 IF DeductState="-1" Then Sql=Sql&" And Deduct_Rate>0"
End If

Sql=Sql&" Order By "&Px&" 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
%>

<SCRIPT language=JavaScript>
<!-- Begin
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "取消选定该页"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "选定该页"; }
}
//  End -->
</SCRIPT>

  
<table width="100%" height="39" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr bgcolor="D6DFF5"> 
    <td height="18"><div align="center"></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=ID">序号</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=User_Name">用户名</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=Total_Cent">总收入</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=Spend_Cent">已经结算</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=Spare_Cent">没有结算</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=AdShowNum">显示量</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=ComVisit">点击量</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=ComReg">注册量</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=State">账号状态</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=DeDuct_Rate">扣点</a></strong></div></td>
    <td><div align="center"><strong>操作</strong></div></td>
  </tr>
  <form name="form4" method="post" action="?Action=seluserdel">
    <%
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"> 
          <input name="box" type="checkbox" id="box" value="<%=rs("User_Name")%>">
        </div></td>
      <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("Total_Cent")/1000%>元</div></td>
      <td><div align="center"><%=Rs("Spend_Cent")/1000%>元</div></td>
      <td><div align="center"><%=Rs("Spare_Cent")/1000%>元</div></td>
      <td><div align="center"><%=Rs("AdShowNum")%></div></td>
      <td><div align="center"><%=Rs("ComVisit")%></div></td>
      <td><div align="center"><%=Rs("ComReg")%></div></td>
      <td><div align="center"></div>
        <div align="center"> 
          <%
If Rs("State")=-1 Then
 Response.Write "有效"
ElseIf Rs("State")=0 Then
 Response.Write "<font color=#ff0000>无效</font>"
End If
%>
        </div></td>
      <td><div align="center"><%=Rs("DeDuct_Rate")%></div></td>
      <td><div align="center"><a href="?Action=usermodify&User_Name=<%=rs("User_Name")%>">修改及扣款</a> 
          <a href="?Action=userdel&User_Name=<%=rs("User_Name")%>" onclick="{if(confirm('删除前请确定此用户没有剩余金额，确定要删除么?')){return true;}return false;}">删除</a> 
          <a href="?action=gotouser&user_name=<%=rs("user_name")%>" target="_blank">转到</a>&nbsp;<a href="?Action=lysearch&User_Name=<%=rs("User_Name")%>">搜索</a> 
        </div></td>
    </tr>
    <%
Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
    <tr bgcolor="#FFFFFF"> 
      <td height="15" colspan="12"><div align="right"> 
          <INPUT name="button" type=button onclick=this.value=check(this.form.box) value="选定该页">
          　 
          <input type="submit" name="Submit2" value="删除选择" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">
        </div></td>
    </tr>
  </form>
</table>
        <table border="0" align="center" cellpadding="2" cellspacing="1">
  <tr>
    <td valign="top"><div align="right"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
            <a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
            <a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
            <a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&SpareState=<%=SpareState%>&DeductState=<%=DeductState%>&Px=<%=Px%>&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>
        <Select  name="page" size="1" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I=1 To TotalPage
 Response.Write "<option value="&filename&"?Action="&Action&"&User_Name="&User_Name&"&ComVisit="&ComVisit&"&State="&State&"&SpareState="&SpareState&"&DeductState="&DeductState&"&Px="&Px&"&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=usersearch">
    <tr> 
      <td><strong>搜 索</strong> </td>
      <td>用户名</td>
      <td><input name="User_Name" type="text" id="User_Name" size="10"></td>
      <td>最少点击数</td>
      <td><input name="ComVisit" type="text" id="ComVisit" size="10"></td>
      <td>剩余金额</td>
      <td><select name="SpareState" id="select">
          <option value="" selected>全部</option>
          <option value="-1">大于0</option>
          <option value="0">等于0</option>
        </select></td>
      <td>帐号状态</td>
      <td><select name="State" id="select">
          <option value="" selected>全部</option>
          <option value="-1">有效</option>
          <option value="0">无效</option>
        </select></td>
      <td>扣点</td>
      <td><select name="DeductState" id="select">
          <option value="" selected>全部</option>
          <option value="0">不扣点</option>
          <option value="-1">扣点</option>
        </select></td>
      <td><input type="submit" name="Submit332" value="搜索"></td>
    <tr> 
  </form>
</table>
<%End If%>

<%If Action="usermodify" Then%>
<SCRIPT>
function ashow_1(){
a_1.style.display = "";
a_2.style.display = "";
a_3.style.display = "";
a_4.style.display = "";
b_1.style.display = "none";
}
function ashow_2(){
a_1.style.display = "none";
a_2.style.display = "none";
a_3.style.display = "none";
a_4.style.display = "none";
b_1.style.display = "none";
}
function bshow_1(){
b_1.style.display = "";
}
function bshow_2(){
b_1.style.display = "none";
}
</SCRIPT>
  
<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> 
        <%
User_Name=request("User_Name")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_Reguser where User_Name='"&User_Name&"'"
Rs.open Sql,Conn,1,1
%>
      </div></td>
  </tr>
  <form name="form4" method="post" action="?Action=usermodifysave&User_Name=<%=User_Name%>">
    <tr bgcolor="#FFFFFF"> 
      <td width="305"><div align="right">用户名：</div></td>
      <td width="685"><%=Rs("user_name")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">登陆次数：</div></td>
      <td><%=Rs("Logintotal")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">最后登陆时间：</div></td>
      <td><%=Rs("LastLoginTime")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">最后登陆IP：</div></td>
      <td><%=Rs("LastLoginIp")%> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">Email：</div></td>
      <td><%=Rs("EMail")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">QQ：</div></td>
      <td><%=Rs("QQ")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">联系电话：</div></td>
      <td><%=Rs("Phone")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">手机：</div></td>
      <td><%=Rs("Mobile")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">网站网址：</div></td>
      <td><%If Rs("WebSite")<>"-" Then Response.write "<a href="&Rs("WebSite")&" target=_blank>"&Rs("WebSite")&"</a>"%> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"><div align="center"><strong>用户的汇款方式如下</strong></div></td>
    </tr>
    <%if Rs("PayType")=0 Then%>
    <tr align="center" bgcolor="#FFFFFF" id="t_4"> 
      <td align="left" bordercolor="#33CCCC"></td>
      <td align="left">没有填写</td>
    </tr>
    <%Elseif Rs("PayType")=1 Then%>
    <tr align="center" bgcolor="#FFFFFF" > 
      <td align="left" bordercolor="#33CCCC"><div align="right">开户银行：</div></td>
      <td align="left"><%=rs("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"><%=rs("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"><%=rs("Bank_UserCode")%></td>
    </tr>
    <%Elseif Rs("PayType")=2 Then%>
    <tr align="center" bgcolor="#FFFFFF" id="t_4"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">支付宝账号：</div></td>
      <td align="left"><%=rs("Pay_B")%></td>
    </tr>
    <%Elseif Rs("PayType")=3 Then%>
    <tr align="center" bgcolor="#FFFFFF" id="t_5"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">快钱账号：</div></td>
      <td align="left"><%=rs("Pay_C")%></td>
    </tr>
    <%End If%>
	
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"><div align="center"><strong>修改</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">用户状态：</div></td>
      <td><select name="State" id="State">
          <option value="-1"<%If Rs("State")=-1 Then response.write" selected"%>>有效</option>
          <option value="0"<%If Rs("State")=0 Then response.write" selected"%>>无效</option>
        </select></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">扣点比率：</div></td>
      <td><input name="DeDuct_Rate" type="text" id="DeDuct_Rate" value="<%=Rs("DeDuct_Rate")%>" size="5">
        %(0-100之间，0为不扣点，100为扣除全部点数) <br>
        注：这里扣的点归管理员所得，比如此用户扣点率为20%，设置这个以后此网站主每点击的获利20%将归管理员所得。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">注册时间：</div></td>
      <td><%=Rs("AddTime")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">修改为新密码：</div></td>
      <td><input name="Password_New" type="text" id="Password_New">
        (留空则原密码不会被修改)</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">修改为新密码找回答案：</div></td>
      <td><input name="PasswordAnswer_New" type="text" id="PasswordAnswer_New">
        (留空则原密码找回答案不会被修改)</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">管理员备注：</div></td>
      <td><textarea name="AdminDesc" cols="30" rows="5" id="AdminDesc"><%=Rs("AdminDesc")%></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">扣用户的款项：</div></td>
      <td> <input type="radio" name="DeductCentState" value="-1" onclick="ashow_1()">
        是 
        <input name="DeductCentState" type="radio" onclick="ashow_2()" value="0" checked>
        否</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_1"> 
      <td><div align="right">用户总收入：</div></td>
      <td><%=Rs("Total_Cent")/1000%>元</td>
    </tr>
    <tr bgcolor="#FFFFFF" id="a_2"> 
      <td><div align="right">剩余没有结算：</div></td>