📄 install.asp
字号:
<%
'################################################################
'# 易成 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>
<base target=_top>
<title>安装ADisease广告管理系统</title>
</head><body marginwidth=0 marginheight=0>
<%
if request.querystring("job")="" then
%>
<div align=center><center>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td bgcolor=#00000>
<table border=0 width=770 cellspacing=1 cellpadding=2>
<tr><td bgcolor=#dddddd height=22 align=center>欢迎安装使用易成 ADisease 1.0 广告发布管理系统！</td></tr>
<tr bgcolor=#ffffff><td class=p9t> 感谢您对<a href="http://www.isease.com" target=_blank>易成在线</a>的支持，ADisease 1.0 广告发布管理系统是易成在线独立开发的一个ASP程序，也是易成在线目前向大家提供的第一个网络产品。<br>
写这个系统的直接原因起于开始我想找一个ASP广告管理系统，在自己的网站上进行广告管理，但由于它可能属于商业程序，目前在网上可以公开下载的广告管理程序中，没有一个让我觉得满意的，于是我便萌生了自己写一个，除了自己使用外，再公开发表下载，同有志做此类开发的广大朋友进行交流。
</td></tr>
<tr><td bgcolor=#dddddd height=22> 使用易成 ADisease 1.0 广告发布管理系统，请接受<b>以下条款</b>！</td></tr>
<tr><td bgcolor=#ffffff class=p9t>
<li>1、本软体为共享软体(shareware)提供<font color=red>个人网站</font>免费使用，请勿非法修改、转载、散播。<br>
<li>2、程序中版权声明请勿删除，在您使用过程中，它不会向浏览广告的第三方提示任何与易成相关的信息，更不影响您的使用。<br>
<li>3、本软体为免费软件，用户自由选择是否使用，在使用中出现任何问题而造成的损失本站不负任何责任。<br>
<li>4、本软体不允许在没有事先通知的情况下用于商业用途，假如您需要用于商业用途，请和<a href="mailto:isease@isease.com">我们联系</a>。<br>
<li>5、如果您的网站正式起用了这个脚本，请您通知我。如果可能，请在您的网站做上我的链接，希望能给予合作。谢谢！<br>
<li>6、如果违反移上条款，易成在线isease.com对此保留一切法律追究的权利。
</td></tr>
<form method="POST" action=install.asp?job=agree>
<tr><td height=30 bgcolor=#ffffff align=center>
<input type="submit" name="Submit" value="我同意！">
</td></tr></form>
<tr><td bgcolor=#dddddd height=22> 易成 ADisease 1.0 广告发布管理系统具有如下特点：</td></tr>
<tr><td bgcolor=#ffffff class=p9t>
<li> 1、从管理上看，系统内管理的广告分三类：(1)目前在你的网站上正常播放的广告；(2)已满足限制条件(如开始设置的显示数已满，或者最后播放时间已到等)，被系统自动停止播放的失效广告；(3)由于其它原因，虽未失效，但被你人为停止播放的广告。<br>
<li> 2、在正常播放中的广告，你可以按摆放位置分为主、次类，比如网站首页、栏目首页可以摆放主要广告，而一般的内容页面，或者页面下方等非广告黄金位置，则放置次要的广告条。<br>
<li> 3、广告图片是循环播放，每次播放的图片是距今等待时间最长、且处于正常状态的广告。<br>
<li> 4、对于广告播放的条件，本系统提供了多种设置，除了设置单一的点击数、显示数、最后日期等限制，还可以将上述条件综合设置，比如设置点击数<500、显示数<5000、最后日期为 2005 年 2 月 1 日，则只要其中任一条件满足，则该广告便会成为失效广告不再播放。<br>
<li> 5、我还写了一个简单的 IP 跟踪器，以方便你查看广告图片观看者和点击者的 IP 地址。<br>
<li> 6、在管理页面，你可以删除任意一条广告，暂停任意正常广告，激活被暂停广告，修改失效广告的限制条件并激活成正常广告。<br>
<li> 7、当你删除其中一条广告的时候，这条广告的显示和点击记录也将被删除。<br>
<li> 8、可以通过多种条件查询广告条目。<br>
<li> 9、系统内管理的所有广告图片尺寸均为 480*60 像素，我在网络中调查发现此类尺寸的广告图片占总数 88% 。<br>
<li> 由于我的水平有限和难免的疏漏，如大家发现问题可以到<a href="http://www.isease.com" target=_blanl>易成在线论坛</a>中提出，我在力所能及的情况下会给您一个满意的解答。
</td></tr>
<tr><td bgcolor=#ffffff class=p9t>
版权所有: 易成在线(isease.com)<br>
程序制作: 庞磊(isease@isease.com)<br>
主页地址: http://www.isease.com<br>
开发环境：Win2000 SERVER+IIS5+ACCESS2000 IE5.0
</td></tr>
<tr><td height=12 bgcolor=#ffffff>.</td></tr></table>
</td></tr></table>
<%
elseif request.querystring("job")="agree" then
%>
<div align=center><center>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td bgcolor=#00000>
<table border=0 width=770 cellspacing=1 cellpadding=2>
<tr><td height=4 bgcolor=#ffffff></td></tr>
<tr><td bgcolor=#dddddd height=22 align=center>欢迎安装使用易成 ADisease 1.0 广告发布管理系统！</td></tr>
<tr bgcolor=#ffffff><td class=p9t> 在添加管理员之前：
<li> 请你将数据库文件 <font color=red>link.mdb</font> 改名，并移动到其它目录，谨防有人恶意下载。
<li> 依据上步操作，修改数据库连接文件 <font color=red>config.asp</font> 相应部分(如下红色部分)。<br>
adsdata="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("<font color=red>/ads/link.mdb</font>")<br>
或者 adsdata="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("<font color=red>/ads/link.mdb</font>")
</td></tr>
<tr><td bgcolor=#dddddd height=22> 设置易成 ADisease 1.0 广告发布管理系统管理员：</td></tr>
<tr><td bgcolor=#ffffff align=center>
<table border="0" cellspacing="3" cellpadding="2">
<form method="POST" action="install.asp?job=addadm">
<tr><td>管理员名称：</td><td><input name="user" maxlength="20" size="20"></td><td>可以使用中文名称(18字节)</td></tr>
<tr><td>管理员密码：</td><td><input type="password" name="pwd" maxlength="16" size="20"></td><td>只能使用数字和字母(16字节)</td></tr>
<tr><td>重复密码：</td><td><input type="password" name="pwd1" maxlength="16" size="20"></td><td> </td></tr>
<tr><td> </td><td align=center><input type="submit" value="提 交" name="B1"> <input type="reset" value="重 写" name="B2"></td><td> </td></tr>
</form></table>
</td></tr>
<tr><td bgcolor=#ffffff class=p9t>
版权所有: 易成在线(isease.com)<br>
程序制作: 庞磊(isease@isease.com)<br>
主页地址: http://www.isease.com<br>
开发环境：Win2000 SERVER+IIS5+ACCESS2000 IE5.0
</td></tr>
<tr><td height=12 bgcolor=#ffffff>.</td></tr></table>
</td></tr></table>
<%
elseif request.querystring("job")="addadm" then
adsconn.open adsdata
dim getuser,getpwd,getpwd1,adsadmrs,adsadmsql
getuser = Trim(Request("user"))
getpwd = Trim(Request("pwd"))
getpwd1 = Trim(Request("pwd1"))
if getpwd<>getpwd1 then
%>
<div align=center><center>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td bgcolor=#00000>
<table border=0 width=770 cellspacing=1 cellpadding=2>
<tr><td height=4 bgcolor=#ffffff></td></tr>
<tr><td bgcolor=#dddddd height=22 align=center> 安装错误信息：</td></tr>
<tr bgcolor=#ffffff><td class=p9t align=center>
<font size="5" color=red>您两次输入的密码不一致，请返回重新输入！</font></p>
<a href="install.asp?job=agree">《〈〈返 回</a>
</td></tr>
<tr><td bgcolor=#ffffff class=p9t>
版权所有: 易成在线(isease.com)<br>
程序制作: 庞磊(isease@isease.com)<br>
主页地址: http://www.isease.com<br>
开发环境：Win2000 SERVER+IIS5+ACCESS2000 IE5.0
</td></tr>
<tr><td height=12 bgcolor=#ffffff>.</td></tr></table>
</td></tr></table>
<%
elseif getuser="" or getpwd="" or getpwd1="" then
%>
<div align=center><center>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td bgcolor=#00000>
<table border=0 width=770 cellspacing=1 cellpadding=2>
<tr><td height=4 bgcolor=#ffffff></td></tr>
<tr><td bgcolor=#dddddd height=22 align=center> 安装错误信息：</td></tr>
<tr bgcolor=#ffffff><td class=p9t align=center>
<font size="5" color=red>
管理员名称、管理员密码、重复密码都是必填项目，请返回重新输入！</font></p>
<a href="install.asp?job=agree">《〈〈返 回</a>
</td></tr>
<tr><td bgcolor=#ffffff class=p9t>
版权所有: 易成在线(isease.com)<br>
程序制作: 庞磊(isease@isease.com)<br>
主页地址: http://www.isease.com<br>
开发环境：Win2000 SERVER+IIS5+ACCESS2000 IE5.0
</td></tr>
<tr><td height=12 bgcolor=#ffffff>.</td></tr></table>
</td></tr></table>
<%
else
set adsadmrs=server.createobject("adodb.recordset")
adsadmsql="select * from administ"
adsadmrs.open adsadmsql,adsconn,1,3
adsadmrs.AddNew
adsadmrs("admin") =getuser
adsadmrs("passwd") = getpwd
adsadmrs.update
adsadmrs.close
set adsadmrs=nothing
adsconn.close
set adsconn=nothing
%>
<div align=center><center>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td bgcolor=#00000>
<table border=0 width=770 cellspacing=1 cellpadding=2>
<tr><td height=4 bgcolor=#ffffff></td></tr>
<tr><td bgcolor=#dddddd height=22 align=center> 安装信息：欢迎使用易成广告发布管理系统！</td></tr>
<tr bgcolor=#ffffff><td class=p9t align=center><p> </p>
<font size="4" color=red>安装成功！</font><br>
请你牢记你设置的<font color=red>管理员名称、管理员密码</font>，<br>
并删除安装文件<font color=red> install.asp </font>，谨防别人恶意添加管理员！<br>
你也可以改名保存安装文件，以便日后添加管理员。
<table cellpadding=3 border=0>
<form method="POST" action=chkadm.asp>
<tr><td align=center colspan=2></td></tr>
<tr><td align=center colspan=2 class=p9r>管理员登陆</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 align=center colspan=2><input type="submit" name="Submit" value="确 定"> <input type="reset" name="Submit2" value="重 写"></td></tr>
<tr><td align=center colspan=2>
<p><a href=http://www.isease.com target=_blank><img border=0 src=logo128.gif width=128 height=60></a></td></tr>
</table>
</form>
</td></tr>
<tr><td height=18 bgcolor=#ffffff>.</td></tr></table>
</td></tr></table>
<%
end if
end if
%>
</center></div></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -