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

📄 qqcf_manage_3.asp

📁 功　能： 1.系统分别为每个网站注册会员分配了一个推广链接
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
'==================================
' 乘风网站推广系统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="adlist" Then%>
          
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
<%If RsSet("PutObj")=1 Then'允许所有人申请时%>
<tr> 
    <td colspan="2" bgcolor="#A8CCE1"><strong>广告类型：<font color="#FF0000">直接文字广告</font> 
      </strong>
<%
If RsSet("PutRange")=1 Then
 Response.Write "(任何人可申请,选择以下适当代码发布在任何地方让别人点击即可得分,如网站，论坛，QQ)"
ElseIf RsSet("PutRange")=2 Then
 Response.Write "(任何人可申请,选择以下适当代码发布在任何网页让别人点击即可得分，如网站，论坛，但发在QQ上不能得分)"
ElseIf RsSet("PutRange")=3 Then
 Response.Write "(任何人可申请,广告只能发布在规定网站上才有效,<a href='?Action=putsiteview'><b>查看规定网站列表</b></a>)"
End If
%></td>
  </tr>
<%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where AdState=2 And AdListShowState=-1 And Ad_Class=1 Order By ID Desc"
Rs.Open Sql,Conn,1,1
I=0
While Not Rs.Eof
I=I+1
If I Mod 2 =0 Then
 BgColor="eeeeee"
Else
 BgColor="ffffff"
End If
%>
  <tr bgcolor="<%=BgColor%>"> 
    <td> 广告编号:<%=Rs("ID")%> 广告主：<%=Rs("AdUser_Name")%> 每点击0<%=Rs("Unit_Cent")/1000%>元 共投入 
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write Rs("TotalClick")
	 Else
	  Response.Write "无限"
	 End If%>
      点 还剩余 
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write (Rs("TotalClick")-Rs("OverClick"))
	 Else
	  Response.Write "无限"
	 End If%>
      点 下线注册: 
      <%If Rs("AdRegUserState")=-1 Then
	   Response.Write "支持(每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元)"
	   Else
	   Response.Write "不支持"
	   End If
	   %><%If Rs("AdDesc")<>"" Then Response.write "<br>广告说明："&Rs("AdDesc")%>
</td>
    <td><a href="?Action=adcodeget&Ad_Class=1&ID=<%=Rs("ID")%>">
        <input type="submit" name="Submit3" value="预览和获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=1&ID=<%=Rs("ID")%>'" style='width:140px'>
        </a></td>
  </tr>
<%
Rs.MoveNext
Wend
%>
  <tr> 
    <td colspan="2" bgcolor="#A8CCE1"><strong>广告类型：<font color="#FF0000">直接图片广告</font></strong><%
If RsSet("PutRange")=1 Then
 Response.Write "(任何人可申请，选择以下适当代码发布在任何地方让别人点击即可得分,如网站，论坛，QQ)"
ElseIf RsSet("PutRange")=2 Then
 Response.Write "(任何人可申请，选择以下适当代码发布在任何网页让别人点击即可得分，如网站，论坛，但发在QQ上不能得分)"
ElseIf RsSet("PutRange")=3 Then
 Response.Write "(任何人可申请，广告只能发布在规定网站上才有效,<a href='?Action=putsiteview'><b>查看规定网站列表</b></a>)"
End If
%>
    </td>
  </tr>
<%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where AdState=2 And AdListShowState=-1 And Ad_Class=2 Order By ID Desc"
Rs.Open Sql,Conn,1,1
I=0
While Not Rs.Eof
I=I+1
If I Mod 2 =0 Then
 BgColor="eeeeee"
Else
 BgColor="ffffff"
End If
%>
  <tr bgcolor="<%=BgColor%>"> 
    <td> 广告编号:<%=Rs("ID")%> 广告主：<%=Rs("AdUser_Name")%> 每点击0<%=Rs("Unit_Cent")/1000%>元 共投入
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write Rs("TotalClick")
	 Else
	  Response.Write "无限"
	 End If%>
      点 还剩余
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write (Rs("TotalClick")-Rs("OverClick"))
	 Else
	  Response.Write "无限"
	 End If%>
      点 下线注册:
<%If Rs("AdRegUserState")=-1 Then
	   Response.Write "支持(每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元)"
	   Else
	   Response.Write "不支持"
	   End If
	   %><%If Rs("AdDesc")<>"" Then Response.write "<br>广告说明："&Rs("AdDesc")%></td>
    <td><input type="submit" name="Submit3" value="预览和获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=2&ID=<%=Rs("ID")%>'" style='width:140px'></td>
  </tr>
<%
Rs.MoveNext
Wend
%>

<%End If'结束允许所有人申请%>
  <tr> 
    <td colspan="2" bgcolor="#A8CCE1"><strong>广告类型：<font color="#FF0000">网页文字广告</font></strong>(只能有网站的站长可申请<%If RsSet("PutRange_2")=2 Then Response.Write",且只能发布在站长申请审核成功的网站上"%>)</td>
  </tr>
<%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where AdState=2 And AdListShowState=-1 And Ad_Class=3 Order By ID Desc"
Rs.Open Sql,Conn,1,1
I=0
While Not Rs.Eof
I=I+1
If I Mod 2 =0 Then
 BgColor="eeeeee"
Else
 BgColor="ffffff"
End If
%>
  <tr bgcolor="<%=BgColor%>"> 
    <td> 广告编号:<%=Rs("ID")%> 广告主：<%=Rs("AdUser_Name")%> 每点击0<%=Rs("Unit_Cent")/1000%>元 共投入
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write Rs("TotalClick")
	 Else
	  Response.Write "无限"
	 End If%>
      点 还剩余
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write (Rs("TotalClick")-Rs("OverClick"))
	 Else
	  Response.Write "无限"
	 End If%>
      点 下线注册:
<%If Rs("AdRegUserState")=-1 Then
	   Response.Write "支持(每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元)"
	   Else
	   Response.Write "不支持"
	   End If
	   %>
	   <%
	   Response.write "<br>广告尺寸：宽度"&Rs("AdWidth")&"&nbsp;高度"&Rs("AdHeight")&"<br>"
	   If Rs("AdDesc")<>"" Then Response.write "广告说明："&Rs("AdDesc")
	   %></td>
    <td><input type="submit" name="Submit3" value="预览和获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=3&ID=<%=Rs("ID")%>'" style='width:140px'></td>
  </tr>
<%
Rs.MoveNext
Wend
%>

  <tr> 
    <td colspan="2" bgcolor="#A8CCE1"><strong>广告类型：<font color="#FF0000">网页图片广告</font></strong>(只能有网站的站长可申请<%If RsSet("PutRange_2")=2 Then Response.Write",且只能发布在站长申请审核成功的网站上"%>)</td>
  </tr>
<%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where AdState=2 And AdListShowState=-1 And Ad_Class=4 Order By ID Desc"
Rs.Open Sql,Conn,1,1
I=0
While Not Rs.Eof
I=I+1
If I Mod 2 =0 Then
 BgColor="eeeeee"
Else
 BgColor="ffffff"
End If
%>
  <tr bgcolor="<%=BgColor%>"> 
    <td> 广告编号:<%=Rs("ID")%> 广告主：<%=Rs("AdUser_Name")%> 每点击0<%=Rs("Unit_Cent")/1000%>元 共投入
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write Rs("TotalClick")
	 Else
	  Response.Write "无限"
	 End If%>
      点 还剩余
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write (Rs("TotalClick")-Rs("OverClick"))
	 Else
	  Response.Write "无限"
	 End If%>
      点 支持下线注册:<%If Rs("AdRegUserState")=-1 Then
	   Response.Write "支持(每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元)"
	   Else
	   Response.Write "不支持"
	   End If
	   %><%
	   Response.write "<br>广告尺寸：宽度"&Rs("AdWidth")&"&nbsp;高度"&Rs("AdHeight")&"<br>"
	   If Rs("AdDesc")<>"" Then Response.write "广告说明："&Rs("AdDesc")
	   %></td>
    <td><input type="submit" name="Submit3" value="预览和获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=4&ID=<%=Rs("ID")%>'" style='width:140px'></td>
  </tr>
<%
Rs.MoveNext
Wend
%>
  <tr> 
    <td colspan="2" bgcolor="#A8CCE1"><strong>广告类型：<font color="#FF0000">网页弹出广告(点击类)</font></strong>(只能有网站的站长可申请<%If RsSet("PutRange_2")=2 Then Response.Write",且只能发布在站长申请审核成功的网站上"%>)</td>
  </tr>
<%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where AdState=2 And AdListShowState=-1 And Ad_Class=5 Order By ID Desc"
Rs.Open Sql,Conn,1,1
I=0
While Not Rs.Eof
I=I+1
If I Mod 2 =0 Then
 BgColor="eeeeee"
Else
 BgColor="ffffff"
End If
%>
  <tr bgcolor="<%=BgColor%>"> 
    <td> 广告编号:<%=Rs("ID")%> 广告主：<%=Rs("AdUser_Name")%> 每点击0<%=Rs("Unit_Cent")/1000%>元 共投入
<%If Rs("AdSpareShowState")=-1 Then
	  Response.Write Rs("TotalClick")
	 Else
	  Response.Write "无限"
	 End If%>
      点 还剩余
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write (Rs("TotalClick")-Rs("OverClick"))
	 Else
	  Response.Write "无限"
	 End If%>
      点 支持下线注册:<%If Rs("AdRegUserState")=-1 Then
	   Response.Write "支持(每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元)"
	   Else
	   Response.Write "不支持"
	   End If
	   %><%
	   Response.write "<br>广告尺寸：宽度"&Rs("AdWidth")&"&nbsp;高度"&Rs("AdHeight")&"<br>"
	   If Rs("AdDesc")<>"" Then Response.write "广告说明："&Rs("AdDesc")
	   %></td>
    <td><input type="submit" name="Submit3" value="预览和获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=5&ID=<%=Rs("ID")%>'" style='width:140px'></td>
  </tr>
<%
Rs.MoveNext
Wend
%>

  <tr> 
    <td colspan="2" bgcolor="#A8CCE1"><strong>广告类型：<font color="#FF0000">网页弹出广告(弹出类)</font></strong>(只能有网站的站长可申请<%If RsSet("PutRange_2")=2 Then Response.Write",且只能发布在站长申请审核成功的网站上"%>)</td>
  </tr>
<%
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_AD Where AdState=2 And AdListShowState=-1 And Ad_Class=6 Order By ID Desc"
Rs.Open Sql,Conn,1,1
I=0
While Not Rs.Eof
I=I+1
If I Mod 2 =0 Then
 BgColor="eeeeee"
Else
 BgColor="ffffff"
End If
%>
  <tr bgcolor="<%=BgColor%>"> 
    <td> 广告编号:<%=Rs("ID")%> 广告主：<%=Rs("AdUser_Name")%> 每弹出0<%=Rs("Unit_Cent")/1000%>元 共投入
<%If Rs("AdSpareShowState")=-1 Then
	  Response.Write Rs("TotalClick")
	 Else
	  Response.Write "无限"
	 End If%>
      次 还剩余
      <%If Rs("AdSpareShowState")=-1 Then
	  Response.Write (Rs("TotalClick")-Rs("OverClick"))
	 Else
	  Response.Write "无限"
	 End If%>
      点 支持下线注册:<%If Rs("AdRegUserState")=-1 Then
	   Response.Write "支持(每个"&DollarConVert(Rs("Unit_Cent")*Rs("AdRegUserDouble")/1000)&"元)"
	   Else
	   Response.Write "不支持"
	   End If
	   %><%If Rs("AdDesc")<>"" Then Response.write "<br>广告说明："&Rs("AdDesc")%></td>
    <td><input type="submit" name="Submit3" value="预览和获得此广告代码" onclick="location.href='?Action=adcodeget&Ad_Class=5&ID=<%=Rs("ID")%>'" style='width:140px'></td>
  </tr>
<%
Rs.MoveNext
Wend
%>


<%If CycleAdState=1 Then%>

  <tr> 
    <td colspan="2" bgcolor="#A8CCE1"><strong>广告类型：<font color="#FF0000">轮循播放广告</font></strong>(多个网页文字或网页图片广告轮流播放的广告形式)</td>
  </tr>
<%For I=1 To 6%>
<%
Ad_State=""
Ad_Width=""
Ad_Height=""
Ad_SonAd=""
If I=1 Then
 Ad_State=CycleAd_1_State
 Ad_Width=CycleAd_1_Width
 Ad_Height=CycleAd_1_Height
 Ad_SonAd=Cyclead_1_SonAd
ElseIf I=2 Then
 Ad_State=CycleAd_2_State
 Ad_Width=CycleAd_2_Width
 Ad_Height=CycleAd_2_Height
 Ad_SonAd=Cyclead_2_SonAd
ElseIf I=3 Then
 Ad_State=CycleAd_3_State
 Ad_Width=CycleAd_3_Width
 Ad_Height=CycleAd_3_Height
 Ad_SonAd=Cyclead_3_SonAd
ElseIf I=4 Then
 Ad_State=CycleAd_4_State
 Ad_Width=CycleAd_4_Width
 Ad_Height=CycleAd_4_Height
 Ad_SonAd=Cyclead_4_SonAd
ElseIf I=5 Then
 Ad_State=CycleAd_5_State
 Ad_Width=CycleAd_5_Width
 Ad_Height=CycleAd_5_Height
 Ad_SonAd=Cyclead_5_SonAd
ElseIf I=6 Then
 Ad_State=CycleAd_6_State
 Ad_Width=CycleAd_6_Width
 Ad_Height=CycleAd_6_Height
 Ad_SonAd=Cyclead_6_SonAd
End If
%>
<%If Ad_State=1 Then%>
<%
If I Mod 2 =0 Then
 BgColor="eeeeee"
Else
 BgColor="ffffff"
End If
%>
  <tr bgcolor="<%=BgColor%>"> 
    <td><strong>轮循播放广告1</strong>&nbsp;&nbsp;宽度：<%=Ad_Width%>&nbsp;&nbsp;高度：<%=Ad_Height%>
123

⌨️ 快捷键说明

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