📄 qqcf_admin_manage_2.asp
字号:
<%
end if
%>
<a href="?Action=<%=Action%>&SiteState=<%=SiteState%>&Page=<%=Totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=TotalRs%>条记录 每页显示<%=Rs.PageSize%>条</div></td>
<form name="form1" method="post" action="?">
<td valign="top">
<Select name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I=1 To TotalPage
Response.Write "<option value=?Action="&Action&"&SiteState="&SiteState&"&Page="&I
If Page=i Then Response.Write " selected"
Response.Write ">转到第"& I &"页</option>"
Next
%>
</select>
</td>
</form>
</tr>
</table>
<%End If%>
<%If Action="usersitemodify" Then%>
<%
ID=Request("ID")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_UserSite Where ID="&ID
Rs.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form2" method="post" action="?Action=usersitemodifysave&ID=<%=ID%>&User_Name=<%=Rs("User_Name")%>">
<tr>
<td colspan="2"><div align="center"><strong>修改审核网址</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">所属用户：</div></td>
<td><%=Rs("User_Name")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100"><div align="right">网站网址：</div></td>
<td><input name="SiteUrl" type="text" value="<%=Rs("SiteUrl")%>">
<br>
(说明：如你的网站网址是http://www.qqcf.com,这里只要填写http://www.qqcf.com，不用填写http://qqcf.com，在http://qqcf.com上点击的广告一样有效,但如果你还在http://bbs.qqcf.com上投放了广告,你还需要加入http://bbs.qqcf.com网址的审核，否则在http://bbs.qqcf.com下点击过来的广告就记录不了了!在审核过的网址下的任何主目录或子目录下的网页上点击广告都有效，这里只要填写域名就可以!)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">状态：</div></td>
<td><select name="SiteState">
<option value="1"<%If Rs("sitestate")=1 Then Response.Write " selected"%>>等待审核</option>
<option value="2"<%If Rs("sitestate")=2 Then Response.Write " selected"%>>审核成功</option>
<option value="3"<%If Rs("sitestate")=3 Then Response.Write " selected"%>>审核失败</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center">
<input type="submit" name="Submit3322" value="修改">
</div></td>
</tr>
</form>
</table>
<%End IF%>
<%If Action="userdudectlist" Or Action="userdudectsearch" Then%>
<%
User_Name=Request("User_Name")
Sql="Select * From WWW_QQCF_COM_CfWztg_RegUserDudect where 1=1"
If Action="userdudectsearch" Then
IF User_Name<>"" Then Sql=Sql&" And User_Name = '"&User_Name&"'"
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="#FFFFFF">
<td colspan="4"><p>注：<br>
1.扣款操作请在普通用户列表选择用户里操作,这里只列出管理员扣用户款项的记录！<br>
<font color="#FF0000">2.所扣的款项并不退回给广告主，收入归管理员所得!总体：广告主广告发布款项=用户的结算款项+管理员手工扣除用户的款项+设置的扣点率扣的款项</font></p>
</td>
</tr>
<tr bgcolor="D6DFF5">
<td width="50"><div align="center"><strong>序 号</strong></div></td>
<td width="49"><div align="center"><strong>用户名</strong></div></td>
<td width="150"><div align="center"><strong>扣除款项</strong></div></td>
<td width="120"><div align="center"><strong>扣款时间</strong></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"><%=DollarConVert(Rs("Dudect_Cent")/1000)%>元</div></td>
<td><div align="center"><%=rs("AddTime")%></div></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td height="30"><div align="right"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=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="&filename&"?Action="&Action&"&User_Name="&User_Name&"&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=userdudectsearch">
<tr>
<td><strong>搜 索</strong> </td>
<td>用户名</td>
<td><input name="User_Name" type="text" id="User_Name" size="10"></td>
<td><input type="submit" name="Submit332" value="搜索"></td>
</form>
</table>
<%End If%>
<%If Action="aduserlist" or Action="adusersearch" Then%>
<%
Call GetCurrWeb()
Px=Request("Px")
AdUser_Name=Request("AdUser_Name")
ComVisit=Request("ComVisit")
State=Request("State")
If Px="" Then Px="ID"
Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser Where 1=1"
If Action="adusersearch" Then
IF AdUser_Name<>"" Then Sql=Sql&" And AdUser_Name Like '%"&User_Name&"%'"
IF ComVisit<>"" Then Sql=Sql&" And ComVisit >= "&ComVisit
IF State<>"" Then Sql=Sql&" And State="&State
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
%>
<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"><strong><a href="?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=ID">序号</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=User_Name">用户名</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=Total_Cent">总金额</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=Spend_Cent">已花费</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=Spare_Cent">剩余金额</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=State">账号状态</a></strong></div></td>
<td><div align="center"><strong>操作</strong></div></td>
</tr>
<form name="form4" method="post" action="?action=delseluser">
<%
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("AdUser_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"></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"> <a href="?Action=adusermodify&AdUser_Name=<%=rs("AdUser_Name")%>">修改</a>
<a href="?Action=aduserdel&AdUser_Name=<%=rs("AdUser_Name")%>" onclick="{if(confirm('删除前请确定此用户没有剩余金额，确定要删除么?')){return true;}return false;}">删除</a>
<a href="?Action=gotoaduser&AdUser_Name=<%=rs("AdUser_Name")%>" target="_blank">转到</a></div></td>
</tr>
<%
Rs.MoveNext
MyPageSize=MyPageSize-1
Wend%>
</form>
</table>
<table border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td valign="top"><div align="right"><a href="?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&AdUser_Name=<%=AdUser_Name%>&ComVisit=<%=ComVisit%>&State=<%=State%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=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&"&AdUser_Name="&AdUser_Name&"&ComVisit="&ComVisit&"&State="&State&"&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=adusersearch">
<tr>
<td><strong>搜 索</strong> </td>
<td>用户名</td>
<td><input name="AdUser_Name" type="text" id="AdUser_Name" size="10"></td>
<td>最少点击数</td>
<td><input name="Spare_Dot" type="text" id="Spare_Dot" size="10"></td>
<td>帐号状态</td>
<td><select name="State" 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="adusermodify" Then%>
<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>
<%
AdUser_Name=Request("AdUser_Name")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_AdUser where AdUser_Name='"&AdUser_Name&"'"
Rs.open Sql,Conn,1,1
%>
</div></td>
</tr>
<form name="form4" method="post" action="?Action=adusermodifysave&AdUser_Name=<%=AdUser_Name%>">
<tr bgcolor="#FFFFFF">
<td width="305"><div align="right">用户名：</div></td>
<td width="685"><%=Rs("AdUser_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">帐号状态：</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><%=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> </td>
<td><input type="submit" name="Submit5" value="修改"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="aduserexpendlist" then%>
<%
Sql="Select * From WWW_QQCF_COM_Cfwztg_AdUser_Expend 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -