⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 qqcf_admin_manage_3.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<%
'==================================
' 乘风网站推广系统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="passadlist" Then%>
<%
Px=Request("Px")
If Px="" Then Px="ad_class"

If Px="ad_class" Then
 Sql="Select * From WWW_QQCF_COM_CfWztg_AD where AdState=2 Order By "&Px&" Asc"
Else
  Sql="Select * From WWW_QQCF_COM_CfWztg_AD where AdState=2 Order By "&Px&" Desc"
End If
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="13" bgcolor="D6DFF5"><div align="center"><strong>已经通过审核的广告 
        <input type="submit" name="Submit2" value="按类型排序" onclick="location.href='?Action=passadlist&Px=ad_class'">
        &nbsp; 
        <input type="submit" name="Submit3" value="按时间排序" onclick="location.href='?Action=passadlist&Px=id'">
        </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"><strong>扣点率</strong></td>
    <td bgcolor="#FFFFFF"><strong>列表显示</strong></td>
    <td bgcolor="#FFFFFF"><div align="center"><strong>支持点击</strong></div></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"><%=Rs("AdUser_Name")%></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"><%=Rs("AdDeDuct_Rate")%>%</div></td>
    <td bgcolor="#FFFFFF"><div align="center"> 
        <%
	If Rs("AdListShowState")=-1 Then
	 Response.Write "显示"
	Else
	 Response.Write "不显示"
	End if%>
      </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="?Action=admodify&ID=<%=Rs("ID")%>">修改</a>&nbsp;|&nbsp;<a href="?Action=addel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>&nbsp;|&nbsp;<a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></div></td>
  </tr>
  <%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="waitadlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where 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="12" bgcolor="D6DFF5"><div align="center"><strong>等待通过审核的广告</strong><input type="submit" name="Submit3" value="我要审核广告" onclick="location.href='?Action=aduserexpendlist'">(注：广告追加点数并未在此列出，审核和查看新发布或追加点数的操作请点"我要审核广告")</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"><strong>扣点率</strong></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"><%=Rs("AdUser_Name")%></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"><%=Rs("AdDeDuct_Rate")%>%</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="refuadlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where 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="12" 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"><strong>扣点率</strong></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"><%=Rs("AdUser_Name")%></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"><%=Rs("AdDeDuct_Rate")%>%</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="?Action=addel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>&nbsp;|&nbsp;<a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></div></td>
  </tr>
  <%
Rs.MoveNext
Wend
%>
</table>

        <%End If%>
		
<%If Action="overadlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where AdState=4 Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -