www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_AdUser_Manage_2.asp
<% '乘风网站推广系统 Access版 '作者QQ:178575 '作者EMail:yliangcf@163.com '作者网站:http://www.qqcf.com '详细简介:http://www.qqcf.com/?action=list&list=cfwztg '上面有程序在线演示,安装演示,使用疑难解答,最新版本下载等内容 '因为这些内容可能时常更新,就没有放在程序里,请自己上网站查看 %> <%If Action="adadd" Then%> <SCRIPT> function ashow_0(){ document.getElementById('a').style.display = "none"; document.getElementById('b').style.display = "none"; document.getElementById('c').style.display = "none"; document.getElementById('d').style.display = "none"; document.getElementById('e').style.display = "none"; document.getElementById('f').style.display = "none"; document.getElementById('g').style.display = "none"; document.getElementById('h').style.display = "none"; document.getElementById('i').style.display = "none"; document.getElementById('j').style.display = "none"; } function ashow_1(){ document.getElementById('a').style.display = ""; document.getElementById('b').style.display = "none"; document.getElementById('c').style.display = "none"; document.getElementById('d').style.display = "none"; document.getElementById('e').style.display = ""; document.getElementById('f').style.display = "none"; document.getElementById('g').style.display = "none"; document.getElementById('h').style.display = "none"; document.getElementById('i').style.display = "none"; document.getElementById('j').style.display = "none"; } function ashow_2(){ document.getElementById('a').style.display = "none"; document.getElementById('b').style.display = "none"; document.getElementById('c').style.display = ""; document.getElementById('d').style.display = ""; document.getElementById('e').style.display = ""; document.getElementById('f').style.display = "none"; document.getElementById('g').style.display = "none"; document.getElementById('h').style.display = "none"; document.getElementById('i').style.display = "none"; document.getElementById('j').style.display = "none"; } function ashow_3(){ document.getElementById('a').style.display = ""; document.getElementById('b').style.display = "none"; document.getElementById('c').style.display = "none"; document.getElementById('d').style.display = "none"; document.getElementById('e').style.display = ""; document.getElementById('f').style.display = "none"; document.getElementById('g').style.display = ""; document.getElementById('h').style.display = ""; document.getElementById('i').style.display = "none"; document.getElementById('j').style.display = "none"; } function ashow_4(){ document.getElementById('a').style.display = "none"; document.getElementById('b').style.display = "none"; document.getElementById('c').style.display = ""; document.getElementById('d').style.display = ""; document.getElementById('e').style.display = ""; document.getElementById('f').style.display = "none"; document.getElementById('g').style.display = ""; document.getElementById('h').style.display = ""; document.getElementById('i').style.display = "none"; document.getElementById('j').style.display = "none"; } function ashow_5(){ document.getElementById('a').style.display = ""; document.getElementById('b').style.display = ""; document.getElementById('c').style.display = "none"; document.getElementById('d').style.display = "none"; document.getElementById('e').style.display = ""; document.getElementById('f').style.display = ""; document.getElementById('g').style.display = "none"; document.getElementById('h').style.display = "none"; document.getElementById('i').style.display = "none"; document.getElementById('j').style.display = "none"; } function ashow_6(){ document.getElementById('a').style.display = "none"; document.getElementById('b').style.display = "none"; document.getElementById('c').style.display = ""; document.getElementById('d').style.display = ""; document.getElementById('e').style.display = "none"; document.getElementById('f').style.display = "none"; document.getElementById('g').style.display = "none"; document.getElementById('h').style.display = "none"; document.getElementById('i').style.display = "none"; document.getElementById('j').style.display = "none"; } function ashow_7(){ document.getElementById('a').style.display = ""; document.getElementById('b').style.display = "none"; document.getElementById('c').style.display = "none"; document.getElementById('d').style.display = "none"; document.getElementById('e').style.display = ""; document.getElementById('f').style.display = "none"; document.getElementById('g').style.display = ""; document.getElementById('h').style.display = ""; document.getElementById('i').style.display = ""; document.getElementById('j').style.display = "none"; } function siteclassshow_1(){ document.getElementById('j').style.display = "none"; } function siteclassshow_2(){ document.getElementById('j').style.display = ""; } function seladclass() { var sel=form1.ad_class.options[form1.ad_class.selectedIndex].value; if(sel=="") { alert("请选择广告类型") return false; } if(sel=="1") { ashow_1(); document.getElementById('t1').innerHTML="每个点击或注册支付:"; document.getElementById('t2').innerHTML="网友或网站主获利方式:"; document.getElementById('t3').innerHTML="想获得的点击或注册个数:"; document.getElementById('t4').innerHTML="<input name='ad' type='text' size='40'>"; document.getElementById('clickstate_1').innerHTML="<input name='ClickState' type='radio' value='1'>点击可获利"; document.getElementById('clickstate_2').innerHTML=""; document.getElementById('clickstate_3').innerHTML="<input name='ClickState' type='radio' value='3'>注册可获利"; return false; } if(sel=="2") { ashow_2(); document.getElementById('t1').innerHTML="每个点击或注册支付:"; document.getElementById('t2').innerHTML="网友或网站主获利方式:"; document.getElementById('t3').innerHTML="想获得的点击或注册个数:"; document.getElementById('t4').innerHTML="<input name='ad' type='text' size='40'>"; document.getElementById('clickstate_1').innerHTML="<input name='ClickState' type='radio' value='1'>点击可获利"; document.getElementById('clickstate_2').innerHTML=""; document.getElementById('clickstate_3').innerHTML="<input name='ClickState' type='radio' value='3'>注册可获利"; return false; } if(sel=="3") { ashow_3(); document.getElementById('t1').innerHTML="每个点击、显示或注册支付:"; document.getElementById('t2').innerHTML="网友或网站主获利方式:"; document.getElementById('t3').innerHTML="想获得的点击、显示或注册个数:"; document.getElementById('t4').innerHTML="<input name='ad' type='text' size='40'>"; document.getElementById('clickstate_1').innerHTML="<input name='ClickState' type='radio' value='1'>点击可获利"; document.getElementById('clickstate_2').innerHTML="<input name='ClickState' type='radio' value='2'>显示可获利"; document.getElementById('clickstate_3').innerHTML="<input name='ClickState' type='radio' value='3'>注册可获利"; return false; } if(sel=="4") { ashow_4(); document.getElementById('t1').innerHTML="每个点击、显示或注册支付:"; document.getElementById('t2').innerHTML="网友或网站主获利方式:"; document.getElementById('t3').innerHTML="想获得的点击、显示或注册个数:"; document.getElementById('t4').innerHTML="<input name='ad' type='text' size='40'>"; document.getElementById('clickstate_1').innerHTML="<input name='ClickState' type='radio' value='1'>点击可获利"; document.getElementById('clickstate_2').innerHTML="<input name='ClickState' type='radio' value='2'>显示可获利"; document.getElementById('clickstate_3').innerHTML="<input name='ClickState' type='radio' value='3'>注册可获利"; return false; } if(sel=="5") { ashow_5(); document.getElementById('t1').innerHTML="每个点击支付:"; document.getElementById('t2').innerHTML="网友或网站主获利方式:"; document.getElementById('t3').innerHTML="想获得的点击个数:"; document.getElementById('t4').innerHTML="<input name='ad' type='text' size='40'>"; document.getElementById('clickstate_1').innerHTML="<input name='ClickState' type='radio' value='1'>点击可获利"; document.getElementById('clickstate_2').innerHTML=""; document.getElementById('clickstate_3').innerHTML=""; return false; } if(sel=="6") { ashow_6(); document.getElementById('t1').innerHTML="每个弹出或注册支付:"; document.getElementById('t2').innerHTML="网友或网站主获利方式:"; document.getElementById('t3').innerHTML="想获得的点击个数:"; document.getElementById('t4').innerHTML="<input name='ad' type='text' size='40'>"; document.getElementById('clickstate_1').innerHTML="<input name='ClickState' type='radio' value='1'>点击获利"; document.getElementById('clickstate_2').innerHTML=""; document.getElementById('clickstate_3').innerHTML=""; return false; } if(sel=="7") { ashow_7(); document.getElementById('ad_url').value=""; document.getElementById('t1').innerHTML="每个点击、显示或注册支付:"; document.getElementById('t2').innerHTML="网友或网站主获利方式:"; document.getElementById('t3').innerHTML="想获得的点击、显示或注册个数:"; document.getElementById('t4').innerHTML="<textarea name='ad' cols='38' rows='5'></textarea>"; document.getElementById('clickstate_1').innerHTML="<input name='ClickState' type='radio' value='1'>点击可获利"; document.getElementById('clickstate_2').innerHTML="<input name='ClickState' type='radio' value='2'>显示可获利"; document.getElementById('clickstate_3').innerHTML="<input name='ClickState' type='radio' value='3'>注册可获利"; return false; } return true; } </script> <table class="tb_1" id='tbu'> <tr class="tr_1"> <td colspan="2"><div align="center">广告发布(请务必把带*项目的填写完整并填写正确)</td> </tr> <form name="form1" method="post" action="AdUser.aspx?Action=adaddsave"> <tr> <td width="30%">广告名称:</td> <td><input name="adname" type="text" size="40"></td> </tr> <tr> <td>广告所属行业:</td> <td><select name="SiteClassID" id="SiteClassID"> <option selected value="">请选择分类</option> <% Sql="Select * From CFWztg_SiteClass Order By SiteClassName" Set Rs2 = Server.CreateObject("ADODB.Recordset") Rs2.open Sql,Conn,1,1 While Not Rs2.Eof %> <option value="<%=Rs2("ID")%>"><%=Rs2("SiteClassName")%></option> <% Rs2.MoveNext Wend %> </select></td> </tr> <tr> <td>广告类型:</td> <td><select name="ad_class" onChange="seladclass();" style='width:290px'> <option selected value="">请选择广告类型</option> <option value="1">直接文字广告</option> <option value="2">直接图片广告</option> <option value="3">网页文字广告</option> <option value="4">网页图片广告</option> <option value="5">混合文字广告</option> <option value="6">混合图片广告</option> <option value="7">网页复合广告 </option> </select></td> </tr> <tr id="a"> <td>广告文字:</td> <td><span id="t4"></span></td> </tr> <tr id="b"> <td>广告简介:</td> <td><input name="adintro" type="text" id="adintro" size="40"></td> </tr> <tr id="c"> <td>广告图片:</td> <td><input name="ad_2" type="text" id="ad_2" size="40"> <br /> (请在下面上传功能上传广告,支持200K以下jpg,gif和swf格式的文件上传,广告图片放在upload目录下,这里填写upload/aaa.jpg之类)</td> </tr> <TR id="d"> <TD>图片上传:</TD> <TD><iframe style="top:2px" ID="UploadFiles" src="cf_upfile.asp" frameborder=0 scrolling=no width="280" height="25"></iframe></TD> </TR> <TR id="e"> <TD>广告链接:</TD> <TD><input name="ad_url" type="text" id="ad_url" size="40"> <br> 注:如果链接中带{username}的话可以把网站主参数传递过去,带{userid}的话可以把用户的数字id传递过去,带{ad_id}的话可以把广告ID传递过去,带{selfvar}的话可以把自定义参数传递过去,带{returnflag}时0表示正常点击,1表示不正常点击</TD> </TR> <TR id="f"> <TD>广告前台显示链接:</TD> <TD><input name="adsimpleurl" type="text" id="adsimpleurl" size="40"><br /> 不必带http://,只填写域名就可以,如www.qqcf.com</TD> </TR> <TR id="g"> <TD>广告宽度:</TD> <TD><input name="AdWidth" type="text" id="AdWidth" size="10"> 像素<br>注:尽量使用常用广告尺寸468*60,768*100,120*60等,支持jpg,gif和swf格式的文件上传</TD> </TR> <TR id="h"> <TD>广告高度:</TD> <TD><input name="AdHeight" type="text" id="AdHeight" size="10"> 像素</TD> </TR> <TR id="i"> <TD><span id="t5">广告效果:</span></TD> <TD> <% Response.write "<select name='AdShowType' style='width:290px'>" Sql="Select * From CFWztg_SetContent Where SetBClassFlag='AdminSet' And SetSClassFlag='Admin_Template_AdCode' Order By SetTaxis" Set Rs2=Conn.Execute(Sql) While Not Rs2.Eof Response.write "<option value='"&Rs2("SetFlag")&"'>"&Rs2("SetDesc")&"</option>" Rs2.MoveNext Wend Response.write "</select>" %></TD> </TR> <TR> <TD><span id="t1">每个点击显示或弹出支付:</span></TD> <TD><input name="Unit_Cent" type="text" id="Unit_Cent" size="10"> 元<br>注:精确到0.00001元,即0.001代表1厘,0.01为1分,0.1为1角</TD> </TR> <TR> <TD><span id="t2">网友或网站主获利方式:</span></TD> <TD> <span id="clickstate_1"> </span> <span id="clickstate_2"> </span> <span id="clickstate_3"> </span> </TD> </TR> <TR> <TD><span id="t3">想获得的点击、显示或弹出支付个数:</span></TD> <TD><input name="TotalClick" type="text" size="10"> 个<font color="#FF0000">*</font></TD> </TR> <TR> <TD>发布在哪种类型的网站上:</TD> <TD><input name="siteclass" type="radio" value="1" onclick="siteclassshow_1()" checked> 全部 <input name="siteclass" type="radio" onclick="siteclassshow_2()" value="2"> 以下选择</TD> </TR> <TR id="j"> <TD> </TD> <TD><table border="0" cellpadding="0" cellspacing="0"> <% Set Rs2=Server.CreateObject("Adodb.RecordSet") Sql="Select * From CFWztg_SiteClass Order By SiteClassName" Rs2.Open Sql,Conn,1,1 linenum=5 tdwidth=int(100/linenum)&"%" jishu=1 While Not Rs2.Eof If jishu mod linenum=1 or linenum=1 Then Response.Write "<tr>" End If%> <td width="<%=tdwidth%>"> <input type="checkbox" name="PutSiteClassID" value="<%=Rs2("ID")%>"> <%=Rs2("SiteClassName")%></td> <% If jishu mod linenum=0 Then Response.write "</tr>" End If jishu=jishu+1 Rs2.MoveNext Wend '写tr和td,jishu mod 列数为1时开始tr,为0时结束tr jishu=jishu-1 If jishu Mod linenum <> 0 Then For i= 1 to linenum-(jishu mod linenum) response.write "<td width='"&tdwidth&"'> </td>" If i = linenum-(jishu mod linenum) Then response.write "</tr>" Next End If '判断最后一行tr是否正好闭合,否则增加td,里面填入空格 %> </table></TD> </TR> <tr> <td> </td> <td> <input type="submit" name="Submit" value="确定"> <input type="reset" name="Submit523" value="取消"> </td> </tr> <tr> <td colspan="2"><p>注:<br> 1. 网页文字广告除可以支持自己的输入广告,还支持任何其它广告联盟的Javasript调用的广告,增加时把外部代码放在广告文字(多行)里,广告链接里只要留空可以,外部广告只能统计到显示数,点击数无法统计<br> 2.网页图片广告里的普通固定显示支持Flash格式<br> 3.网页复合广告里的href和http字样必须是小写<br> 4.对广告发布有什么要求可联系客服人员 </td> </tr> </form> </table> <%End If%> <% AdList=ChkStr(Request("AdList"),1) If AdList="" Then AdList="passadlist" %> <%If Action="adlist" Then%> <table class="tb_1"> <tr> <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 CFWztg_AD where AdUserName='"&AdUserName&"' And AdState=2 Order By ID Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 %> <table class="tb_1"> <tr class="tr_1"> <td colspan="9">已经通过审核的广告</td> </tr> <tr class="tr_2"> <td>广告ID</td> <td>广告类型</td> <td>每</td> <td>共</td> <td>共花费</td> <td>已被</td> <td>剩余</td> <td>获利类型</td> <td>操作</td> </tr> <% While Not Rs.Eof I=I+1 %> <tr class="tr_2"> <td><%=Rs("ID")%></td> <td><%=GetAdClassName(Rs("Ad_Class"))%></td> <td><%=Rs("Unit_Cent_First")%>元</td> <td><%=Rs("TotalClick")%></td> <td> <% Response.write Cdbl(Rs("Unit_Cent_First"))*Rs("TotalClick") %>元</td> <td><%=Rs("OverClick")%></td> <td><%=Rs("TotalClick")-Rs("OverClick")%></td> <td> <% If Rs("ClickState")=1 Then Response.Write "点击获利" ElseIf Rs("ClickState")=2 Then Response.Write "显示获利" ElseIf Rs("ClickState")=3 Then Response.Write "注册获利" End if%> </td> <td><a href="?Action=admodify&Ad_ID=<%=Rs("ID")%>">修改</a> | <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></td> </tr> <% Rs.MoveNext Wend %> </table> <%End If%> <%If Action="adlist" And AdList="waitadlist" Then%> <% Sql="Select * From CFWztg_AD where AdUserName='"&AdUserName&"' And AdState=1 Order By ID Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 %> <table class="tb_1"> <tr class="tr_1"> <td colspan="9">等待通过审核的广告</td> </tr> <tr class="tr_2"> <td>广告ID</td> <td>广告类型</td> <td>每</td> <td>共</td> <td>共花费</td> <td>已被</td> <td>剩余</td> <td>获利类型</td> <td> 操作</td> </tr> <% While Not Rs.Eof I=I+1 %> <tr class="tr_2"> <td><%=Rs("ID")%></td> <td><%=GetAdClassName(Rs("Ad_Class"))%></td> <td><%=Rs("Unit_Cent_First")%>元</td> <td><%=Rs("TotalClick")%></td> <td><% Response.write Cdbl(Rs("Unit_Cent_First"))*Rs("TotalClick") %>元</td> <td><%=Rs("OverClick")%></td> <td><%=Rs("TotalClick")-Rs("OverClick")%></td> <td> <% If Rs("ClickState")=1 Then Response.Write "点击获利" ElseIf Rs("ClickState")=2 Then Response.Write "显示获利" ElseIf Rs("ClickState")=3 Then Response.Write "注册获利" End if%> </td> <td><a href="?Action=admodify&Ad_ID=<%=Rs("ID")%>">修改</a> | <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></td> </tr> <% Rs.MoveNext Wend %> </table> <%End If%> <%If Action="adlist" And AdList="refuadlist" Then%> <% Sql="Select * From CFWztg_AD where AdUserName='"&AdUserName&"' And AdState=3 Order By ID Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 %> <table class="tb_1"> <tr class="tr_1"> <td colspan="9">拒绝通过审核的广告</td> </tr> <tr class="tr_2"> <td>广告ID</td> <td>广告类型</td> <td>每</td> <td>共</td> <td>共花费</td> <td>已被</td> <td>剩余</td> <td>获利类型</td> <td> 操作</td> </tr> <% While Not Rs.Eof I=I+1 %> <tr class="tr_2"> <td><%=Rs("ID")%></td> <td><%=GetAdClassName(Rs("Ad_Class"))%></td> <td><%=Rs("Unit_Cent_First")%>元</td> <td><%=Rs("TotalClick")%></td> <td><% Response.write Cdbl(Rs("Unit_Cent_First"))*Rs("TotalClick") %>元</td> <td><%=Rs("OverClick")%></td> <td><%=Rs("TotalClick")-Rs("OverClick")%></td> <td> <% If Rs("ClickState")=1 Then Response.Write "点击获利" ElseIf Rs("ClickState")=2 Then Response.Write "显示获利" ElseIf Rs("ClickState")=3 Then Response.Write "注册获利" End if%> </td> <td><a href="?Action=admodify&Ad_ID=<%=Rs("ID")%>">修改</a> | <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></td> </tr> <% Rs.MoveNext Wend %> </table> <%End If%> <%If Action="adlist" And AdList="overadlist" Then%> <% Sql="Select * From CFWztg_AD where AdUserName='"&AdUserName&"' And AdState=4 Order By ID Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 %> <table class="tb_1"> <tr class="tr_1"> <td colspan="9">已经完成点击的广告</td> </tr> <tr class="tr_2"> <td>广告ID</td> <td>广告类型</td> <td>每</td> <td>共</td> <td>共花费</td> <td>已被</td> <td>剩余</td> <td>获利类型</td> <td> 操作</td> </tr> <% While Not Rs.Eof I=I+1 %> <tr class="tr_2"> <td><%=Rs("ID")%></td> <td><%=GetAdClassName(Rs("Ad_Class"))%></td> <td><%=Rs("Unit_Cent_First")%>元</td> <td><%=Rs("TotoalClike")%></td> <td><% Response.write Cdbl(Rs("Unit_Cent_First"))*Rs("TotalClick") %>元</td> <td><%=Rs("OverClick")%></td> <td><%=Rs("TotalClick")-Rs("OverClick")%></td> <td> <% If Rs("ClickState")=1 Then Response.Write "点击获利" ElseIf Rs("ClickState")=2 Then Response.Write "显示获利" ElseIf Rs("ClickState")=3 Then Response.Write "注册获利" End if%> </td> <td><a href="?Action=admodify&Ad_ID=<%=Rs("ID")%>">修改</a> | <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></td> </tr> <% Rs.MoveNext Wend %> </table> <%End If%> <%If Action="admodify" Then%> <% Ad_ID=ChkStr(Request("Ad_ID"),2) Set Rs = Server.CreateObject("ADODB.Recordset") Sql="Select * From CFWztg_AD where ID="&Ad_ID Rs.open Sql,Conn,1,1 Ad_Class=Rs("Ad_Class") Ad=Rs("Ad") AdIntro=Rs("AdIntro") Ad_Url=Rs("Ad_Url") AdSimpleUrl=Rs("AdSimpleUrl") CheckDesc="请修改你想修改的项目,修改后等待管理员进行审核!" %> <table class="tb_1"> <tr class="tr_1"> <td colspan="2">正在使用的广告</td> </tr> <%If Ad_Class=1 Or Ad_Class=3 Or Ad_Class=5 Or Ad_Class=7 Then%> <tr> <td>广告文字:</td> <td><textarea name="ad" cols="58" rows="5" readonly style='background-color:#eeeeee'><%=Ad%></textarea> <br> 支持的参数有{username},{userid},{ad_id},{selfvar},{reurl} </td></tr> <%ElseIf Ad_Class=2 Or Ad_Class=4 Then%> <tr> <td>广告图片:</td> <td><input name="ad" type="text" style='background-color:#eeeeee' value="<%=Ad%>" size="60" readonly> <br> (注:广告图片放在upload目录下,这里填写upload/aaa.jpg之类)</td> </tr> <%End If%> <%If Ad_Class=5 Then%> <tr> <td>广告简介文字:</td> <td><input name="AdIntro" type="text" value="<%=AdIntro%>" size="60" readonly style='background-color:#eeeeee'></td> </tr> <%End If%> <TR> <TD>广告链接:</TD> <TD><input name="ad_url" type="text" value="<%=Ad_Url%>" size="60" readonly style='background-color:#eeeeee'> <br> <font color="#FF0000">*</font> 注:链接中带{username}的话可以把网站主参数传递过去,带{ad_id}的话可以把广告ID传递过去,带{selfvar}的话可以把自定义参数传递过去</TD> </TR> <%If Ad_Class=5 Then%> <tr> <td>简短域名:</td> <td><input name="AdSimpleUrl" type="text" value="<%=AdSimpleUrl%>" size="60" readonly style='background-color:#eeeeee'></td> </tr> <%End If%> <% Set Rs = Server.CreateObject("ADODB.Recordset") Sql="Select * From CFWztg_AD_Check where Ad_ID="&Ad_ID Rs.open Sql,Conn,1,1 If Not(Rs.Eof) Then Ad=Rs("Ad") AdIntro=Rs("AdIntro") Ad_Url=Rs("Ad_Url") AdSimpleUrl=Rs("AdSimpleUrl") If Rs("CheckState")=1 Then CheckDesc="以下内容管理员正在审核,你可以再次修改下面的内容,修改后等待管理员审核" ElseIf Rs("CheckState")=2 Then CheckDesc="以下内容已经通过管理员审核,你可以再次修改下面的内容,修改后等待管理员审核" ElseIf Rs("CheckState")=3 Then CheckDesc="以下内容没有通过管理员审核,你可以再次修改下面的内容,修改后等待管理员审核" End If End If %> <tr class="tr_1"> <td colspan="2">如需要请修改以下广告内容</td> </tr> <form name="form1" method="post" action="AdUser.aspx?Action=admodifysave&Ad_ID=<%=Ad_ID%>"> <tr> <td width="20%">状态:</td> <td><font color="#FF0000"><%=CheckDesc%></font></td> </tr> <tr> <td>广告类型:</td> <td><%=GetAdClassName(Ad_Class)%></td> </tr> <%If Ad_Class=1 Or Ad_Class=3 Or Ad_Class=5 Or Ad_Class=7 Then%> <tr> <td>广告文字:</td> <td><textarea name="ad" cols="58" rows="5"><%=Ad%></textarea> <br> 支持的参数有{username},{userid},{ad_id},{selfvar},{reurl} </td></tr> <%ElseIf Ad_Class=2 Or Ad_Class=4 Then%> <tr> <td>广告图片:</td> <td><input name="ad" type="text" value="<%=Ad%>" size="60"> <br> (注:广告图片放在upload目录下,这里填写upload/aaa.jpg之类)</td> </tr> <TR id="a_3"> <TD>图片上传:</TD> <TD><iframe style="top:2px" ID="UploadFiles" src="cf_upfile.asp?site=admodify" frameborder=0 scrolling=no width="280" height="25"></iframe></TD> </TR> <%End If%> <%If Ad_Class=5 Then%> <tr> <td>广告简介文字:</td> <td><input name="AdIntro" type="text" value="<%=AdIntro%>" size="60"></td> </tr> <%End If%> <TR> <TD>广告链接:</TD> <TD><input name="ad_url" type="text" value="<%=Ad_Url%>" size="60"> <br> <font color="#FF0000">*</font> 注:链接中带{username}的话可以把网站主参数传递过去,带{ad_id}的话可以把广告ID传递过去,带{selfvar}的话可以把自定义参数传递过去</TD> </TR> <%If Ad_Class=5 Then%> <tr> <td>简短域名:</td> <td><input name="AdSimpleUrl" type="text" value="<%=AdSimpleUrl%>" size="60"></td> </tr> <%End If%> <TR> <TD> </TD> <TD><input type="submit" name="Submit3" value="修改"></TD> </TR> </form> </table> <%End If%> <%If Action="clickchase" Then%> <% ID=ChkStr(Request("ID"),2) %> <table class="tb_1"> <tr class="tr_1"> <td colspan="2">追加点数</td> </tr> <form name="form1" method="post" action="AdUser.aspx?action=chaseclicksave&ID=<%=ID%>"> <tr> <td width="10%">广告编号:</td> <td><%=ID%></td> </tr> <TR> <TD>追加点击数:</TD> <TD><input name="ChaseClickNum" type="text" size="10"> 个</TD> </TR> <tr> <TD></TD> <td> <input type="submit" name="Submit" value="确定"> <input type="reset" name="Submit523" value="取消"> </td> </tr> </form> </table> <%End If%> <%If Action="lowuserlist" Then%> <table class="tb_1"> <tr class="tr_1"> <td>序 号</td> <td>推广人</td> <td>推荐会员名</td> <td>时 间</td> <td></td> </tr> <% UserName=ChkStr(Request("UserName"),1) AddDate=ChkStr(Request("AddDate"),3) Sql="Select * From CFWztg_LowUser Where AdUserName='"&AdUserName&"'" If UserName<>"" Then Sql=Sql&" And UserName='"&UserName&"'" If AddDate<>"" Then Sql=Sql&" And AddDate=#"&AddDate&"#" Sql=Sql&" Order By ID Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 If Not Rs.eof Then If ChkStr(Request("Page"),2) = "" Then Page = 1 Else Page = CLng(ChkStr(Request("Page"),2)) 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 class="tr_2"> <td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td> <td><%=Rs("UserName")%></td> <td><%=Rs("LowUserName")%></td> <td><%=Rs("AddTime")%></td> <td><a href="?Action=orderadd&OrderCode=<%=Rs("LowUserName")%>&OrderUser=<%=Rs("LowUserName")%>&OrderTcRate=100&TcObject=1">给推广人提成</a></td> </tr> <% MyPageSize = MyPageSize-1 Rs.MoveNext Wend %> </table> <table class="tb_3"> <tr> <td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&AddDate=<%=AddDate%>&Page=1">第一页</a> <% If Page > 1 Then %> <a href='?Action=<%=Action%>&UserName=<%=UserName%>&AddDate=<%=AddDate%>&Page=<%=Page-1%>'>上一页</a> <% End If %> <% If Page < Rs.PageCount Then %> <a href='?Action=<%=Action%>&UserName=<%=UserName%>&AddDate=<%=AddDate%>&Page=<%=Page+1%>'>下一页</a> <% End If %> <a href="?Action=<%=Action%>&UserName=<%=UserName%>&AddDate=<%=AddDate%>&Page=<%=Totalpage%>">最后一页</a> 页次:<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=TotalRs%>条记录 每页显示<%=Rs.PageSize%>条 <% Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">" For I=1 To TotalPage Response.Write "<option value=?Action="& Action &"&UserName="& UserName &"&AddDate="& AddDate &"&Page="& I If Page=I Then Response.Write " selected" Response.Write ">"& I &"</option>" Next Response.write "</select>页" %></td> </tr> </table> <table class="tb_3"> <tr> <form name="form6" method="post" action="?Action=<%=Action%>"> <td>推广人 <input name="UserName" type="text" id="UserName" size="15"></td> <td> 选择查询的日期 <Select name="adddate" size="1"> <option value="">所有日期</option> <% Sql="Select AddDate From CFWztg_LowUser Where AdUserName = '"& AdUserName &"' 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%> <%If Action="orderlist" Or Action="ordersearch" Then%> <table class="tb_1"> <tr> <td colspan="11"><input type="button" name="Submit7" value="手工导入定单" onClick="location.href='?action=orderadd';"></td> </tr> <tr class="tr_1"> <td>序 号</td> <td>订单号</td> <td>订单人</td> <td>金额</td> <td>提成比例</td> <td>提成对象</td> <td>订单状态</td> <td>推荐人</td> <td>已结算ID</td> <td>导入时间</td> <td>操作</td> </tr> <% OrderCode=ChkStr(Trim(Request("OrderCode")),1) OrderUser=ChkStr(Trim(Request("OrderUser")),1) OrderState=ChkStr(Request("OrderState"),2) AddTime=ChkStr(Trim(Request("AddTime")),3) Sql="Select * From CFWztg_AdUser_Order Where AdUserName='"&AdUserName&"'" If Action="ordersearch" Then If OrderCode<>"" Then Sql=Sql&" And OrderCode='"&OrderCode&"'" If OrderUser<>"" Then Sql=Sql&" And OrderUser='"&OrderUser&"'" If OrderState<>"" Then Sql=Sql&" And OrderState="&OrderState If AddTime<>"" Then Sql=Sql&" And DateDiff(d,'"&AddTime&"',AddTime)=0" End If Sql=Sql&" Order By ID Desc" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,1 If Not Rs.eof Then If ChkStr(Request("Page"),2) = "" Then Page = 1 Else Page = CLng(ChkStr(Request("Page"),2)) 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 class="tr_2"> <td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td> <td><%=Rs("OrderCode")%></td> <td><%=Rs("OrderUser")%></td> <td><%=Rs("OrderCent")%>元</td> <td><%=Rs("OrderTcRate")%></td> <td><% If Rs("tcobject")=1 Then Response.write "推荐人" Else Response.write "订单人" End If %></td> <td> <% If Rs("OrderState")=1 Then Response.write "即时提成" ElseIf Rs("OrderState")=2 Then Response.write "等待确认" ElseIf Rs("OrderState")=3 Then Response.write "确认成功" ElseIf Rs("OrderState")=4 Then Response.write "确认失败" End If %> </td> <td> <% If Rs("UserName")<>"" Then Response.write Rs("UserName") Else Response.write "缺" End If %> </td> <td> <% If Rs("SpendID")<>0 Then Response.write Rs("SpendID") Else Response.write "缺" End If %> </td> <td><%=Rs("AddTime")%></td> <td> <% If Rs("OrderState")=2 Then Response.write "<a href='AdUser.aspx?Action=ordermodify&OrderCode="& Rs("OrderCode") &"' onclick=""{if(confirm('确定要确认这个定单么?')){return true;}return false;}"">成功</a>" Response.write " <a href='AdUser.aspx?Action=ordermodify_2&OrderCode="& Rs("OrderCode") &"' onclick=""{if(confirm('确定要确认这个定单么?')){return true;}return false;}"">失败</a>" Response.write " <a href='AdUser.aspx?Action=orderdel&OrderCode="& Rs("OrderCode") &"' onclick=""{if(confirm('确定要删除这个定单么?')){return true;}return false;}"">删除</a>" ElseIf Rs("OrderState")=4 Then Response.write "<a href='AdUser.aspx?Action=orderdel&OrderCode="& Rs("OrderCode") &"' onclick=""{if(confirm('确定要删除这个定单么?')){return true;}return false;}"">删除</a>" End If %> </td> </tr> <% MyPageSize = MyPageSize-1 Rs.MoveNext Wend %> </table> <table class="tb_3"> <tr> <td><a href="?Action=<%=Action%>&OrderCode=<%=OrderCode%>&OrderUser=<%=OrderUser%>&OrderState=<%=OrderState%>&AddTime=<%=AddTime%>&Page=1">第一页</a> <% If Page > 1 Then %> <a href='?Action=<%=Action%>&OrderCode=<%=OrderCode%>&OrderUser=<%=OrderUser%>&OrderState=<%=OrderState%>&AddTime=<%=AddTime%>&Page=<%=Page-1%>'>上一页</a> <% End If %> <% If Page < Rs.PageCount Then %> <a href='?Action=<%=Action%>&OrderCode=<%=OrderCode%>&OrderUser=<%=OrderUser%>&OrderState=<%=OrderState%>&AddTime=<%=AddTime%>&Page=<%=Page+1%>'>下一页</a> <% End If %> <a href="?Action=<%=Action%>&OrderCode=<%=OrderCode%>&OrderUser=<%=OrderUser%>&OrderState=<%=OrderState%>&AddTime=<%=AddTime%>&Page=<%=Totalpage%>">最后一页</a> 页次:<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=TotalRs%>条记录 每页显示<%=Rs.PageSize%>条 <% Response.write " 转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">" For I=1 To TotalPage Response.Write "<option value=?Action="& Action &"&OrderCode="& OrderCode&"&OrderUser="& OrderUser &"&OrderState="& OrderState&"&AddTime="& AddTime &"&Page="& I If Page=I Then Response.Write " selected" Response.Write ">"& I &"</option>" Next Response.write "</select>页" %></td> </tr> </table> <table class="tb_3"> <form name="form2" method="post" action="?action=ordersearch"> <tr> <td><strong>搜 索</strong> </td> <td>订单号</td> <td><input name="OrderCode" type="text" id="OrderCode" size="10"></td> <td>订单人</td> <td><input name="OrderUser" type="text" id="OrderUser" size="10"></td> <td>选择状态</td> <td><select name="OrderState"> <option value="">全部定单</option> <option value="1">即时确认的定单</option> <option value="2">等待确认的定单</option> <option value="3">确认成功的定单</option> <option value="4">确认失败的定单</option> </select> </td> <td>导入时间</td> <td><input name="AddTime" type="text" id="AddTime" size="10">(格式如:2000-1-1)</td> <td><input type="submit" name="Submit332" value="搜索"></td> <tr> </form> </table> <%end if%> <%If Action="orderadd" Then%> <% OrderCode=ChkStr(Request("OrderCode"),1) OrderUser=ChkStr(Request("OrderUser"),1) OrderTcRate=ChkStr(Request("OrderTcRate"),2) TcObject=ChkStr(Request("TcObject"),2) TcType=ChkStr(Request("TcType"),2) %> <table class="tb_1"> <form name="form2" method="post" action="?Action=orderadd_2"> <tr class="tr_1"> <td colspan="2">订单导入</td> </tr> <tr> <td width="12%">订单号:</td> <td><input name="OrderCode" type="text" value="<%=OrderCode%>"></td> </tr> <tr> <td>订单人:</td> <td><input name="OrderUser" type="text" value="<%=OrderUser%>"> </td> </tr> <tr> <td>订单金额:</td> <td><input name="OrderCent" type="text"> 以元为单位</td> </tr> <tr> <td>实际提成比例:</td> <td><input name="OrderTcRate" type="text" size="5" value="<%=OrderTcRate%>"> %(此项可留空,留空的话提成比例为系统默认的<%=RsSet("UserOrderTcRate")%>%)</td> </tr> <tr> <td>定单提成对象:</td> <td><input type="radio" name="TcObject" value="1"<%If CInt(TcObject)=1 Then Response.write " checked"%>>订单人的推荐人 <input type="radio" name="TcObject" value="2"<%If CInt(TcObject)=2 Then Response.write " checked"%>>订单人自己</td> </tr> <tr> <td>提成方式:</td> <td><input type="radio" name="TcType" value="1"<%If CInt(TcType)=1 Then Response.write " checked"%>>即时提成 <input type="radio" name="TcType" value="2"<%If CInt(TcType)=2 Then Response.write " checked"%>>等待确认</td> </tr> <tr> <td></td> <td> <input type="submit" name="Submit3322" value="导入"> </td> </tr> </form> </table> <%End IF%> <%If Action="orderadd_2" Then%> <% OrderCode=ChkStr(Trim(Request("OrderCode")),1) OrderUser=ChkStr(Trim(Request("OrderUser")),1) OrderCent=ChkStr(Trim(Request("OrderCent")),2) OrderTcRate=ChkStr(Trim(Request("OrderTcRate")),2) TcObject=CInt(ChkStr(Trim(Request("TcObject")),2)) TcType=CInt(ChkStr(Trim(Request("TcType")),2)) Set Rs= Server.CreateObject("Adodb.RecordSet") Sql="Select * From CFWztg_AdUser Where AdUserName='"&AdUserName&"'" Rs.Open Sql,Conn,1,1 CheckCode = Md5(AdUserName&OrderCode&OrderUser&OrderCent&OrderTcRate&TcObject&TcType&Rs("RecSafeCode"),1) %> <table class="tb_1"> <form name="form2" method="post" action="OrderRec.asp" target="_blank"> <tr class="tr_1"> <td colspan="2">订单导入</td> </tr> <tr> <td width="14%">订单号:</td> <td><input name="OrderCode" type="hidden" value="<%=OrderCode%>"> <%=OrderCode%></td> </tr> <tr> <td>订单人:</td> <td><input type="hidden" name="OrderUser" value="<%=OrderUser%>"> <%=OrderUser%> </td> </tr> <tr> <td>订单金额:</td> <td><input type="hidden" name="OrderCent" value="<%=OrderCent%>"> <%=OrderCent%>元 </td> </tr> <tr> <td>实际提成比例:</td> <td><input type="hidden" name="OrderTcRate" value="<%=OrderTcRate%>"> <%=OrderTcRate%> <% If OrderTcRate="" Then Response.write RsSet("UserOrderTcRate") OrderTcRate=RsSet("UserOrderTcRate") End If%> %</td> </tr> <tr> <td>定单提成对象:</td> <td><input type="hidden" name="TcObject" value="<%=TcObject%>"> <% If TcObject = 1 Then Response.write "订单人的推荐人" Else Response.write "订单人自己" End If %></td> </tr> <tr> <td>提成方式:</td> <td><input type="hidden" name="TcType" value="<%=TcType%>"> <% If TcType = 1 Then Response.write "即时提成" ElseIf TcType = 2 Then Response.write "等待确认" End If %></td> </tr> <tr> <td>提成对象将获利:</td> <td><%=OrderCent*CInt(OrderTcRate)/100%>元 </td> </tr> <tr> <td></td> <td> <input name="AdUserName" type="hidden" value="<%=AdUserName%>"> <input name="CheckCode" type="hidden" value="<%=CheckCode%>"> <input type="submit" name="Submit3322" value="确定导入"> </td> </tr> </form> </table> <%End IF%> <%If Action="recsafecodemodify" Then%> <% Set Rs = Server.CreateObject("ADODB.Recordset") Sql="Select * From CFWztg_AdUser where AdUserName='"&AdUserName&"'" Rs.Open Sql,Conn,1,1 %> <table class="tb_1"> <form name="form3" method="post" action="AdUser.aspx?Action=recsafecodemodifysave"> <tr class="tr_1"> <td>接口安全码设置</td> </tr> <tr> <td>接口安全码: <input name="RecSafeCode" type="text" value="<%=Rs("RecSafeCode")%>"> <input type="submit" name="Submit4" value="修改安全码"> </td> </tr></form> </table> <%End if%> <%If Action="reccodeview" Then%> <% If ChkStr(Request("RecCodeType"),2)="" Then RecCodeType=0 Else RecCodeType=CInt(ChkStr(Request("RecCodeType"),2)) End If %> <table class="tb_1"> <tr> <td class="tr_1">请选择代码类型:</td> </tr> <form name="form1" action="#"> <tr> <td> <input style="width:120px" type="button" name="b1" value="引导注册类(CPL)"onClick="location.href='?Action=<%=Action%>&RecCodeType=1';"<%If RecCodeType=1 Then Response.write " class='button_2'"%>> <input style="width:120px" type="button" name="b2" value="订单提成类(CPS)"onClick="location.href='?Action=<%=Action%>&RecCodeType=2';"<%If RecCodeType=2 Then Response.write " class='button_2'"%>> <input style="width:140px" type="button" name="b2" value="订单用户查询类(CPS)"onClick="location.href='?Action=<%=Action%>&RecCodeType=3';"<%If RecCodeType=3 Then Response.write " class='button_2'"%>> <input style="width:120px" type="button" name="b3" value="点击确认代码"onClick="location.href='?Action=<%=Action%>&RecCodeType=4';"<%If RecCodeType=4 Then Response.write " class='button_2'"%>> </td> </tr> </form> </table> <%If RecCodeType=1 Then%> <table class="tb_1"> <tr class="tr_1"> <td>推荐用户注册接口代码</td> </tr> <tr> <td> checkcode:定单接口验证码,格式:Md5(lowusername&接口密钥),16位Md5,广告开启了URL验证这个值则必须</td> </tr> <tr> <td>方法1:(Iframe方式调用 ,修改你网站的用户注册页面,注册成功后执行此代码,再转向注册成功后的页面,作用为推荐注册的用户为点数用户名参数名为username(必须),checkcode(如果广告里开启了Url验证这个也必须))</td> </tr> <tr> <td><textarea name="rec1" cols="80" rows="3"><iframe src=<%=Tmp%>cf.aspx?action=lowreg&lowusername=&checkcode= frameBorder=0 width=0 height=0 marginheight=0 marginwidth=0 scrolling=no></iframe></textarea> <input type="submit" value="复制" onClick=copy('rec1')> </td> </tr> <tr> <td>方法2:url方式调用 ,用户在注册页面注册后,在进入的页面投放下面的代码,进入的页面的url里带用户名,用户名参数名为username(必须),checkcode(如果广告里开启了Url验证这个也必须)</td> </tr> <tr> <td> <textarea name="rec2" cols="80" rows="10"> <script> var lowusername=""; var checkcode=""; myurl = window.location.href; pos = myurl.indexOf("?") if(pos>0){ parastr = myurl.substring(pos+1); if (myurl.indexOf("&")==-1){ pos = parastr.indexOf("="); if(parastr.substring(0,pos).toLowerCase()=="username"){ lowusername=parastr.substring(pos+1); } } else{ para = parastr.split("&"); for(i=0;i<para.length;i++){ mystr = para[i]; pos = mystr.indexOf("="); if(mystr.substring(0,pos).toLowerCase()=="username"){ lowusername=mystr.substring(pos+1); } if(mystr.substring(0,pos).toLowerCase()=="checkcode"){ checkcode=mystr.substring(pos+1); } } } } if(lowusername!=""){ alert("<iframe src=<%=Tmp%>cf.aspx?action=lowreg&lowusername="+lowusername+"&checkcode="+checkcode+" frameBorder=0 width=0 height=0 marginheight=0 marginwidth=0 scrolling=no></iframe>"); } </script></textarea><input type="submit" value="复制" onClick=copy('rec2')> </td> </tr> </table> <%End If%> <%If RecCodeType=2 Then%> <table class="tb_1"> <tr> <td><p>请把成功付费消费的定单用参数传递到以下接口:<br> <textarea name="rec1" cols="80" rows="5"><iframe src=<%=Tmp%>orderrec.asp?adusername=<%=AdUserName%>&ordercode=&orderuser=&ordercent=&ordertcrate=&tcobject=&tctype=&checkcode= frameBorder=0 width=0 height=0 marginheight=0 marginwidth=0 scrolling=no></iframe></textarea> <input name="Button" type="button" onClick=copy('rec1') value="复制"> <p>参数说明:<br> 1.adusername:广告主的用户名<br> 2.ordercode:订单号码<br> 3.orderuser:订单用户的用户名<br> 4.ordercent:订单金额,数字,以元为单位<br> 5.ordertcrate:定单提成比率例数字,0-100之间为空时,为系统默认提成比率<%=RsSet("UserOrderTcRate")%>%<br> 6.tcobject:定单提成给谁,1订单人的推荐人,2定单人自己<br> 7.tctype:定单提成类型,1即时提成,2等待确认<br> 8.checkcode:定单接口验证码,格式:Md5(adusername&ordercode&orderuser&ordercent&ordertcrate&tcobject&tctype&接口密钥),Md5为16位,保证接口安全性,接口密钥为上面设置的值,各参数顺序不能混乱<br> </td> </tr> </table> <%End If%> <%If RecCodeType=3 Then%> <table class="tb_1"> <tr> <td><p>查询订单是否在推广系统里存在:<br> <textarea name="rec1" cols="80" rows="5"><iframe src=<%=Tmp%>cf.aspx?action=userquery&adusername=<%=adusername%>&orderuser=&ordercode=&ordercent=&ordertcrate=&tcobject=&tctype= frameBorder=0 width=100 height=30 marginheight=0 marginwidth=0 scrolling=no></iframe></textarea> <input name="Button" type="button" onClick=copy('rec1') value="复制"> <p>参数说明:<br> <br> </td> </tr> </table> <%End If%> <%If RecCodeType=4 Then%> <table class="tb_1"> <tr> <td><p>如广告需要多次确认时,广告主在页面上请加上下面的代码:<br> <textarea name="rec1" cols="80" rows="5"><iframe src=<%=Tmp%>cf.aspx?action=adaffirm&delaytime=&reurl= frameBorder=0 width=0 height=0 marginheight=0 marginwidth=0 scrolling=no></iframe></textarea> <input name="Button" type="button" onClick=copy('rec1') value="复制"> <p>参数说明:<br> 1.delaytime:延时确认的秒数,留空或0则不延时,即时确认点击<br> 2.reurl:确认点击后转向到哪个URL,留空则不转向<br> </td> </tr> </table> <%End If%> <%End If%>