📄 qqcf_aduser_manage_2.asp
字号:
<%
'==================================
' 乘风网站推广系统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="adadd" Then%>
<SCRIPT>
function ashow_0(){
a_1.style.display = "none";
a_2.style.display = "none";
a_3.style.display = "none";
a_4.style.display = "none";
a_5.style.display = "none";
bshow_2();
}
function ashow_1(){
a_1.style.display = "";
a_2.style.display = "none";
a_3.style.display = "none";
a_4.style.display = "none";
a_5.style.display = "none";
bshow_2();
}
function ashow_2(){
a_1.style.display = "none";
a_2.style.display = "";
a_3.style.display = "";
a_4.style.display = "none";
a_5.style.display = "none";
bshow_2();
}
function ashow_3(){
a_1.style.display = "";
a_2.style.display = "none";
a_3.style.display = "none";
a_4.style.display = "";
a_5.style.display = "";
bshow_2();
}
function ashow_4(){
a_1.style.display = "none";
a_2.style.display = "";
a_3.style.display = "";
a_4.style.display = "";
a_5.style.display = "";
bshow_2();
}
function ashow_5(){
a_1.style.display = "none";
a_2.style.display = "";
a_3.style.display = "";
a_4.style.display = "";
a_5.style.display = "";
bshow_2();
}
function ashow_6(){
a_1.style.display = "none";
a_2.style.display = "none";
a_3.style.display = "none";
a_4.style.display = "none";
a_5.style.display = "none";
bshow_2();
}
function bshow_1(){
b_1.style.display = "";
document.form1.ad_1.value="多行请在以下输入";
document.form1.ad_1.readOnly=true;
}
function bshow_2(){
b_1.style.display = "none";
document.form1.ad_1.value="";
document.form1.ad_1_b.value="";
document.form1.ad_1.readOnly=false;
document.form1.morerow[1].checked=true
}
function cshow_1(){
c_1.style.display = "";
}
function cshow_2(){
c_1.style.display = "none";
}
function dshow_1(){
d_1.style.display = "";
}
function dshow_2(){
d_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=adaddsave">
<tr>
<td width="152" bgcolor="#FFFFFF"><div align="right">广告类型：</div></td>
<td width="555" bgcolor="#FFFFFF">
<script>
function seladclass()
{
var sel=form1.ad_class.options[form1.ad_class.selectedIndex].value;
if(sel=="")
{
alert("请选择广告类型")
return false;
}
if(sel=="1")
{
ashow_1();
t1.innerHTML="每个点击支付：";
t2.innerHTML="点击获得是否有效：";
t3.innerHTML="想获得的点击个数：";
t4.innerHTML="广告宽度：";
t5.innerHTML="广告高度：";
return false;
}
if(sel=="2")
{
ashow_2();
t1.innerHTML="每个点击支付：";
t2.innerHTML="点击获得是否有效：";
t3.innerHTML="想获得的点击个数：";
t4.innerHTML="广告宽度：";
t5.innerHTML="广告高度：";
return false;
}
if(sel=="3")
{
ashow_3();
t1.innerHTML="每个点击支付：";
t2.innerHTML="点击获得是否有效：";
t3.innerHTML="想获得的点击个数：";
t4.innerHTML="广告宽度：";
t5.innerHTML="广告高度：";
return false;
}
if(sel=="4")
{
ashow_4();
t1.innerHTML="每个点击支付：";
t2.innerHTML="点击获得是否有效：";
t3.innerHTML="想获得的点击个数：";
t4.innerHTML="广告宽度：";
t5.innerHTML="广告高度：";
return false;
}
if(sel=="5")
{
ashow_5();
t1.innerHTML="每个点击支付：";
t2.innerHTML="点击获得是否有效：";
t3.innerHTML="想获得的点击个数：";
t4.innerHTML="弹出窗口宽度：";
t5.innerHTML="弹出窗口高度：";
return false;
}
if(sel=="6")
{
ashow_6();
t1.innerHTML="每个弹出支付：";
t2.innerHTML="弹出获得是否有效：";
t3.innerHTML="想获得的弹出个数：";
t4.innerHTML="广告宽度：";
t5.innerHTML="广告高度：";
return false;
}
return true;
}
</script>
<select name="ad_class" onChange="seladclass();">
<option selected value="">请选择广告类型</option>
<%If RsSet("PutObj")=1 Then%>
<option value="1">直接文字广告</option>
<option value="2">直接图片广告</option>
<%End If%>
<option value="3">网页文字广告</option>
<option value="4">网页图片广告</option>
<option value="5">网页弹出广告(点击有效) </option>
<option value="6">网页弹出广告(弹出有效) </option>
</select><font color="#FF0000">*</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF">注：网页文字广告除可以支持自己的输入广告，还支持任何其它广告联盟的Javasript调用的广告</td>
</tr>
<tr id="a_1">
<td bgcolor="#FFFFFF"><div align="right">广告文字：</div></td>
<td bgcolor="#FFFFFF"> <input name="ad_1" type="text" id="AD">
<font color="#FF0000">*</font> (多行输入
<input type="radio" name="morerow" value="-1" onclick="bshow_1()">
是
<input name="morerow" type="radio" onclick="bshow_2()" value="0" checked>
否 )</td>
</tr>
<tr id="b_1">
<td bgcolor="#FFFFFF"><div align="right">广告文字(多行)：</div></td>
<td bgcolor="#FFFFFF"><textarea name="ad_1_b" cols="50" rows="5"></textarea></td>
</tr>
<tr id="a_2">
<td bgcolor="#FFFFFF"><div align="right">广告图片：</div></td>
<td bgcolor="#FFFFFF"><input name="ad_2" type="text" id="ad_2">
<font color="#FF0000">*</font>(请在下面上传功能上传广告，支持200K以下jpg,gif和swf格式的文件上传)</td>
</tr>
<TR id="a_3">
<TD bgcolor="#FFFFFF"><div align="right">图片上传：</div></TD>
<TD bgcolor="#FFFFFF"><iframe style="top:2px" ID="UploadFiles" src="qqcf_upfile.asp" frameborder=0 scrolling=no width="450" height="25"></iframe></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF"><div align="right">广告链接：</div></TD>
<TD bgcolor="#FFFFFF"><input name="AD_Url" type="text" id="AD_Url">
<font color="#FF0000">*</font></TD>
</TR>
<TR id="a_4">
<TD bgcolor="#FFFFFF"><div align="right"><span id="t4">广告宽度：</span></div></TD>
<TD bgcolor="#FFFFFF"><input name="AdWidth" type="text" id="AdWidth" size="5">
像素<font color="#FF0000">*注：尽量使用常用广告尺寸468*60,768*100,120*60等</font></TD>
</TR>
<TR id="a_5">
<TD bgcolor="#FFFFFF"><div align="right"><span id="t5">广告高度：</span></div></TD>
<TD bgcolor="#FFFFFF"><input name="AdHeight" type="text" id="AdHeight" size="5">
像素<font color="#FF0000">*</font></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF"><div align="right"><span id="t1">每个点击支付：</span></div></TD>
<TD bgcolor="#FFFFFF"><input name="Unit_Cent" type="text" id="Unit_Cent" size="10">
元<font color="#FF0000">*注：精确到0.001元，即0.001代表1厘,0.01为1分,0.1为1角</font></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF" id="a_6"><div align="right"><span id="t2">点击获得是否有效：</span></div></TD>
<TD bgcolor="#FFFFFF"><input name="ClickState" type="radio" value="-1" checked onclick="cshow_1()">
有效
<input type="radio" name="ClickState" value="0" onclick="cshow_2()">
无效</TD>
</TR>
<TR id="c_1">
<TD bgcolor="#FFFFFF"><div align="right"><span id="t3">想获得的点击个数：</span></div></TD>
<TD bgcolor="#FFFFFF"><input name="TotalClick" type="text" size="10">
个(最少1000或1000点以上)<font color="#FF0000">*</font></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF"><div align="right">广告推荐下线获利功能：</div></TD>
<TD bgcolor="#FFFFFF"><input name="AdRegUserState" type="radio" value="-1" onclick="dshow_1()">
开启
<input name="AdRegUserState" type="radio" onclick="dshow_2()" value="0" checked>
关闭</TD>
</TR>
<TR id="d_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%>"><%=I%></option>
<%Next%>
</select>
倍<font color="#FF0000">*</font>(选择是每个点击支付的倍数，开通后请把下线代码加入你网站用户注册成功后的页面才生效)</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%>
<%
AdList=Request("AdList")
If AdList="" Then AdList="passadlist"
%>
<%If Action="adlist" Then%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="#FFFFFF">
<td width="1006"><a href="?Action=adlist&AdList=passadlist"><strong>已经审核了的广告</strong>(运行中)</a> <a href="?Action=adlist&AdList=waitadlist"><strong>等待审核中的广告</strong></a> <a href="?Action=adlist&AdList=refuadlist"><strong>没有通过审核的广告</strong></a> <a href="?Action=adlist&AdList=overadlist"><strong>已经完成点击的广告</strong>(停止中)</a></td>
</tr>
</table>
<%End If%>
<%If Action="adlist" And AdList="passadlist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_AD where AdUser_Name='"&AdUser_Name&"' And AdState=2 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="?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
%>
<tr>
<td colspan="10" bgcolor="#FFFFFF">注：如果执行中的广告如果需要更换文字，图片，链接或其它设置请联系管理员修改!</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -