⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 addads.asp

📁 社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功
💻 ASP
字号:
🔍 
<%@ LANGUAGE="VBSCRIPT" %>
<%
'################################################################
'#         易成 ADisease 1.0 广告发布管理系统
'#
'#      版权所有: 易成在线(isease.com)
'#
'#      程序制作: 庞磊(isease@isease.com)
'#
'#      主页地址: http://www.isease.com
'#
'#      开发环境：Win2000 SERVER+IIS5+ACCESS2000 IE5.0 
'################################################################
'#【版权声明】
'# 1、 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法
'#     修改、转载、散播。
'# 
'# 2、 程序中版权声明请勿删除，在您使用过程中，它不会向浏览广告
'#     的第三方提示任何与易成相关的信息，更不影响您的使用。
'# 
'# 3、 本软体为免费软件，用户自由选择是否使用，在使用中出现任何
'#     问题而造成的损失本站不负任何责任。
'# 
'# 4、 本软体不允许在没有事先通知的情况下用于商业用途，假如您需
'#     要用于商业用途，请和我们联系。
'# 
'# 5、 如果违反移上条款，易成在线isease.com对此保留一切法律追究
'#     的权利。 
'# 
'################################################################
'#
'#请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作，
'#
'#在您使用过程中，它不会向浏览广告的第三方提示任何与易成相关的信息，
'#
'#更不影响您的使用。
'#
'# 如有任何问题请到我们的论坛告诉我们。
'# 
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'################################################################
%>
<!--#include file=config.asp -->

<html><head>
<meta http-equiv=Content-Language content=zh-cn>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<meta http-equiv=Pragma content=no-cache>
<link href=style.css rel=STYLESHEET type=text/css>
<script language=JavaScript>
<!--

function opw(url,name, width, height) { //v2.0
window.open(url,name,''+'width='+width+',height='+height+',scrollbars=yes'+'');

function checkform00()
{

  if (addadschk.itype.value == "nothingbeselected")
  {
    alert("请选择显示类型！");
    addadschk.itype.focus();
    return (false);
  }
  
  if (addadschk.name.value == "")
  {
    alert("请输入站名！");
    addadschk.name.focus();
    return (false);
  }
  return (true);
}
}
//-->
</script>
<title>易成 ADisease 广告发布管理系统 V1.0</title>
</script>
<base target=_top>
</head><body marginwidth=0 marginheight=0>


<%
if session("masterlogin")<>"superadvertadmin" then
%>
<div align=center><center>
<li>本页面为版主专用，请登陆管理后进入。
<form method=POST action=chkadm.asp><table cellpadding=3 border=0>
<tr><td colspan=2 align=center>管理员登陆</td></tr>
<tr><td align=right>用户名：</td>
<td><input name=username maxlength=20 size=20></td></tr>
<tr><td align=right>密 码：</td>
<td><input type=password name=password maxlength=16 size=20></td></tr>
<tr><td colspan=2 align=center>
<input type=submit name=Submit value=确定>
&nbsp;
<input type=reset name=Submit2 value=重写>
</td></tr></table></form>
</center></div>
<%
else
%>
<div align=center><center>
<table border=0 width=770 cellspacing=1 cellpadding=0 bgcolor=#000000>
<tr bgcolor=#ffffff align=center valign=top>
<td width=137><!--#include file=menu.asp --></td>
<td width=630>
<table border=0 width=100% cellspacing=3 cellpadding=3>
<tr><td align=center>
<%
if request.querystring("job")="add" then
%>
<font size="3" color=red><b>添加成功，请继续使用。</b></font>
<%
else
%>
<font size="3" color=red><b>添加新的广告条目</b></font>
<%
end if
%>
</td></tr></table>

<table border=0 cellspacing=0 cellpadding=0><tr><td bgcolor=#304050>

<table border=0 width=630 cellspacing=1 cellpadding=2>
<form name="addadschk"  method=POST action="addads.asp?job=add" onsubmit="return checkform00()">
<%
if request.querystring("job")="add" then
adsconn.open adsdata
dim getname,geturl,getgif,getplace,getwin,adsrs,adssql,getclass,getclicks,getshows,gettime,gettype

getname = Trim(Request("name"))
geturl = Trim(Request("url"))
getgif = Trim(Request("gif_url"))
getplace =trim(Request("place"))
getwin =trim(Request("window"))
getclass=trim(Request("class"))
gettype=trim(Request("itype"))

if getclass=0 then
getclicks=0
getshows=0
gettime=now()

elseif getclass=1 then
getclicks=trim(request("clicks1"))
getshows=0
gettime=now()

elseif getclass=2 then
getclicks=0
getshows=trim(request("shows2"))
gettime=now()

elseif getclass=3 then
getclicks=0
getshows=0
gettime=trim(request("time3"))

elseif getclass=4 then
getclicks=trim(request("clicks4"))
getshows=trim(request("shows4"))
gettime=now()

elseif getclass=5 then
getclicks=trim(request("clicks5"))
getshows=0
gettime=trim(request("time5"))

elseif getclass=6 then
getclicks=0
getshows=trim(request("shows6"))
gettime=trim(request("time6"))

elseif getclass=7 then
getclicks=trim(request("clicks7"))
getshows=trim(request("shows7"))
gettime=trim(request("time7"))
end if


set adsrs=server.createobject("adodb.recordset")
adssql="select * from ads"
adsrs.open adssql,adsconn,1,3
adsrs.AddNew
adsrs("act") = 1
adsrs("sitename") = getname
adsrs("showtype") = gettype
adsrs("url") = geturl
adsrs("gif_url") = getgif
adsrs("place") = getplace
adsrs("window") = getwin
adsrs("class") = getclass
adsrs("clicks") = getclicks
adsrs("shows") = getshows
adsrs("lasttime") = gettime
adsrs("regtime") = Now()
adsrs("time") = now()
adsrs.update
adsrs.close
set adsrs=nothing
adsconn.close
set adsconn=nothing

end if
%>

<tr bgcolor=#ffffff><td>显示类型</td><td><input type="radio" name="itype" value="" checked>请选择 
<input type="radio" name="itype" value="i">图片 
<input type="radio" name="itype" value="f">Flash</td></tr>
<tr bgcolor=#ffffff><td width=85>中文站名</td><td width=540><input type=text name="name" size=30 maxlength=30>　不超过15个中文或30个字母数字</td></tr>
<tr bgcolor=#ffffff><td width=85>站点URL</td><td width=540><input type=text name=url size=40 value="http://"></td></tr>
<tr bgcolor=#ffffff><td>图标URL</td><td><input type=text name=gif_url size=40 value="http://"></td></tr>

<tr bgcolor=#ffffff><td>图标摆放位置</td><td><select size=1 name=place><option value=0 selected>新闻页面</option><option value=1>首要页面</option></select></td></tr>

<tr bgcolor=#ffffff><td>打开方式</td><td><select size=1 name=window><option value=0 selected>新窗口打开</option><option value=1>原窗口打开</option></select></td></tr>

<tr bgcolor=#c0d0e0><td>广告播放条件</td><td>　受多个条件限制的广告，只要有一个条件满足，该广告便自动进入休眠状态，你可以修改限制条件并激活广告。</td></tr>


<tr bgcolor=#ffffff><td rowspan=8 valign=top>　　</td><td>
<table border=0><tr><td><input type=radio value=0 name=class checked></td><td>无限制循环</td></tr></table>
</td></tr>

<tr><td bgcolor=#ffffee>
<table border=0><tr>
<td><input type=radio value=1 name=class></td>
<td>点击数不超过</td>
<td><input type=text name=clicks1 size=8></td>
</tr></table>
</td></tr>

<tr><td bgcolor=#ffffff>
<table border="0"><tr>
<td><input type=radio value=2 name=class></td>
<td>显示数不超过</td>
<td><input type=text name=shows2 size=8></td>
</tr></table>
</td></tr>

<tr><td bgcolor=#ffffee>
<table border="0"><tr>
<td><input type=radio value=3 name=class></td>
<td>显示截止期为</td>
<td><input type=text name=time3 size=20>　<font color=#FF0000>格式为yyyy-mm-dd hh:mm:ss或者yyyy-mm-dd</font></td>
</tr></table>
</td></tr>

<tr><td bgcolor=#ffffff>
<table border="0"><tr>
<td><input type=radio value=4 name=class></td>
<td>点击数不超过</td>
<td><input type=text name=clicks4 size=8></td>
</tr><tr>
<td></td>
<td>显示数不超过</td>
<td><input type=text name=shows4 size=8></td>
</tr></table>
</td></tr>

<tr><td bgcolor=#ffffee>
<table border="0"><tr>
<td><input type=radio value=5 name=class></td>
<td>点击数不超过</td>
<td><input type=text name=clicks5 size=8></td>
</tr><tr>
<td></td>
<td>显示截止期为</td>
<td><input type=text name=time5 size=20>　<font color=#FF0000>格式为yyyy-mm-dd hh:mm:ss或者yyyy-mm-dd</font></td>
</tr></table>
</td></tr>

<tr><td bgcolor=#ffffff>
<table border="0"><tr>
<td><input type=radio value=6 name=class></td>
<td>显示数不超过</td>
<td><input type=text name=shows6 size=8></td>
</tr><tr>
<td></td>
<td>显示截止期为</td>
<td><input type=text name=time6 size=20>　<font color=#FF0000>格式为yyyy-mm-dd hh:mm:ss或者yyyy-mm-dd</font></td>
</tr></table>
</td></tr>

<tr><td bgcolor=#ffffee>
<table border="0">
<tr>
<td><input type=radio value=7 name=class></td>
<td>点击数不超过</td>
<td><input type=text name=clicks7 size=8></td>
</tr>
<tr>
<td></td>
<td>显示数不超过</td>
<td><input type=text name=shows7 size=8></td>
</tr>
<tr>
<td></td>
<td>显示截止期为</td>
<td><input type=text name=time7 size=20>　<font color=#FF0000>格式为yyyy-mm-dd hh:mm:ss或者yyyy-mm-dd</font></td>
</tr>
</table>
</td></tr>

<tr bgcolor=#ffffff><td colspan=2 align=center><input type=submit value=提交 name=B1><input type=reset value=重写 name=B2></td></tr>

</table>

</td></tr></form></table>

</td></tr>
</table>

</center></div>

<%
end if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -