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>&nbsp;</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&"'>&nbsp;</td>"
	If  i = linenum-(jishu mod linenum) Then response.write "</tr>"
Next
End If '判断最后一行tr是否正好闭合,否则增加td,里面填入空格
%>
        </table></TD>
    </TR>
	
    <tr> 
	<td>&nbsp;</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>&nbsp;</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%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=Rs.PageSize%>条
<%
Response.write "&nbsp;&nbsp;转到第<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 "&nbsp;&nbsp;<a href='AdUser.aspx?Action=ordermodify_2&OrderCode="& Rs("OrderCode") &"' onclick=""{if(confirm('确定要确认这个定单么?')){return true;}return false;}"">失败</a>"
 Response.write "&nbsp;&nbsp;<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%>页&nbsp;&nbsp;共<%=TotalRs%>条记录&nbsp;&nbsp;每页显示<%=Rs.PageSize%>条
<%
Response.write "&nbsp;&nbsp;转到第<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="确定导入">
          &nbsp;&nbsp;</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>
&nbsp;&nbsp;<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'"%>>
&nbsp;&nbsp;<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'"%>>
&nbsp;&nbsp;<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'"%>>
&nbsp;&nbsp;<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%>