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

📄 qqcf_admin_manage_3.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
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="admodify" Then%>
<script>
function ashow_1(){
 a_1.style.display = "";
}
function ashow_2(){
 a_1.style.display = "none";
}
</SCRIPT>
<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=admodifysave&ID=<%=ID%>&Ad_Class=<%=Rs("Ad_Class")%>">
    <tr> 
      <td bgcolor="#FFFFFF"><div align="right">广告类型：</div></td>
      <td bgcolor="#FFFFFF"><%=GetAdClassName(Rs("Ad_Class"))%></td>
    </tr>
    <%If Rs("ad_class")=1 Or Rs("ad_class")=3 Then%>
    <tr> 
      <td bgcolor="#FFFFFF"><div align="right">广告文字：</div></td>
      <td bgcolor="#FFFFFF"><input name="Ad" type="text" value="<%=Rs("Ad")%>"> 
      </td>
    </tr>
    <%Else%>
    <tr> 
      <td bgcolor="#FFFFFF"><div align="right">广告图片：</div></td>
      <td bgcolor="#FFFFFF"><input name="Ad" type="text" value="<%=Rs("Ad")%>">
        (注:广告图片放在qqcf_adpic目录下,这里填写qqcf_adpic/aaa.jpg之类)</td>
    </tr>
    <%End If%>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">广告链接：</div></TD>
      <TD bgcolor="#FFFFFF"><input name="Ad_Url" type="text" value="<%=Rs("Ad_Url")%>"></TD>
    </TR>
    <%If Rs("ad_class")=3 Or Rs("ad_class")=4 Or Rs("ad_class")=5 Then%>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">广告宽度：</div></TD>
      <TD bgcolor="#FFFFFF"><input name="AdWidth" type="text" id="AdWidth" value="<%=Rs("AdWidth")%>" size="5">
        像素*</TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">广告高度：</div></TD>
      <TD bgcolor="#FFFFFF"><input name="AdHeight" type="text" id="AdHeight" value="<%=Rs("AdHeight")%>" size="5">
        像素*</TD>
    </TR>
    <%End If%>
    <TR>
      <TD bgcolor="#FFFFFF"><div align="right">原始每个点击支付：</div></TD>
      <TD bgcolor="#FFFFFF"><%=DollarConVert(Rs("Unit_Cent_First")/1000)%>元</TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">实际每个点击支付：</div></TD>
      <TD bgcolor="#FFFFFF"><input name="Unit_Cent" type="text" id="Unit_Cent" value="<%=DollarConVert(Rs("Unit_Cent")/1000)%>" size="5">
        元 (精确到：0.001元)<br>
        注：一般请不要修改此项，管理员如果需要拿回扣可以修改这项设置，方法比如：此广告广告主发布的原始价格是每点击：0.10元，共发布了1000点，花费了100元，管理员在这里修改每点击为0.08元，这样网站主每点击获利0.08元，管理员获利0.02元，这样等1000点被网站主消耗 
        完毕时，这100元所有网站主共得到80元，管理员共得到20元。切不要提高广告主发布的原始价格，这样的话管理员可能还会倒贴钱的！</TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">想获得的点击个数：</div></TD>
      <TD bgcolor="#FFFFFF"><%=Rs("TotalClick")%> 个</TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">共支付了：</div></TD>
      <TD bgcolor="#FFFFFF"><%=(Rs("Unit_Cent_First")*Rs("TotalClick"))/1000%>元</TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">广告商备注：</div></TD>
      <TD bgcolor="#FFFFFF"><%=Rs("AdDesc")%></TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">审核状态：</div></TD>
      <TD bgcolor="#FFFFFF"> <%If Rs("AdState")=1 Then Response.Write " 审核中"%> <%If Rs("AdState")=2 Then Response.Write " 审核成功"%> <%If Rs("AdState")=3 Then Response.Write " 审核失败"%> <%If Rs("AdState")=4 Then Response.Write " 完成点击"%></TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">广告扣点率：</div></TD>
      <TD bgcolor="#FFFFFF"><p> 
          <input name="AdDeDuct_Rate" type="text" value="<%=Rs("AdDeDuct_Rate")%>" size="5">
          %(请输入0-100之间数字，0为不扣点)<br>
          注：这里扣的点归管理员所得，比如此广告原始每点击：0.10元，共发布了1000点，花费了100元，这里的扣点率为20%，这样广告消耗完广告后，网站主共分得80元，管理员共分得20元。</p>
        </TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">在普通用户显示广告可申请：</div></TD>
      <TD bgcolor="#FFFFFF" class="td_1"><input type="radio" name="AdListShowState" value="-1"<%If Rs("AdListShowState")=-1 Then Response.Write " checked"%>>
        是 
        <input type="radio" name="AdListShowState" value="0"<%If Rs("AdListShowState")=0 Then Response.Write " checked"%>>
        否</TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">普通用户界面点数显示：</div></TD>
      <TD bgcolor="#FFFFFF" class="td_1"><input type="radio" name="AdSpareShowState" value="-1"<%If Rs("AdSpareShowState")=-1 Then Response.Write " checked"%>>
        实际数目显示 
        <input type="radio" name="AdSpareShowState" value="0"<%If Rs("AdSpareShowState")=0 Then Response.Write " checked"%>>
        无限多<br>
        (注：此项是指普通用户在获得广告代码页面上，广告显示可以申请的剩余点数)</TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">广告推荐下线积分功能：</div></TD>
      <TD bgcolor="#FFFFFF"><input name="AdRegUserState" type="radio" value="-1"<%If Rs("AdRegUserState")=-1 Then Response.Write " checked"%> onclick="ashow_1()">
        开启　 
        <input type="radio" name="AdRegUserState" value="0"<%If Rs("AdRegUserState")=0 Then Response.Write " checked"%> onclick="ashow_2()">
        关闭</TD>
    </TR>
    <TR id="a_1"> 
      <TD bgcolor="#FFFFFF"><div align="right">推荐一个下线注册支付：</div></TD>
      <TD bgcolor="#FFFFFF"><select name="AdRegUserDouble">
          <option value="0">请选择倍数</option>
          <%For I=1 To 80%>
          <option value="<%=I%>"<%If I=Rs("AdRegUserDouble") Then Response.Write " selected"%>><%=I%></option>
          <%Next%>
        </select>
        倍*(选择是每个点击支付的倍数，开通后请把下线代码加入你网站用户注册成功后的页面才生效)</TD>
    </TR>
    <TR> 
      <TD bgcolor="#FFFFFF"><div align="right">广告说明：</div></TD>
      <TD bgcolor="#FFFFFF" class="td_1"><input type="text" name="AdDesc" value="<%=Rs("AdDesc")%>">
        (比如说明广告的长度和高度)</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="lylist" Or Action= "lysearch" Then%>
<%
Call GetCurrWeb()
%>
          
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <tr> 
    <form name="form6" method="post" action="?">
      <td colspan="9" bgcolor="#FFFFFF"><div align="right">选择查询的日期 
          <Select  name="adddate" size="1" onChange="window.location=form.adddate.options[form.adddate.selectedIndex].value">
            <option>请选择日期</option><%
Sql="Select AddDate From WWW_QQCF_COM_CfWztg_Visit_Ly 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='?Action=lylist&AddDate="&Rs("AddDate")&"'"
 If Request("AddDate")=Cstr(Rs("AddDate")) Then Response.Write " selected"
 Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
          </select>
        </div></td>
    </form>
  </tr>
  <%
Px=Request("Px")
AddDate=Request("AddDate")

If Px="" Then  Px="Counter"
If AddDate="" Then AddDate=Cstr(Date)

User_Name=Request("User_Name")
Ip=Request("Ip")
Ly=Request("Ly")
Ad_ID=Request("Ad_ID")

Call PxFilter(Px,"id,User_Name,AD_ID,Ly,Counter,AddTime,LastTime,Ip")

If AddDate<>"" Then
 If IsDate(Cdate(AddDate))=False Then Call AlertBack("输入了错误的时间",1)
End if

Sql="Select Sum(Counter) From WWW_QQCF_COM_CfWztg_Visit_Ly Where Datediff('d',AddDate,'"&AddDate&"')=0"
Set Rs=Conn.execute(Sql)
ThisDayTotal=Rs(0)
If ThisDayTotal=0 Then ThisDayTotal=1


Sql="Select * From WWW_QQCF_COM_CfWztg_Visit_Ly Where Datediff('d',AddDate,'"&AddDate&"')=0"

If Action="lysearch" Then
 If User_Name<>"" Then Sql=Sql&" And User_Name='"&User_Name&"'"
 If Ip<>"" Then Sql=Sql&" And Ip Like'%"&Ip&"%'"
 If Ly<>"" Then Sql=Sql&" And Ly Like'%"&Ly&"%'"
 If Ad_ID<>"" Then Sql=Sql&" And Ad_ID="&Ad_ID
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
1234

⌨️ 快捷键说明

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