config.asp

某自治区政府的网站源代码

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

'数据库打开语句，依据你的情况使用其中一句即可
adsdata="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("link.asp")
'adsdata="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/ads/link.mdb")

'================url.asp地址修正部分================
dim adspath
adspath="ADMIN/banner/"
'路径说明
'此为 url.asp 的路径，如果你的网站上的 url.asp 的绝对路径是 http://www.yoursite.com/xyz/ads/url.asp
'请将 路径设置为 /xyz/ads/ 或者是 http://www.yoursite.com/xyz/ads/
'请注意前后的斜杠。同时请注意ads.asp中JAVASCRIPT输出部分是否修改


'==================修正结束=====================


set adsconn=server.createobject("ADODB.Connection")

'管理页面每页显示广告条数
const advertlistnumber=24
%>