📄 clickad.asp
字号:
<!--#include file="Const.Asp"-->
<%CheckAdmin1%>
<%PageName="Class"%>
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%
if request.QueryString("cmd")="清空IP使用库" then
if IsSqlDataBase=0 then
conn.Execute("DELETE FROM adsip")
else
conn.Execute("TRUNCATE TABLE adsip")
end if
Response.Redirect "?"
end if
if request.QueryString("cmd")="清空广告点击日志" then
if IsSqlDataBase=0 then
conn.Execute("DELETE FROM adscount")
else
conn.Execute("TRUNCATE TABLE adscount")
end if
Response.Redirect "?"
end if
dim i
i=0
MaxList=80
set rs=server.createobject("adodb.recordset")
sql="select * from adsurllist order by id"
rs.open sql,conn,1,1
if rs.eof then
iseof=true
else
iseof=false
end if
if iseof=false then
i=request("id")
if i="" then i=rs("id")
end if
%>
<script type="text/javascript">
function opencat(cat)
{
if(cat.style.display=="none")
{
cat.style.display="";
}
else
{
cat.style.display="none";
}
}
</script>
<table width="1000" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="3" align="center"><strong>添 加 广 告 地 址 (<a href="?cmd=清空IP使用库" style="color: #FFFFFF">清空IP使用库</a>
、<a href="?cmd=清空广告点击日志" style="color: #FFFFFF">清空广告点击日志</a>)</strong></td>
</tr>
<%
if iseof=false then
do while not rs.eof
i=i+1
if DateDiff("h",rs("time1"),now())=0 and rs("urlok")=1 then
zttext="下一小时生效"
ztin=2
elseif rs("urlok")=1 then
zttext="生效中"
ztin=1
elseif rs("urlok")=0 then
zttext="暂停中"
ztin=0
end if
%>
<form method="POST" action="clickad2.Asp?act=rename&id=<%=rs("id")%>" id=form1 name=form1>
<tr class="tdbg">
<td ><a target="AdsListWin" href=clickList.asp?id=<%=rs("id")%>&adname=<%=rs("adsname")%>><%=rs("adsname")%></a><br>状态：<%=zttext%><br>
<a target="AdsListWin" href="clickList.asp?id=<%=rs("id")%>&adname=<%=rs("adsname")%>" title="-= 24小时点击控制分布 =- <%=F_WriteHourTitle(rs("id"))%>">察看效果</a></td>
<td width="1050" >广告名称：<input size=15 type="text" class=input name="adsname" value="<%=rs("adsname")%>">
；每日展示量：
<input size=6 type="text" class=input name="urlcount" value="<%=rs("urlcount")%>">
；
点击显示比：
<input size="3" type="text" class="input" name="urldisplay" value="<%=rs("urldisplay")%>" />
%；
<input type="radio" value="1" name="urlok" <%if rs("urlok")=1 then%>checked<%end if%> />
启用
<input type="radio" value="0" name="urlok" <%if rs("urlok")=0 then%>checked<%end if%> />
关闭 <br />
<input name="Input2" type="checkbox" value="" onclick="opencat(sub_<%=rs("id")%>);" />
点击设置广告详细信息<table width="98%" border="0" cellspacing="0" cellpadding="0" id="sub_<%=rs("id")%>" style="display:none;" >
<tr>
<td>
每天每个IP广告展示次数：
<input size="3" type="text" class="input" name="cishu" value="<%=rs("cishu")%>" />
次 移动轨迹路线：
<select size="1" name="yanshi3">
<option value="0" <%if rs("yanshi3")=0 then%>selected<%end if%>>随机</option>
<option value="1" <%if rs("yanshi3")=1 then%>selected<%end if%>>凸型</option>
<option value="2" <%if rs("yanshi3")=2 then%>selected<%end if%>>直线型</option>
<option value="3" <%if rs("yanshi3")=3 then%>selected<%end if%>>凹型</option>
<option value="4" <%if rs("yanshi3")=4 then%>selected<%end if%>>曲线型</option>
</select>
； <br />
点击广告区域 ： 左上角坐标： X：
<input size=3 type="text" class=input name="x11" value="<%=rs("x11")%>">
Y：
<input size=3 type="text" class=input name="y11" value="<%=rs("y11")%>">
；
右下角坐标： X：
<input size=3 type="text" class=input name="x12" value="<%=rs("x12")%>">
Y：
<input size=3 type="text" class=input name="y12" value="<%=rs("y12")%>">
；<br />
点击等待延时：
<input size=3 type="text" class=input name="yanshi1" value="<%=rs("yanshi1")%>">
秒； 点击前移动用时：
<select size="1" name="yanshi2">
<option value="0" <%if rs("yanshi2")=0 then%>selected<%end if%>>随机</option>
<option value="0.4" <%if rs("yanshi2")=0.4 then%>selected<%end if%>>快 0.4秒</option>
<option value="0.7" <%if rs("yanshi2")=0.7 then%>selected<%end if%>>中 0.7秒</option>
<option value="1.2" <%if rs("yanshi2")=1.2 then%>selected<%end if%>>慢 1.2秒</option>
</select>
； 点击前停留时间：
<select size="1" name="yanshi5">
<option value="0" <%if rs("yanshi5")=0 then%>selected<%end if%>>随机</option>
<option value="0.4">快 0.4秒</option>
<option value="0.7">中 0.7秒</option>
<option value="1.2">慢 1.2秒</option>
</select>
；<br />
点击网址列表：
<label>
<textarea cols="60" name="wzlb"><%=rs("wzlb")%></textarea>
<br />
关键词列表 ：
<textarea name="keywords" cols="40"><%=rs("keywords")%></textarea>
从搜索引擎的来源比：
<input size="3" type="text" class="input" name="searchbi" value="<%=rs("searchbi")%>" />
%；</label>
<br />
以下是点击次数的每小时分布设定：
<input name="sjsuiji" type="checkbox" value="" onclick="opencat(time_<%=rs("id")%>);" />
是否随机 （选择可以自己设定，不选则随机）
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="time_<%=rs("id")%>" style="display:none;" >
<tr><td>
1：
<input type="text" name="h1" size="4" value="<%=rs("h1")%>" />
2：
<input type="text" name="h2" size="4" value="<%=rs("h2")%>" />
3：
<input type="text" name="h3" size="4" value="<%=rs("h3")%>" />
4：
<input type="text" name="h4" size="4" value="<%=rs("h4")%>" />
5：
<input type="text" name="h5" size="4" value="<%=rs("h5")%>" />
6：
<input type="text" name="h6" size="4" value="<%=rs("h6")%>" />
7：
<input type="text" name="h7" size="4" value="<%=rs("h7")%>" />
8：
<input type="text" name="h8" size="4" value="<%=rs("h8")%>" />
<br />
9：
<input type="text" name="h9" size="4" value="<%=rs("h9")%>" />
10：
<input type="text" name="h10" size="4" value="<%=rs("h10")%>" />
11：
<input type="text" name="h11" size="4" value="<%=rs("h11")%>" />
12：
<input type="text" name="h12" size="4" value="<%=rs("h12")%>" />
13：
<input type="text" name="h13" size="4" value="<%=rs("h13")%>" />
14：
<input type="text" name="h14" size="4" value="<%=rs("h14")%>" />
15：
<input type="text" name="h15" size="4" value="<%=rs("h15")%>" />
16：
<input type="text" name="h16" size="4" value="<%=rs("h16")%>" />
<br />
17：
<input type="text" name="h17" size="4" value="<%=rs("h17")%>" />
18：
<input type="text" name="h18" size="4" value="<%=rs("h18")%>" />
19：
<input type="text" name="h19" size="4" value="<%=rs("h19")%>" />
20：
<input type="text" name="h20" size="4" value="<%=rs("h20")%>" />
21：
<input type="text" name="h21" size="4" value="<%=rs("h21")%>" />
22：
<input type="text" name="h22" size="4" value="<%=rs("h22")%>" />
23：
<input type="text" name="h23" size="4" value="<%=rs("h23")%>" />
24：
<input type="text" name="h0" size="4" value="<%=rs("h0")%>" />
</label>
</td></tr></table>
</td></tr></table></td>
<td width="39" >
<input class=input type="submit" value="修 改" name="Submit" />
<br />
<a href='clickad2.Asp?act=del&id=<%=rs("id")%>' >
<font color=red>删除</font></a></td>
</tr>
</form>
<%
if (i mod (MaxList/2)=0) and i>=(MaxList/2) then
%>
<%
end if
if i>=MaxList then exit do
rs.movenext
loop
rs.close
end if
%> <form method="POST" action="clickad2.Asp?act=add">
<tr class="tdbg">
<td width="123" rowspan="2"><strong>添加广告地址：</strong></td>
<td rowspan="2">广告名称：<input size=15 type="text" class=input name="adsname">
；每日点击量：
<input size=6 type="text" class=input name="urlcount" value="2000">
； 点击显示比：
<input size="3" type="text" class="input" name="urldisplay" value="12" />
%；
<input type="radio" value="1" name="urlok" checked="checked" />
启用
<input type="radio" value="0" name="urlok" />
关闭 <br />
<label>
<input name="Input" type="checkbox" value="" onclick="opencat(sub_new);" />
点击设置广告详细信息 </label>
<table width="98%" border="0" cellspacing="0" cellpadding="0" id="sub_new" style="display:none;" >
<tr>
<td>点击类型：
每天每个IP广告展示次数：
<input size="3" type="text" class="input" name="cishu" value="1" />
次 鼠标移动轨迹路线：
<select size="1" name="yanshi3">
<option value="0" selected="selected">随机</option>
<option value="1">凸型</option>
<option value="2">直线型</option>
<option value="3">凹型</option>
<option value="4">曲线型</option>
</select>
； <br />
点击广告区域 ： 左上角坐标： X：
<input size="3" type="text" class="input" name="x11" value="0" />
Y：
<input size="3" type="text" class="input" name="y11" value="0" />
；
右下角坐标： X：
<input size="3" type="text" class="input" name="x12" value="0" />
Y：
<input size="3" type="text" class="input" name="y12" value="0" />
；<br />
点击等待延时：
<input size="3" type="text" class="input" name="yanshi1" value="3" />
秒； 点击前移动用时：
<select size="1" name="yanshi2">
<option value="0">随机</option>
<option value="0.4">快 0.4秒</option>
<option value="0.7" selected="selected">中 0.7秒</option>
<option value="1.2">慢 1.2秒</option>
</select>
；点击前停留时间：
<select size="1" name="yanshi5">
<option value="0">随机</option>
<option value="0.4">快 0.4秒</option>
<option value="0.7" selected="selected">中 0.7秒</option>
<option value="1.2">慢 1.2秒</option>
</select>
；<br />
点击网址列表：
<label>
<textarea name="wzlb" cols="60"></textarea>
<br />
关键词列表 ：
<textarea name="keywords" cols="40"></textarea>
从搜索引擎的来源比：
<input size="3" type="text" class="input" name="searchbi" value="80" />
%；<br />
以下是点击次数的每小时分布设定：
<input name="sjsuiji" type="checkbox" value="" onclick="opencat(time_new);" />
是否随机 （选择可以自己设定，不选则随机）
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="time_new" style="display:none;" >
<tr><td>
1：
<input type="text" name="h1" size="4" />
2：
<input type="text" name="h2" size="4" />
3：
<input type="text" name="h3" size="4" />
4：
<input type="text" name="h4" size="4" />
5：
<input type="text" name="h5" size="4" />
6：
<input type="text" name="h6" size="4" />
7：
<input type="text" name="h7" size="4" />
8：
<input type="text" name="h8" size="4" />
<br />
9：
<input type="text" name="h9" size="4" />
10：
<input type="text" name="h10" size="4" />
11：
<input type="text" name="h11" size="4" />
12：
<input type="text" name="h12" size="4" />
13：
<input type="text" name="h13" size="4" />
14：
<input type="text" name="h14" size="4" />
15：
<input type="text" name="h15" size="4" />
16：
<input type="text" name="h16" size="4" />
<br />
17：
<input type="text" name="h17" size="4" />
18：
<input type="text" name="h18" size="4" />
19：
<input type="text" name="h19" size="4" />
20：
<input type="text" name="h20" size="4" />
21：
<input type="text" name="h21" size="4" />
22：
<input type="text" name="h22" size="4" />
23：
<input type="text" name="h23" size="4" />
24：
<input type="text" name="h0" size="4" />
</label>
</td></tr></table></td>
</tr>
</table></td>
<td></td>
</tr>
<tr class="tdbg">
<td>
<input type="submit" value="添 加" name="B3" class=input /></td>
</tr>
</form>
</table>
<%
set rs=nothing
conn.close
set conn=nothing
%>
<br>
<table cellpadding="2" cellspacing="1" border="0" class="border" align=center>
<tr>
<td class="title" align="center">投 放 分 布 效 果</td>
</tr>
<tr>
<td class="tdbg">
<iframe name="AdsListWin" width=100% height=457 src="about:blank" frameborder=no border=0 MARGINWIDTH=0 MARGINHEIGHT=0 SCROLLING=auto></iframe></td>
</tr>
</table>
</body>
</html>
<%
function F_WriteBgColor(co)
if co=1 then
response.write " style=""background-color: #9DCDF9"" "
elseif co=2 then
response.write " style=""background-color: #FF99FF"" "
else
end if
end function
function F_WriteHourTitle(id)
dim rs,urlcount,AdsTimeConfig(25)
AdsTimeConfig(0)=0.02362
AdsTimeConfig(1)=0.01689
AdsTimeConfig(2)=0.01097
AdsTimeConfig(3)=0.00823
AdsTimeConfig(4)=0.00703
AdsTimeConfig(5)=0.00693
AdsTimeConfig(6)=0.00952
AdsTimeConfig(7)=0.02736
AdsTimeConfig(8)=0.06688
AdsTimeConfig(9)=0.06489
AdsTimeConfig(10)=0.06101
AdsTimeConfig(11)=0.05639
AdsTimeConfig(12)=0.05699
AdsTimeConfig(13)=0.05687
AdsTimeConfig(14)=0.05875
AdsTimeConfig(15)=0.05594
AdsTimeConfig(16)=0.05579
AdsTimeConfig(17)=0.05502
AdsTimeConfig(18)=0.05184
AdsTimeConfig(19)=0.05586
AdsTimeConfig(20)=0.06033
AdsTimeConfig(21)=0.05741
AdsTimeConfig(22)=0.04211
AdsTimeConfig(23)=0.03335
set rs=server.createobject("adodb.recordset")
for i=0 to 23
sql="select * from adsurllist where id=" & id
rs.open sql,conn,1,1
if not rs.eof then '如果该URL进入没有写入数据，那就新建数据
if rs("sjsuiji")=0 then
urlcount=rs("urlcount") '取出该URL本日最大控制量
urlcount=urlcount*AdsTimeConfig(i) '换成当前小时最大控制量
else
urlcount=rs("h"&i)
end if
end if
rs.close
response.write " " & i & "-" & i+1 & "点：" & int(urlcount) & "点"
next
set rs=nothing
end function
if err.number<>0 then
response.write "出错了，错误描述："&err.description & "<br>错误来源"& err.source
response.End()
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -