www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_Admin_Manage_3.asp
<%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<%If Action="passadlist" Then%>
<%
Px=ChkStr(Request("Px"),1)
If Px="" Then Px="id"
If Px="ad_class" Then
Sql="Select * From CFWztg_AD where AdState=2 Order By "&Px&" Asc"
Else
Sql="Select * From CFWztg_AD where AdState=2 Order By "&Px&" Desc"
End If
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="12">已经通过审核的广告
<input type="submit" name="Submit2" value="按类型排序" onclick="location.href='?Action=passadlist&Px=ad_class'">
<input type="submit" name="Submit3" value="按时间排序" onclick="location.href='?Action=passadlist&Px=id'"> </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>
<td>列表显示</td>
<td>获利类型</td>
<td>
操作</td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr class="tr_2">
<td><%=Rs("ID")%></td>
<td><%=Rs("AdUserName")%></td>
<td><%=GetAdClassName(Rs("Ad_Class"))%></td>
<td><%=Rs("Unit_Cent")%>元</td>
<td><%=Rs("TotalClick")%></td>
<td><%=Cdbl(Rs("Unit_Cent"))*Rs("TotalClick")%>元</td>
<td><%=Rs("OverClick")%></td>
<td><%=Rs("TotalClick")-Rs("OverClick")%></td>
<td><%=Rs("AdDeDuct_Rate")%>%</td>
<td>
<%
If Rs("AdListShowState")=-1 Then
Response.Write "显示"
Else
Response.Write "不显示"
End if%> </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&ID=<%=Rs("ID")%>">修改</a> | <a href="Admin.aspx?Action=addel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a> | <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="pauseadlist" Then%>
<%
Px=ChkStr(Request("Px"),1)
If Px="" Then Px="id"
If Px="ad_class" Then
Sql="Select * From CFWztg_AD where AdState=5 Order By "&Px&" Asc"
Else
Sql="Select * From CFWztg_AD where AdState=5 Order By "&Px&" Desc"
End If
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="12">已经通过暂停中的广告
<input type="submit" name="Submit2" value="按类型排序" onclick="location.href='?Action=pauseadlist&Px=ad_class'">
<input type="submit" name="Submit3" value="按时间排序" onclick="location.href='?Action=pauseadlist&Px=id'">
</strong></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>
<td>列表显示</td>
<td>获利类型</td>
<td>操作</td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr class="tr_2">
<td><%=Rs("ID")%></td>
<td><%=Rs("AdUserName")%></td>
<td><%=GetAdClassName(Rs("Ad_Class"))%></td>
<td><%=Rs("Unit_Cent")%>元</td>
<td><%=Rs("TotalClick")%></td>
<td><%=Cdbl(Rs("Unit_Cent"))*Rs("TotalClick")%>元</td>
<td><%=Rs("OverClick")%></td>
<td><%=Rs("TotalClick")-Rs("OverClick")%></td>
<td><%=Rs("AdDeDuct_Rate")%>%</td>
<td>
<%
If Rs("AdListShowState")=-1 Then
Response.Write "显示"
Else
Response.Write "不显示"
End if%> </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&ID=<%=Rs("ID")%>">修改</a> | <a href="Admin.aspx?Action=addel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a> | <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="waitadlist" Then%>
<%
Sql="Select * From CFWztg_AD where AdState=1 Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<table class="tb_1">
<tr>
<td colspan="11"><input type="submit" name="Submit3" value="点击这里开始审核广告" onclick="location.href='?Action=aduserexpendlist'"></td>
</tr>
<tr class="tr_1">
<td colspan="11">等待通过审核的广告</strong>
(注：广告追加点数并未在此列出，审核和查看新发布或追加点数的操作请点"我要审核广告")</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>
<td>获利类型</td>
<td>
操作</strong></td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr class="tr_2">
<td><%=Rs("ID")%></td>
<td><%=Rs("AdUserName")%></td>
<td><%=GetAdClassName(Rs("Ad_Class"))%></td>
<td><%=Rs("Unit_Cent")%>元</td>
<td><%=Rs("TotalClick")%></td>
<td><%=Cdbl(Rs("Unit_Cent"))*Rs("TotalClick")%></td>
<td><%=Rs("OverClick")%></td>
<td><%=Rs("TotalClick")-Rs("OverClick")%></td>
<td><%=Rs("AdDeDuct_Rate")%>%</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="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="refuadlist" Then%>
<%
Sql="Select * From CFWztg_AD where 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="11">拒绝通过审核的广告</td>
</tr>
<tr>
<td>广告ID</td>
<td>广告主</td>
<td>广告类型</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><%=Rs("AdUserName")%></td>
<td><%=GetAdClassName(Rs("Ad_Class"))%></td>
<td><%=Rs("Unit_Cent")%>元</td>
<td><%=Rs("TotalClick")%></td>
<td><%=Cdbl(Rs("Unit_Cent"))*Rs("TotalClick")%></td>
<td><%=Rs("OverClick")%></td>
<td><%=Rs("TotalClick")-Rs("OverClick")%></td>
<td><%=Rs("AdDeDuct_Rate")%>%</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="Admin.aspx?Action=addel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a> | <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="overadlist" Then%>
<%
Sql="Select * From CFWztg_AD where 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="12">已经完成点击的广告</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>
<td>获利类型</td>
<td>
操作</td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr class="tr_2">
<td><%=Rs("ID")%></td>
<td><%=Rs("AdUserName")%></td>
<td><%=GetAdClassName(Rs("Ad_Class"))%></td>
<td><%=Rs("Unit_Cent")%>元</td>
<td><%=Rs("TotalClick")%></td>
<td><%=Cdbl(Rs("Unit_Cent"))*Rs("TotalClick")%></td>
<td><%=Rs("OverClick")%></td>
<td><%=Rs("TotalClick")-Rs("OverClick")%></td>
<td><%=Rs("AdDeDuct_Rate")%>%</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="Admin.aspx?Action=addel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a> | <a href="ViewAd.asp?ID=<%=Rs("ID")%>" target="_blank">广告预览</a></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%If Action="admodify" Then%>
<script>
function bshow_1(){
b_1.style.display = "none";
}
function bshow_2(){
b_1.style.display = "";
}
function cshow_1(){
c_1.style.display = "";
<%If Rs("PutRange")=3 Then%>
d_1.style.display = "";
d_2.style.display = "none";
<%End If%>
<%If Rs("PutRange")=5 Then%>
d_1.style.display = "none";
d_2.style.display = "";
<%End If%>
}
function cshow_2(){
c_2.style.display = "";
<%If Rs("PutRange_2")=3 Then%>
g_1.style.display = "";
g_2.style.display = "none";
<%End If%>
<%If Rs("PutRange_2")=4 Then%>
g_1.style.display = "none";
g_2.style.display = "";
<%End If%>
}
function dshow_1(){
d_1.style.display = "none";
d_2.style.display = "none";
}
function dshow_2(){
d_1.style.display = "";
d_2.style.display = "none";
}
function dshow_3(){
d_1.style.display = "none";
d_2.style.display = "";
}
function gshow_1(){
g_1.style.display = "none";
g_2.style.display = "none";
}
function gshow_2(){
g_1.style.display = "";
g_2.style.display = "none";
}
function gshow_3(){
g_1.style.display = "none";
g_2.style.display = "";
}
function eshow_1(){
e_1.style.display = "";
}
function eshow_2(){
e_1.style.display = "none";
}
function fshow_1(){
f_1.style.display = "";
f_2.style.display = "";
}
function fshow_2(){
f_1.style.display = "none";
f_2.style.display = "none";
}
</script>
<table class="tb_1" id="tbu">
<tr class="tr_1">
<td colspan="2">广告修改</td>
</tr>
<form name="form1" method="post" action="Admin.aspx?action=admodifysave&ID=<%=ID%>&Ad_Class=<%=Rs("Ad_Class")%>">
<tr>
<td width="28%">广告类型：</td>
<td><%=GetAdClassName(Rs("Ad_Class"))%></td>
</tr>
<tr>
<td>广告名称：</td>
<td><input name="AdName" type="text" value="<%=Rs("AdName")%>" size="40"></td>
</tr>
<%If Rs("ad_class")=1 Or Rs("ad_class")=3 Or Rs("ad_class")=5 Or Rs("ad_class")=7 Then%>
<tr>
<td>广告文字：</td>
<td><textarea name="Ad" cols="50" rows="5"><%=Rs("Ad")%></textarea>
<br>
支持的参数有{username},{userid},{ad_id},{selfvar},{reurl} </td>
</tr>
<%Else%>
<tr>
<td>广告图片：</td>
<td><input name="Ad" type="text" value="<%=Rs("Ad")%>" size="40">
<br>
(注:广告图片放在upload目录下,这里填写upload/aaa.jpg之类)</td>
</tr>
<%End If%>
<%If Rs("ad_class")=5 Then%>
<tr>
<td>广告简介文字：</td>
<td><input name="AdIntro" type="text" value="<%=Rs("AdIntro")%>" size="40"></td>
</tr>
<%End If%>
<TR>
<TD>广告链接：</TD>
<TD><input name="Ad_Url" type="text" value="<%=Rs("Ad_Url")%>" size="40">
<br> <font color="#FF0000">*</font> 注：链接中带{username}的话可以把网站主参数传递过去,带{ad_id}的话可以把广告ID传递过去,带{selfvar}的话可以把自定义参数传递过去</TD>
</TR>
<%If Rs("ad_class")=5 Then%>
<tr>
<td>简短域名：</td>
<td><input name="AdSimpleUrl" type="text" value="<%=Rs("AdSimpleUrl")%>" size="40"></td>
</tr>
<%End If%>
<%If Rs("ad_class")=3 Or Rs("ad_class")=4 Or Rs("ad_class")=7 Then%>
<TR>
<TD>广告宽度：</TD>
<TD><input name="AdWidth" type="text" id="AdWidth" value="<%=Rs("AdWidth")%>" size="5">
像素*</TD>
</TR>
<TR>
<TD>广告高度：</TD>
<TD><input name="AdHeight" type="text" id="AdHeight" value="<%=Rs("AdHeight")%>" size="5">
像素*</TD>
</TR>
<%End If%>
<%If Rs("ad_class")=7 Then%>
<TR>
<TD>广告效果：</TD>
<TD>
<%
Sql="Select SetFlag From CFWztg_SetContent Where SetBclassFlag='AdminSet' And SetSclassFlag='Admin_Template_AdCode' Order By SetTaxis"
Set Rs2=Conn.Execute(Sql)
%>
<select name="AdShowType" id="AdShowType">
<%
Sql="Select SetFlag,SetDesc From CFWztg_SetContent Where SetBclassFlag='AdminSet' And SetSclassFlag='Admin_Template_AdCode' Order By SetTaxis"
Set Rs2=Conn.Execute(Sql)
While Not Rs2.Eof
%>
<option value="<%=Trim(Rs2("SetFlag"))%>"<%If Rs("AdShowType")=Rs2("SetFlag") Then Response.write " selected"%>><%=Trim(Rs2("SetDesc"))%></option>
<%
Rs2.MoveNext
Wend
%>
</select>
</TD>
</TR>
<%End If%>
<TR>
<TD>原始每个点击支付：</TD>
<TD><%=Rs("Unit_Cent_First")%>元</TD>
</TR>
<TR>
<TD>实际每个点击支付：</TD>
<TD><input name="Unit_Cent" type="text" id="Unit_Cent" value="<%=Rs("Unit_Cent")%>" size="5">
元 (精确到：0.001元)<br>
注：一般请不要修改此项，管理员如果需要拿回扣可以修改这项设置，方法比如：此广告广告主发布的原始价格是每点击：0.10元，共发布了1000点，花费了100元，管理员在这里修改每点击为0.08元，这样网站主每点击获利0.08元，管理员获利0.02元，这样等1000点被网站主消耗
完毕时，这100元所有网站主共得到80元，管理员共得到20元。切不要提高广告主发布的原始价格，这样的话管理员可能还会倒贴钱的！</TD>
</TR>
<TR>
<TD>获利方式：</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>
</TR>
<TR>
<TD>想获得的个数：</TD>
<TD><%=Rs("TotalClick")%> 个</TD>
</TR>
<TR>
<TD>共支付了：</TD>
<TD><%=Cdbl(Rs("Unit_Cent_First"))*Rs("TotalClick")%>元</TD>
</TR>
<TR>
<TD>审核状态：</TD>
<TD> <%If Rs("AdState")=1 Then Response.Write " 审核中"%> <%If Rs("AdState")=2 Then Response.Write " 审核成功"%> <%If Rs("AdState")=3 Then Response.Write " 审核失败"%> <%If Rs("AdState")=4 Then Response.Write " 完成点击"%></TD>
</TR>
<TR>
<TD>广告扣点率：</TD>
<TD><p>
<input name="AdDeDuct_Rate" type="text" value="<%=Rs("AdDeDuct_Rate")%>" size="5">
%(请输入0-100之间数字，0为不扣点)<br>
注：这里扣的点归管理员所得，比如此广告原始每点击：0.10元，共发布了1000点，花费了100元，这里的扣点率为20%，这样广告消耗完广告后，网站主共分得80元，管理员共分得20元。</p></TD>
</TR>
<TR>
<TD>在普通用户显示广告可申请：</TD>
<td><input type="radio" name="AdListShowState" value="-1"<%If Rs("AdListShowState")=-1 Then Response.Write " checked"%>>
是
<input type="radio" name="AdListShowState" value="0"<%If Rs("AdListShowState")=0 Then Response.Write " checked"%>>
否</TD>
</TR>
<TR>
<TD>普通用户界面点数显示：</TD>
<td><input type="radio" name="AdSpareShowState" value="-1"<%If Rs("AdSpareShowState")=-1 Then Response.Write " checked"%>>
实际数目显示
<input type="radio" name="AdSpareShowState" value="0"<%If Rs("AdSpareShowState")=0 Then Response.Write " checked"%>>
无限多<br>
(注：此项是指普通用户在获得广告代码页面上，广告显示可以申请的剩余点数)</TD>
</TR>
<TR>
<TD>引导用户注册提交参数MD5验证：</TD>
<TD><input type="radio" name="AdRegUserCheck" value="-1"<%If Rs("AdRegUserCheck")=-1 Then Response.write " checked"%>>
是
<input type="radio" name="AdRegUserCheck" value="0"<%If Rs("AdRegUserCheck")=0 Then Response.write " checked"%>>
否 *默认为否 验证格式:推荐用户名|Md5(推荐用户名&广告主安全码)</TD>
</TR>
<TR>
<TD>广告说明：</TD>
<td><input name="AdDesc" type="text" value="<%=Rs("AdDesc")%>" size="40">
<br>
(比如说明广告的长度和高度，投放地区等)</TD>
</TR>
<TR>
<TD>发布在哪种类型的网站上：</TD>
<TD><input name="siteclass" type="radio" value="1"<%if Rs("PutSiteClassID")="" Then Response.write " checked"%> onClick="bshow_1()">
全部
<input name="siteclass" type="radio" value="2"<%if Rs("PutSiteClassID")<>"" Then Response.write " checked"%> onClick="bshow_2()">
以下选择</TD>
</TR>
<TR id="b_1">
<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")%>"<%if Instr(","&Rs("PutSiteClassID")&",",","&Rs2("ID")&",")>0 Then Response.write " checked"%>>
<%=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> <%If Rs("Ad_Class") = 1 Or Rs("Ad_Class") = 2 Then '直接文字或图片类型%> <input name="PutObj" type="radio" value="1"<%If Rs("PutObj")=1 Then Response.Write " Checked"%> onClick="cshow_1()">
所有人都可以申请
<%Else'直接文字或图片类型外的%> <input type="radio" name="PutObj" value="2"<%If Rs("PutObj")=2 Then Response.Write " Checked"%> onclick="cshow_2()">
只有有网站的站长才可以申请
<%End If%> </td>
</tr>
<%If Rs("Ad_Class") = 1 Or Rs("Ad_Class") = 2 Then '直接文字或图片类型%>
<tr id="c_1">
<td>广告发布的范围(对象是所有人)：</td>
<td>
<%If Rs("Ad_Class") = 1 Then%>
<input type="radio" name="PutRange" value="1"<%If Rs("PutRange")=1 Then Response.Write " checked"%> onclick="dshow_1()">可以在任何地方，如网站，论坛，ＱＱ上<br>
<%End If%>
<input type="radio" name="PutRange" value="2"<%If Rs("PutRange")=2 Then Response.Write " checked"%> onclick="dshow_1()">只能发布在网页上，如网站，论坛，但不能发布在ＱＱ上<br>
<input type="radio" name="PutRange" value="3"<%If Rs("PutRange")=3 Then Response.Write " checked"%> onclick="dshow_2()">只能发布在以下系统允许的站点上<br>
<input type="radio" name="PutRange" value="4"<%If Rs("PutRange")=4 Then Response.Write " checked"%> onclick="dshow_1()">只能发布在自己申请后通过管理员审核的网站上<br>
<input type="radio" name="PutRange" value="5"<%If Rs("PutRange")=5 Then Response.Write " checked"%> onclick="dshow_3()">只允许以下会员投放<br>
</td>
</tr>
<tr id="d_1">
<td>只允许发布在的站点：</td>
<td><input name="PutSite" type="text" id="PutSite" value="<%=Rs("PutSite")%>" size="40">
多个站点请用英文","分隔</td>
</tr>
<tr id="d_2">
<td>只允许申请的会员名：</td>
<td><input name="PutUser" type="text" id="PutSite" value="<%=Rs("PutUser")%>" size="40">
多个会员名请用英文","分隔</td>
</tr>
<%End If%>
<%If Not(Rs("Ad_Class") = 1 Or Rs("Ad_Class") = 2) Then '直接文字或图片类型外的%>
<tr id="c_2">
<td>广告发布的范围(对象是站长)：</td>
<td>
<input type="radio" name="PutRange_2" value="1"<%If Rs("PutRange_2")=1 Then Response.Write " Checked"%> onclick="gshow_1()">可以发布在任何网页上<br>
<input type="radio" name="PutRange_2" value="2"<%If Rs("PutRange_2")=2 Then Response.Write " Checked"%> onclick="gshow_1()">只能发布在自己申请后通过管理员审核的网站上<br>
<input type="radio" name="PutRange_2" value="3"<%If Rs("PutRange_2")=3 Then Response.Write " checked"%> onclick="gshow_2()">只能发布在以下系统允许的站点上<br>
<input type="radio" name="PutRange_2" value="4"<%If Rs("PutRange_2")=4 Then Response.Write " checked"%> onclick="gshow_3()">只允许以下会员投放
</td>
</tr>
<tr id="g_1">
<td>只允许发布在的站点：</td>
<td><input name="PutSite" type="text" id="PutSite" value="<%=Rs("PutSite")%>" size="40">
多个站点请用英文","分隔</td>
</tr>
<tr id="g_2">
<td>只允许申请的会员名：</td>
<td><input name="PutUser" type="text" id="PutUser" value="<%=Rs("PutUser")%>" size="40">
多个会员名请用英文","分隔</td>
</tr>
<%End If%>
<%If Rs("Ad_Class") = 1 Then '直接文字类型设置%>
<tr>
<td>直接文字广告放在Iframe里是否有效：</td>
<td><input type="radio" name="DirectTextAdIframe" value="-1"<%If Rs("DirectTextAdIframe")=-1 Then Response.write " checked"%>>
是
<input type="radio" name="DirectTextAdIframe" value="0"<%If Rs("DirectTextAdIframe")=0 Then Response.write " checked"%>>
否 *默认为否</td>
</tr>
<tr>
<td>直接文字广告放在Iframe时自动跳出：</td>
<td><input type="radio" name="DirectTextAdIframeOpen" value="-1"<%If Rs("DirectTextAdIframeOpen")=-1 Then Response.write " checked"%>>
是
<input type="radio" name="DirectTextAdIframeOpen" value="0"<%If Rs("DirectTextAdIframeOpen")=0 Then Response.write " checked"%>>
否 *默认为是</td>
</tr>
<tr>
<td>直接文字广告浏览器不支持Cookies点击也有效：</td>
<td><input type="radio" name="DirectTextCookieAllYes" value="-1"<%If Rs("DirectTextCookieAllYes")=-1 Then Response.write " checked"%>>
是
<input type="radio" name="DirectTextCookieAllYes" value="0"<%If Rs("DirectTextCookieAllYes")=0 Then Response.write " checked"%>>
否 *默认为否</td>
</tr>
<tr>
<td>直接文字自定义参数验证：</td>
<td><input type="radio" name="DirectTextSelfVarCheck" value="0"<%If Rs("DirectTextSelfVarCheck")=0 Then Response.write " checked"%>>
不验证
<input type="radio" name="DirectTextSelfVarCheck" value="1"<%If Rs("DirectTextSelfVarCheck")=1 Then Response.write " checked"%>>
验证码，格式:距离2000-1-1秒数|Md5(距离2000-1-1秒数&广告主安全码)</td>
</tr>
<%End If%>
<%If Rs("Ad_Class") = 3 Or Rs("Ad_Class") = 4 Or Rs("Ad_Class") = 5 Or Rs("Ad_Class") = 6 Or Rs("Ad_Class") = 7 Then '网页文字,网页图片,弹出广告，弹出点击或复合广告%>
<tr>
<td>广告放在Iframe时自动跳出：</td>
<td><input type="radio" name="WebAdIframeOpen" value="-1"<%If Rs("WebAdIframeOpen")=-1 Then Response.write " checked"%>>
是
<input type="radio" name="WebAdIframeOpen" value="0"<%If Rs("WebAdIframeOpen")=0 Then Response.write " checked"%>>
否 *默认为是</td>
</tr>
<%End If%>
<%If Rs("Ad_Class") = 3 Or Rs("Ad_Class") = 4 Then '网页文字或网页图片%>
<tr id="e_1">
<td width="34%">广告隐藏代码：</td>
<td width="66%"><input name="AdHiddenCode" type="text" id="AdHiddenCode" value="<%=server.HTMLEncode(Rs("AdHiddenCodeState"))%>" size="40">
<br>
支持代码内接受广告id参数，用{ad_id}代替,用{username}代替网站主用户名，如加入<iframe src="test.htm?username={username}&ad_id={ad_id}"
width=0 height=0 marginheight=0 marginwidth=0 scrolling=no></iframe>可以提高网站流量和排名，最好不要iframe动态页面文件，否则流量大会加重服务器负担</td>
</tr>
<%End If%>
<%If Rs("Ad_Class") = 3 Or Rs("Ad_Class") = 4 Or Rs("Ad_Class") = 5 Or Rs("Ad_Class") = 7 Then '网页文字或网页图片或复合广告时%>
<tr>
<td>广告点击率：</td>
<td><input name="AdClickRate" type="text" id="AdClickRate" size="5" value="<%=Rs("AdClickRate")%>">
‰(千分之几,一般在10-30‰左右,0表示不限制)</td>
</tr>
<%End If%>
<tr id="f_1">
<td>广告投放地区：</td>
<td><input name="AdPutArea" type="text" value="<%=Rs("AdPutArea")%>" size="40">
<br>
(多个地区中间以英文,分隔，留空则为全部地区)</td>
</tr>
<tr id="f_2">
<td>IP数据库没有的IP点击有效：</td>
<td><input type="radio" name="OtherIpEffect" value="-1"<%If Rs("OtherIpEffect")=-1 Then Response.write " checked"%>>
是
<input type="radio" name="OtherIpEffect" value="0"<%If Rs("OtherIpEffect")=0 Then Response.write " checked"%>>
否 *默认为是</td>
</tr>
<tr>
<td>是否允许从本系统内部点击：</td>
<td><input type="radio" name="SysClick" value="-1"<%If Rs("SysClick")=-1 Then Response.write " checked"%>>
是
<input type="radio" name="SysClick" value="0"<%If Rs("SysClick")=0 Then Response.write " checked"%>>
否 *默认为是</td>
</tr>
<tr>
<td>IP防作弊的级别：</td>
<td><input type="radio" name="IpGuardLevel" value="1"<%If Rs("IpGuardLevel")=1 Then Response.write " checked"%>>
严格
<input type="radio" name="IpGuardLevel" value="2"<%If Rs("IpGuardLevel")=2 Then Response.write " checked"%>>
较严格
<input type="radio" name="IpGuardLevel" value="3"<%If Rs("IpGuardLevel")=3 Then Response.write " checked"%>>
宽松</td>
</tr>
<tr>
<td>是否把IP转换成对应的地区：</td>
<td><input type="radio" name="IpAreaSwitch" value="-1"<%If Rs("IpAreaSwitch")=-1 Then Response.write " checked"%>>
是
<input type="radio" name="IpAreaSwitch" value="0"<%If Rs("IpAreaSwitch")=0 Then Response.write " checked"%>>
否
</td>
</tr>
<tr>
<td>广告显示后多少秒后点击才有效：</td>
<td><input name="AdShowAfterToClickTime" type="text" value="<%=Rs("AdShowAfterToClickTime")%>" size="40" /></td>
</tr>
<tr>
<td>广告点击后出现多少秒钟的中转页：</td>
<td><input name="ShowClickInfoTime" type="text" value="<%=Rs("ShowClickInfoTime")%>" size="40" /></td>
</tr>
<tr>
<td>同一IP多少分钟后可以再次点击此广告：</td>
<td><input name="EffectTime" type="text" value="<%=Rs("EffectTime")%>" size="40" />（如为0则不防Ip和Cookie）</td>
</tr>
<tr>
<td>点击类广告需多少次确认有效：</td>
<td><input name="AdAffirmTotal" type="text" value="<%=Rs("AdAffirmTotal")%>" size="40" />
(默认为0，不需确认点击就有效)</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")%>"<%If Rs("SiteClassID")=Rs2("ID") Then Response.write " selected"%>><%=Rs2("SiteClassName")%></option>
<%
Rs2.MoveNext
Wend
%>
</select></td>
</tr>
<%If Rs("AdState")=2 Or Rs("AdState")=5 Then'只有已经审核或暂停中的广告才能修改%>
<tr>
<td>广告状态：</td>
<td><input type="radio" name="AdState" value="2"<%If Rs("AdState")=2 Then Response.write " checked"%>>
已经审核，投放中
<input type="radio" name="AdState" value="5"<%If Rs("AdState")=5 Then Response.write " checked"%>>
已经审核，但暂停投放</td>
</tr>
<%End If%>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Submit523" value="取消">
</td>
</tr>
<tr>
<td colspan="2">注：<br>
1.网页复合广告里的href和http字样必须是小写</td>
</tr>
</form>
</table>
<%End If%>
<%If Action="adcheck" Then%>
<%
CheckState=CInt(ChkStr(Request("CheckState"),2))
Sql="Select * From CFWztg_AD_Check Where 1=1"
If CheckState<>0 Then Sql=Sql&" And CheckState="&CheckState
Sql=Sql&" Order By LastTime"
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
%>
<table class="tb_1">
<tr>
<td colspan="4" class="td_3">请选择审核状态
<select id='checkstate' onChange="window.location=document.getElementById('checkstate').options[document.getElementById('checkstate').selectedIndex].value">
<option value="?Action=adcheck&CheckState=0"<%If CheckState=0 Then Response.Write " selected"%>>全部</option>
<option value="?Action=adcheck&CheckState=1"<%If CheckState=1 Then Response.Write " selected"%>>等待审核</option>
<option value="?Action=adcheck&CheckState=2"<%If CheckState=2 Then Response.Write " selected"%>>审核成功</option>
<option value="?Action=adcheck&CheckState=3"<%If CheckState=3 Then Response.Write " selected"%>>审核失败</option>
</select>
</td>
</tr>
<tr class="tr_1">
<td>序 号</td>
<td>广告ID</td>
<td>审核状态</td>
<td>操作</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td><%=Rs.RecordCount-Rs.PageSize*(Page)+MyPageSize%></td>
<td><%=Rs("AD_ID")%></td>
<td>
<%
If Rs("CheckState")=1 Then
Response.write "审核中"
ElseIf Rs("CheckState")=2 Then
Response.write "审核成功"
ElseIf Rs("CheckState")=3 Then
Response.write "审核失败"
End If
%>
</td>
<td><a href="?Action=adcheckmodify&ID=<%=Rs("ID")%>">修改</a> <a href="Admin.aspx?Action=adcheckdel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&CheckState=<%=CheckState%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&CheckState=<%=CheckState%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&CheckState=<%=CheckState%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&CheckState=<%=CheckState%>&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&"&CheckState="&CheckState&"&Page="&I
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<%End If%>
<%If Action="adcheckmodify" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_AD_Check Where ID="&ID
Rs.open Sql,Conn,1,1
Ad_ID=Rs("Ad_ID")
Rs.Close
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")
Rs.Close
%>
<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 ID="&ID
Rs.open Sql,Conn,1,1
Ad_ID=Rs("Ad_ID")
Ad=Rs("AD")
AdIntro=Rs("AdIntro")
Ad_Url=Rs("Ad_Url")
AdSimpleUrl=Rs("AdSimpleUrl")
CheckState=Rs("CheckState")
Rs.Close
%>
<tr class="tr_1">
<td colspan="2">广告主修改后的内容审核</td>
</tr>
<form name="form1" method="post" action="Admin.aspx?Action=adcheckmodifysave&Ad_ID=<%=Ad_ID%>">
<tr>
<td width="20%">广告类型：</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>
<%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><select name="CheckState" id="CheckState">
<option value="1"<%If CheckState=1 Then response.write" selected"%>>审核中</option>
<option value="2"<%If CheckState=2 Then response.write" selected"%>>审核成功</option>
<option value="3"<%If CheckState=3 Then response.write" selected"%>>审核失败</option>
</select></TD>
</TR>
<TR>
<TD> </TD>
<TD><input type="submit" name="Submit3" value="修改"></TD>
</TR>
</form>
</table>
<%End IF%>
<%If Action="lylist" Or Action= "lysearch" Then%>
<%
Call GetCurrWeb()
%>
<table class="tb_1">
<tr>
<td colspan="9" class="td_3">选择查询的日期
<select id='adddate' onChange="window.location=document.getElementById('adddate').options[document.getElementById('adddate').selectedIndex].value">
<option value=?Action=lylist>请选择日期</option>
<%
Sql="Select AddDate From CFWztg_Visit_Ly Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='?Action=lylist&AddDate="&Rs("AddDate")&"'"
If Chkstr(Request("AddDate"),3)=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select>
</td>
</tr>
<%
Px=ChkStr(Request("Px"),1)
AddDate=ChkStr(Request("AddDate"),3)
If Px="" Then Px="IpCounter"
If AddDate="" Then AddDate=Cstr(Date)
UserName=ChkStr(Request("UserName"),1)
Ip=ChkStr(Request("Ip"),1)
Ly=ChkStr(Request("Ly"),1)
Ad_ID=ChkStr(Request("Ad_ID"),2)
Call PxFilter(Px,"id,UserName,AD_ID,Ly,IpCounter,AddTime,LastTime,Ip")
Sql="Select Sum(IpCounter) From CFWztg_Visit_Ly Where Datediff('d',AddDate,'"&AddDate&"')=0"
Set Rs=Conn.execute(Sql)
IpTotal=Rs(0)
Sql="Select * From CFWztg_Visit_Ly Where Datediff('d',AddDate,'"&AddDate&"')=0"
If Action="lysearch" Then
If UserName<>"" Then Sql=Sql&" And UserName='"&UserName&"'"
If Ip<>"" Then Sql=Sql&" And Ip Like'%"&Ip&"%'"
If Ly<>"" Then Sql=Sql&" And Ly Like'%"&Ly&"%'"
If Ad_ID<>"" Then Sql=Sql&" And Ad_ID="&Ad_ID
End If
Sql=Sql&" Order By "&Px&" Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not Rs.eof Then
If ChkStr(Request("Page"),2) = "" Then
Page = 1
Else
Page = CLng(ChkStr(Request("Page"),2))
End If
Rs.pagesize=50
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<tr class="tr_1">
<td colspan="9"><%=AddDate%> 页面来源统计[可点击标题排序]</td>
</tr>
<tr>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=ID">序号</a></td>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=UserName">用户名</a></td>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ad_ID">广告编号</a></td>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ly">来源页面</a></td>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=IpCounter">点击数量</a></td>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=IpCounter">所占此天的比例</a></td>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&AddDate=<%=AddDate%>&Px=AddTime">开始时间</a></td>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=LastTime">最后访问时间</a></td>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=Ip">最后IP</a></td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr>
<td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td>
<td><a href="?Action=lysearch&UserName=<%=Rs("UserName")%>"><%=Rs("UserName")%></a></td>
<td><a href="?Action=lysearch&Ad_ID=<%=Rs("Ad_ID")%>"><%=Rs("Ad_ID")%></a></td>
<td>
<%
If Rs("Ly")="" Then
Response.write "直接浏览器访问"
Else
Response.Write "<a href="&Rs("Ly")&" target='_blank'>"&Left(BreakUrl(Rs("Ly"),2),30)&"</a> [<a href="&Rs("Ly")&" target='_blank'>详细</a>]"
End If
%>
</td>
<td><%=Rs("IpCounter")%></td>
<td><img src=images/bluebar.gif width=<%=MyRateWidth(Rs("IpCounter"),IpTotal,150)%> height=10><%=MyRate(Rs("IpCounter"),IpTotal)%>%</td>
<td><%=GetTurnTime(Hour(Rs("AddTime")))&":"&GetTurnTime(Minute(Rs("AddTime")))&":"&GetTurnTime(Second(Rs("AddTime")))%></td>
<td><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></td>
<td><%=Rs("Ip")%></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
<tr>
<td colspan="9" class="td_3"><input type="submit" name="Submit3322" value="删除今天来源" onclick="{if(confirm('确定要删除今天来源么?')){window.location='Admin.aspx?Action=todaylydel';return true;}return false;};">
<input type="submit" name="Submit33222" value="删除今天以前的来源" onclick="{if(confirm('确定要删除今天以前的来源么?')){window.location='Admin.aspx?Action=beforelydel';return true;}return false;};"></td>
</tr>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&UserName=<%=UserName%>&Ip=<%=Ip%>&Ly=<%=Ly%>&Ad_ID=<%=Ad_ID%>&AddDate=<%=AddDate%>&Px=<%=Px%>&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&"&Ip="&Ip&"&Ly="&Ly&"&Ad_ID="&Ad_ID&"&AddDate="&AddDate&"&Px="&Px&"&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=lysearch&AddDate=<%=AddDate%>">
<tr>
<td><strong>搜 索</strong></td>
<td>用户名:</td>
<td><input name="UserName" type="text" id="UserName" size="10"></td>
<td>广告编号:</td>
<td><input name="Ad_ID" type="text" id="Ad_ID" size="5"></td>
<td>IP:</td>
<td><input name="IP" type="text" id="IP" size="10"></td>
<td>来源:</td>
<td><input name="Ly" type="text" id="Ly" size="10"></td>
<td><input type="submit" name="Submit3323" value="搜索"></td>
</tr>
</form>
</table>
<%End IF%>
<%If Action="iplist" Or Action="ipsearch" Then%>
<table class="tb_1">
<tr>
<td colspan="16" class="td_3">选择查询的日期
<select id='adddate' onChange="window.location=document.getElementById('adddate').options[document.getElementById('adddate').selectedIndex].value">
<option value=?Action=iplist>请选择日期</option>
<%
Sql="Select AddDate From CFWztg_Visit_Ip Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='?Action=iplist&AddDate="&Rs("AddDate")&"'"
If ChkStr(Request("AddDate"),3)=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select>
</td>
</tr>
<%
Px=ChkStr(Request("Px"),1)
AddDate=ChkStr(Request("AddDate"),3)
UserName=ChkStr(Request("UserName"),1)
IpArea_2=ChkStr(Request("IpArea_2"),2)
Ip=ChkStr(Request("Ip"),1)
Ly=ChkStr(Request("Ly"),1)
If Px="" Then Px="ID"
If AddDate="" Then AddDate=Cstr(Date)
Call PxFilter(Px,"id,UserName,Ip,Ad_ID,Ly,AddTime,LastTime,AgentStr,Alexa,WebWidth,WebHeight,WebTop,WebLeft,MouseTop,MouseLeft")
Sql="Select Count(*) From CFWztg_Visit_Ip where Datediff('d',AddDate,'"&AddDate&"')=0"
Set Rs=Conn.execute(Sql)
IpTotal=Rs(0)
Sql="Select Top 2000 * From CFWztg_Visit_Ip where Datediff('d',AddDate,'"&AddDate&"')=0"
If Action="ipsearch" Then
If UserName<>"" Then Sql=Sql&" And UserName='"&UserName&"'"
If Ip<>"" Then Sql=Sql&" And Ip Like'%"&Ip&"%'"
If IpArea_2<>"" Then Sql=Sql&" And IpArea_2="&IpArea_2
If Ly<>"" Then Sql=Sql&" And Ly Like'%"&Ly&"%'"
End If
Sql=Sql&" Order By "&Px&" Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not Rs.eof Then
If ChkStr(Request("Page"),2) = "" Then
Page = 1
Else
Page = CLng(ChkStr(Request("Page"),2))
End If
Rs.pagesize=50
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<tr class="tr_1">
<td colspan="16"><%=AddDate%> Ip记录[可点击标题排序]</td>
</tr>
<tr class="tr_2">
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=ID">序号</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=UserName">推广用户</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=Ip">Ip</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=Ad_ID" target="_blank">广告</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=Ly">来访页面</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=AddTime">来访时间</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=LastTime">最后时间</a></td>
<td>停留(秒)</td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=AgentStr">参数</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=Alexa">Alexa</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=WebWidth">页宽</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=WebHeight">页高</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=WebTop">页顶</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=WebLeft">页左</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=MouseTop">鼠顶</a></td>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=MouseLeft">鼠左</a></td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></td>
<td> <a href="?Action=ipsearch&UserName=<%=Rs("UserName")%>"><%=Rs("UserName")%></a></td>
<td><%=Rs("Ip")%>
<%
If Rs("IpArea")<>"" Then
Response.write "<br>"&Rs("IpArea")
End If
%>
</td>
<td><a href="ViewAd.asp?ID=<%=Rs("Ad_ID")%>" target="_blank"><%=Rs("Ad_ID")%></a></td>
<td width="120px">
<%
If Rs("Ly")="" Then
Response.write "直接浏览器访问"
Else
Response.Write "<a href="&Rs("Ly")&" target='_blank'>"&Left(BreakUrl(Rs("Ly"),2),30)&"</a> [<a href="&Rs("Ly")&" target='_blank'>详细</a>]"
End If
%>
</td>
<td><%=GetTurnTime(Hour(Rs("AddTime")))&":"&GetTurnTime(Minute(Rs("AddTime")))&":"&GetTurnTime(Second(Rs("AddTime")))%></td>
<td><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></td>
<td><%=DateDiff("s",Rs("AddTime"),Rs("LastTime"))%></td>
<td width="160px"><%=Rs("AgentStr")%></td>
<td>
<%If Rs("Alexa")=-1 Then
Response.write "已安装"
Else
Response.write "未安装"
End If%>
</td>
<td><%=Rs("WebWidth")%></td>
<td><%=Rs("WebHeight")%></td>
<td><%=Rs("WebTop")%></td>
<td><%=Rs("WebLeft")%></td>
<td><%=Rs("MouseTop")%></td>
<td><%=Rs("MouseLeft")%></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
<tr>
<td colspan="16" class="td_3"><input type="submit" name="Submit3322" value="删除今天IP" onclick="{if(confirm('确定要删除今天IP么?')){window.location='Admin.aspx?Action=todayipdel';return true;}return false;};">
<input type="submit" name="Submit33222" value="删除今天以前的IP" onclick="{if(confirm('确定要删除今天以前的IP么?')){window.location='Admin.aspx?Action=beforeipdel';return true;}return false;};"></td>
</tr>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&ID=<%=ID%>&AddDate=<%=AddDate%>&UserName=<%=UserName%>&Ip=<%=Ip%>&IpArea_2=<%=IpArea_2%>&Ly=<%=Ly%>&Px=<%=Px%>&Page=<%=Totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=Page%></font>/<%=TotalPage%>页 共<%=IpTotal%>条记录 每页显示<%=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&"&ID="&ID&"&AddDate="&AddDate&"&UserName="&UserName&"&Ip="&Ip&"&IpArea_2="&IpArea_2&"&Ly="&Ly&"&Px="&Px&"&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=ipsearch&AddDate=<%=AddDate%>">
<tr>
<td><strong>搜 索</strong></td>
<td>用户名:</td>
<td><input name="UserName" type="text" id="UserName" size="10"></td>
<td>IP:</td>
<td><input name="IP" type="text" id="IP" size="10"></td>
<td>Ip范围:</td>
<td><select name="IpArea_2">
<option value="1">国内IP</option>
<option value="2">国外IP</option>
</select></td>
<td>来源:</td>
<td><input name="Ly" type="text" id="Ly" size="10"></td>
<td><input type="submit" name="Submit3323" value="搜索"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="daytj" Then%>
<%
Sql="Select Sum(Display_Counter),Sum(Click_Counter),Sum(Reg_Counter) From CFWztg_AD_Counter_Day"
Set Rs=Conn.Execute(Sql)
DisplayTotal = Rs(0)
ClickTotal = Rs(1)
RegTotal = Rs(2)
Sql="Select AddDate,Sum(Display_Counter) As Display_Counter,Sum(Click_Counter) As Click_Counter,Sum(Reg_Counter) As Reg_Counter,Sum(Display_2_Counter) As Display_2_Counter,Sum(Click_2_Counter) As Click_2_Counter From CFWztg_AD_Counter_Day Group By AddDate Order By AddDate 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=50
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table class="tb_1">
<tr class="tr_1">
<td colspan="9">每日报表(注括号内的数字为显示给广告主的实际数字)</td>
</tr>
<tr>
<td>日 期</td>
<td colspan="2">显示数</td>
<td colspan="2">点击数</td>
<td colspan="2">注册数</td>
<td>点击率</td>
<td>详细推广记录</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr>
<td><%=Rs("AddDate")%></td>
<td><%=Rs("Display_Counter")%> (<%=Rs("Display_2_Counter")%>)</td>
<td><img src=images/bluebar.gif width=<%=MyRateWidth(Rs("Display_Counter"),DisplayTotal,100)%> height=10><%=MyRate(Rs("Display_Counter"),DisplayTotal)%>%</td>
<td><%=Rs("Click_Counter")%>(<%=Rs("Click_2_Counter")%>)</td>
<td><img src=images/greenbar.gif width=<%=MyRateWidth(Rs("Click_Counter"),ClickTotal,100)%> height=10><%=MyRate(Rs("Click_Counter"),ClickTotal)%>%</td>
<td><%=Rs("Reg_Counter")%></td>
<td><img src=images/redbar.gif width=<%=MyRateWidth(Rs("Reg_Counter"),RegTotal,100)%> height=10><%=MyRate(Rs("Reg_Counter"),RegTotal)%>%</td>
<td><%=MyRate(Rs("Click_Counter"),Rs("Display_Counter"))%>%</td>
<td><a href="?Action=lysearch&AddDate=<%=Rs("AddDate")%>">[查看]</a></td>
</tr>
<%
Mypagesize=Mypagesize-1
Rs.MoveNext
Wend%>
<tr>
<td colspan="9">统计：广告显示总计<%=DisplayTotal%>次 广告点击总数<%=ClickTotal%>次 推荐注册用户总数<%=RegTotal%>个</td>
</tr>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&Page=1">第一页</a>
<%
If Page>1 Then%>
<a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&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&"&page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<%End If%>
<%If Action="hourtj" Then%>
<table class="tb_1">
<tr>
<td colspan="9" class="td_3">请选择你要查询的日期
<select id='adddate' onChange="window.location=document.getElementById('adddate').options[document.getElementById('adddate').selectedIndex].value">
<option value=?Action=<%=Action%>>请选择日期</option>
<%Sql="Select AddDate From CFWztg_AD_Counter_Hour Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='?Action="&Action&"&AddDate="&Rs("AddDate")&"'"
If ChkStr(Request("AddDate"),3)=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select>
</td>
</tr>
<%
AddDate=ChkStr(Request("AddDate"),3)
If AddDate="" Then AddDate=Date()
Sql="Select Sum(Display_Counter),Sum(Click_Counter),Sum(Reg_Counter) From CFWztg_AD_Counter_Hour where AddDate=#"&AddDate&"#"
Set Rs=Conn.Execute(Sql)
DisplayTotal=Rs(0)
ClickTotal=Rs(1)
RegTotal=Rs(2)
Sql="Select AddHour,Sum(Display_Counter) As Display_Counter,Sum(Click_Counter) As Click_Counter,Sum(Reg_Counter) As Reg_Counter ,Sum(Display_2_Counter) As Display_2_Counter,Sum(Click_2_Counter) As Click_2_Counter From CFWztg_AD_Counter_Hour where AddDate=#"&AddDate&"# Group By AddHour Order By AddHour Desc"
Set Rs=Conn.Execute(Sql)
%>
<tr class="tr_1">
<td colspan="9"><%=AddDate%> 每小时报表(注括号内的数字为显示给广告主的实际数字)</td>
</tr>
<tr>
<td>小时</td>
<td colspan="2">显示数</td>
<td colspan="2">点击数</td>
<td colspan="2">注册数</td>
<td>点击率</td>
<td>详细推广记录</td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<tr>
<td><%=Rs("AddHour")%>-<%=Rs("AddHour")+1%></td>
<td><%=Rs("Display_Counter")%>(<%=Rs("Display_2_Counter")%>)</td>
<td><img src=images/bluebar.gif width=<%=MyRateWidth(Rs("Display_Counter"),DisplayTotal,100)%> height=10><%=MyRate(Rs("Display_Counter"),DisplayTotal)%>%</td>
<td><%=Rs("Click_Counter")%>(<%=Rs("Click_2_Counter")%>)</td>
<td><img src=images/greenbar.gif width=<%=MyRateWidth(Rs("Click_Counter"),ClickTotal,100)%> height=10><%=MyRate(Rs("Click_Counter"),ClickTotal)%>%</td>
<td><%=Rs("Reg_Counter")%></td>
<td><img src=images/redbar.gif width=<%=MyRateWidth(Rs("Reg_Counter"),RegTotal,100)%> height=10><%=MyRate(Rs("Reg_Counter"),RegTotal)%>%</td>
<td><%=MyRate(Rs("Click_Counter"),DisplayNum)%>%</td>
<td><a href="?Action=lysearch&AddDate=<%=AddDate%>">[查看]</a></td>
</tr>
<%
Rs.MoveNext
Wend
%>
<tr>
<td colspan="9">统计：广告显示总计<%=DisplayTotal%>次 广告点击总数<%=ClickTotal%>次 推荐注册用户总数<%=RegTotal%>个</td>
</tr>
</table>
<%End If%>
<%If Action="userdatadaytj" Then%>
<table class="tb_1">
<tr>
<td colspan="9" class="td_3">请选择你要查询的日期
<select id='adddate' onChange="window.location=document.getElementById('adddate').options[document.getElementById('adddate').selectedIndex].value">
<option value=?Action=<%=Action%>>请选择日期</option>
<%Sql="Select AddDate From CFWztg_AD_Counter_Day Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='?Action="&Action&"&AddDate="&Rs("AddDate")&"'"
If ChkStr(Request("AddDate"),3)=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select>
</td>
</tr>
<%
AddDate=ChkStr(Request("AddDate"),3)
If AddDate="" Then AddDate=Date()
Px=ChkStr(Request("Px"),1)
If Px="" Then Px="click_counter"
Call PxFilter(Px,"UserName,Display_Counter,Click_Counter,Reg_Counter")
Sql="Select Sum(Display_Counter),Sum(Click_Counter),Sum(Reg_Counter) From CFWztg_AD_Counter_Day Where AddDate=#"&AddDate&"#"
Set Rs = Conn.Execute(Sql)
DisplayTotal = Rs(0)
ClickTotal = Rs(1)
RegTotal = Rs(2)
Sql="Select UserName,Sum(Display_Counter) As Display_Counter,Sum(Click_Counter) As Click_Counter,Sum(Reg_Counter) As Reg_Counter,Sum(Display_2_Counter) As Display_2_Counter,Sum(Click_2_Counter) As Click_2_Counter From CFWztg_AD_Counter_Day Where AddDate=#"&AddDate&"# Group By UserName Order By"
If Px="username" Then
Sql=Sql&" UserName Desc"
ElseIf Px="display_counter" Then
Sql=Sql&" Sum(Display_Counter) Desc"
ElseIf Px="click_counter" Then
Sql=Sql&" Sum(Click_Counter) Desc"
ElseIf Px="reg_counter" Then
Sql=Sql&" Sum(Reg_Counter) Desc"
End If
If Not Rs.eof Then
If ChkStr(Request("Page"),2) = "" Then
Page = 1
Else
Page = CLng(ChkStr(Request("Page"),2))
End If
Rs.pagesize=50
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<tr class="tr_1">
<td colspan="9">用户数据排行统计(注括号内的数字为显示给广告主的实际数字)</td>
</tr>
<tr>
<td><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=UserName&Page=1">用户</a></td>
<td colspan="2"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Display_Counter&Page=1">显示数</a></td>
<td colspan="2"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Click_Counter&Page=1">点击数</a></td>
<td colspan="2"><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=Reg_Counter&Page=1">注册数</a></td>
<td>点击率</td>
<td>详细推广记录</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr>
<td><%=Rs("UserName")%></td>
<td><%=Rs("Display_Counter")%> (<%=Rs("Display_2_Counter")%>)</td>
<td><img src=images/bluebar.gif width=<%=MyRateWidth(Rs("Display_Counter"),DisplayTotal,100)%> height=10><%=MyRate(Rs("Display_Counter"),DisplayTotal)%>%</td>
<td><%=Rs("Click_Counter")%>(<%=Rs("Click_2_Counter")%>)</td>
<td><img src=images/greenbar.gif width=<%=MyRateWidth(Rs("Click_Counter"),ClickTotal,100)%> height=10><%=MyRate(Rs("Click_Counter"),ClickTotal)%>%</td>
<td><%=Rs("Reg_Counter")%></td>
<td><img src=images/redbar.gif width=<%=MyRateWidth(Rs("Reg_Counter"),RegTotal,100)%> height=10><%=MyRate(Rs("Reg_Counter"),RegTotal)%>%</td>
<td><%=MyRate(Rs("Click_Counter"),Rs("Display_Counter"))%>%</td>
<td>[<a href="?Action=lysearch&UserName=<%=Rs("UserName")%>&AddDate=<%=AddDate%>">查看来源</a>][<a href="?Action=ipsearch&UserName=<%=Rs("UserName")%>&AddDate=<%=AddDate%>">查看IP</a>]</td>
</tr>
<%
Mypagesize=Mypagesize-1
Rs.MoveNext
Wend%>
<tr>
<td colspan="9">统计：广告显示总计<%=DisplayTotal%>次 广告点击总数<%=ClickTotal%>次 推荐注册用户总数<%=RegTotal%>个</td>
</tr>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=1">第一页</a>
<%
If Page>1 Then%>
<a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&AddDate=<%=AddDate%>&Px=<%=Px%>&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&"&adddate="&adddate&"&px="&px&"&page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<%End If%>
<%If Action="alexatj" Then%>
<table class="tb_1">
<tr>
<td colspan="8" class="td_3">请选择你要查询的日期
<select id='adddate' onChange="window.location=document.getElementById('adddate').options[document.getElementById('adddate').selectedIndex].value">
<option value=?Action=<%=Action%>>请选择日期</option>
<%Sql="Select AddDate From CFWztg_Alexa_Day Group By AddDate Order By AddDate Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Response.Write "<option value='?Action="&Action&"&AddDate="&Rs("AddDate")&"'"
If ChkStr(Request("AddDate"),3)=Cstr(Rs("AddDate")) Then Response.Write " selected"
Response.Write ">"&Rs("AddDate")&"</option>"
Rs.MoveNext
Wend
%>
</select>
</td>
</tr>
<%
AddDate=ChkStr(Request("AddDate"),3)
If AddDate="" Then AddDate=Date()
Sql="Select Sum(IpCounter),Sum(Alexacounter) From CFWztg_Alexa_Day Where AddDate=#"&AddDate&"#"
Set Rs = Conn.Execute(Sql)
IpTotal = Rs(0)
AlexaTotal = Rs(1)
Sql="Select * From CFWztg_Alexa_Day Where AddDate=#"&AddDate&"# Order By AlexaCounter 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=50
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<tr class="tr_1">
<td colspan="8"><%=AddDate%> 报表</td>
</tr>
<tr class="tr_2">
<td>用户名</td>
<td>广告ID</td>
<td colspan="2">点击数</td>
<td colspan="2">Alexa数</td>
<td>Alexa安装比率</td>
<td>详细推广记录</td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="tr_2">
<td><%=Rs("UserName")%></td>
<td><%=Rs("Ad_ID")%></td>
<td><%=Rs("IpCounter")%></td>
<td><img src=images/bluebar.gif width=<%=Rs("IpCounter")/IpTotal*100%> height=10><%=MyRate(Rs("IpCounter"),IpTotal)%>%</td>
<td><%=Rs("AlexaCounter")%></td>
<td><img src=images/greenbar.gif width=<%=Rs("AlexaCounter")/AlexaTotal*100%> height=10><%=MyRate(Rs("AlexaCounter"),AlexaTotal)%>%</td>
<td><%=MyRate(Rs("AlexaCounter"),Rs("IpCounter"))%>%</td>
<td><a href="?Action=lysearch&UserName=<%=Rs("UserName")%>&Ad_ID=<%=Rs("AD_ID")%>&AddDate=<%=Rs("AddDate")%>">[查看]</a></td>
</tr>
<%
Mypagesize=Mypagesize-1
Rs.MoveNext
Wend
%>
</table>
<table class="tb_3">
<tr>
<td><a href="?Action=<%=Action%>&Page=1">第一页</a>
<%
If Page>1 Then%>
<a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&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&"&page="& i
If Page=I Then Response.Write " selected"
Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%></td>
</tr>
</table>
<%End If%>