📄 qqcf_aduser_manage_2.asp
字号:
</table>
<%End If%>
<%If Action="adlist" And AdList="waitadlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where AdUser_Name='"&AdUser_Name&"' And AdState=1 Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="10" bgcolor="D6DFF5"><div align="center"><strong>等待通过审核的广告</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><strong>广告ID</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>广告类型</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>每点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>共点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>共花费</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>已被点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>剩余点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>支持点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>支持下线</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"></div>
<div align="center"></div>
<div align="center"><strong>操作</strong></div></td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr
<%
If I Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("ID")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=GetAdClassName(Rs("Ad_Class"))%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=DollarConVert(Rs("Unit_Cent")/1000)%>元</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("TotalClick")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=(Rs("Unit_Cent")*Rs("TotalClick"))/1000%>元</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("OverClick")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("TotalClick")-Rs("OverClick")%></div></td>
<td bgcolor="#FFFFFF"><div align="center">
<%
If Rs("ClickState")=-1 Then
Response.Write "支持"
Else
Response.Write "不支持"
End if%>
</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%
If Rs("AdRegUserState")=-1 Then
Response.Write "支持[每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元]"
Else
Response.Write "不支持"
End if%></div></td>
<td bgcolor="#FFFFFF"><div align="center"> <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></div></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="adlist" And AdList="refuadlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where AdUser_Name='"&AdUser_Name&"' And AdState=3 Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="10" bgcolor="D6DFF5"><div align="center"><strong>拒绝通过审核的广告</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><strong>广告ID</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>广告类型</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>每点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>共点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>共花费</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>已被点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>剩余点击</strong></div></td>
<td bgcolor="#FFFFFF"><strong>支持点击</strong></td>
<td bgcolor="#FFFFFF"><strong>支持下线</strong></td>
<td bgcolor="#FFFFFF"><div align="center"></div>
<div align="center"></div>
<div align="center"><strong>操作</strong></div></td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr
<%
If I Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("ID")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=GetAdClassName(Rs("Ad_Class"))%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=DollarConVert(Rs("Unit_Cent")/1000)%>元</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("TotalClick")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=(Rs("Unit_Cent")*Rs("TotalClick"))/1000%>元</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("OverClick")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("TotalClick")-Rs("OverClick")%></div></td>
<td bgcolor="#FFFFFF"> <div align="center">
<%
If Rs("ClickState")=-1 Then
Response.Write "支持"
Else
Response.Write "不支持"
End if%>
</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%
If Rs("AdRegUserState")=-1 Then
Response.Write "支持[每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元]"
Else
Response.Write "不支持"
End if%></div></td>
<td bgcolor="#FFFFFF"><div align="center"> <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></div></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="adlist" And AdList="overadlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where AdUser_Name='"&AdUser_Name&"' And AdState=4 Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="10" bgcolor="D6DFF5"><div align="center"><strong>已经完成点击的广告</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><strong>广告ID</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>广告类型</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>每点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>共点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>共花费</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>已被点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>剩余点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>支持点击</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"><strong>支持下线</strong></div></td>
<td bgcolor="#FFFFFF"><div align="center"></div>
<div align="center"></div>
<div align="center"><strong>操作</strong></div></td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr
<%
If I Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("ID")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=GetAdClassName(Rs("Ad_Class"))%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=DollarConVert(Rs("Unit_Cent")/1000)%>元</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("TotoalClike")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=(Rs("Unit_Cent")*Rs("TotalClick"))/1000%>元</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("OverClick")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("TotalClick")-Rs("OverClick")%></div></td>
<td bgcolor="#FFFFFF"> <div align="center">
<%
If Rs("AdRegUserState")=-1 Then
Response.Write "支持"
Else
Response.Write "不支持"
End if%>
</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%
If Rs("AdRegUserState")=-1 Then
Response.Write "支持[每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元]"
Else
Response.Write "不支持"
End if%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="?Action=viewadeffect&Ad_ID=<%=Rs("ID")%>">查看推广效果</a> | <a href="?Action=clickchase&ID=<%=Rs("ID")%>">追加点击</a> | <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></div></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="adlist" Then%>
<%
Sql="Select Count(*) From WWW_QQCF_COM_CfWztg_AD where AdUser_Name='"&AdUser_Name&"' And AdRegUserState=-1"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Rs(0) Then%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFFF" class="td_1"><div align="center"><strong>下线支持代码 功能：为你的网站带来大量注册用户</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" class="td_1">用户注册页接口调用方法:(Iframe方式调用 ,修改你网站的用户注册页面,注册成功后执行此代码,再转向注册成功后的页面,作用为推荐注册的用户为点数,如果不会请参照本系统注册页面Reg.asp的样本)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2">
<textarea name="rec1" cols="80" rows="5"><script>document.write ('<iframe src=<%=Tmp%>qqcf_rec.asp?action=lowreg&lowuser_name=传递下线注册用户名过来 frameBorder=0 width=0 height=0 marginheight=0 marginwidth=0 scrolling=no></iframe>');</script></textarea>
<input type="submit" value="复制" onClick=copy('rec1')>
</td>
</tr>
</table>
<%End If%>
<%End If'结束adlist%>
<%If Action="clickchase" Then%>
<%
ID=Request("ID")
%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="2" bgcolor="D6DFF5"><div align="center"><strong>追加点数</strong></div></td>
</tr>
<form name="form1" method="post" action="?action=chaseclicksave&ID=<%=ID%>">
<tr>
<td width="152" bgcolor="#FFFFFF"><div align="right">广告编号：</div></td>
<td width="555" bgcolor="#FFFFFF"><%=ID%></td>
</tr>
<TR>
<TD bgcolor="#FFFFFF"><div align="right">追加点击数：</div></TD>
<TD bgcolor="#FFFFFF"><input name="ChaseClickNum" type="text" size="10">
个(最少1000或1000点以上)</TD>
</TR>
<tr>
<td colspan="2" bgcolor="#FFFFFF"> <div align="center">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Submit523" value="取消">
</div></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="lowview" Then%>
<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></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>
</tr>
<%
User_Name=Request("User_Name")
AddDate=Request("AddDate")
Sql="Select * From WWW_QQCF_COM_CfWztg_LowUser Where 1=1"
If User_Name<>"" Then Sql=Sql&" And User_Name='"&User_Name&"'"
If AddDate<>"" Then Sql=Sql&" And AddDate=#"&AddDate&"#"
Sql=Sql&" And Ad_ID In(Select ID From WWW_QQCF_COM_CfWztg_AD Where AdUser_Name='"&AdUser_Name&"') 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
%>
<%
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("LowUser_Name")%></div></td>
<td><div align="center"><%=Rs("AddTime")%></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%>&User_Name=<%=User_Name%>&AddDate=<%=AddDate%>&Page=1">第一页</a>
<%
If Page > 1 Then
%>
<a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&AddDate=<%=AddDate%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page < Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&AddDate=<%=AddDate%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&AddDate=<%=AddDate%>&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 &"&User_Name="& User_Name &"&AddDate="& AddDate &"&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="1">
<tr bgcolor="#FFFFFF">
<form name="form6" method="post" action="?Action=lowview">
<td>推广人
<input name="User_Name" type="text" id="User_Name" size="15"></td>
<td> 选择查询的日期
<Select name="adddate" size="1">
<option value="">所有日期</option>
<%
Sql="Select AddDate From WWW_QQCF_COM_CfWztg_LowUser Where Ad_ID In(Select ID From WWW_QQCF_COM_CfWztg_AD Where AdUser_Name='"&AdUser_Name&"') Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='"&Rs("AddDate")&"'"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select></td>
<td><input type="submit" name="Submit2" value="查询"></td>
</form>
</tr>
</table>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -