url.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对此保留一切法律追究
'#     的权利。 
'# 
'################################################################
'#
'#请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作，
'#
'#在您使用过程中，它不会向浏览广告的第三方提示任何与易成相关的信息，
'#
'#更不影响您的使用。
'#
'# 如有任何问题请到我们的论坛告诉我们。
'# 
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'################################################################
%>

<!--#include file=config.asp -->

<%
dim getid,getclick,geturl,adsrs,adssql,adsrsc,adssqlc,getip
adsconn.open adsdata
getid=cint(request.querystring("id"))
set adsrs=server.createobject("adodb.recordset")
adssql="Select id,url,click from [ads] where id="&getid
adsrs.open adssql,adsconn,1,3
getclick=adsrs("click")+1
adsrs("click")=getclick
adsrs.Update

getip=request.ServerVariables("REMOTE_ADDR")
set adsrsc=server.createobject("adodb.recordset")
adssqlc="select * from iplist"
adsrsc.open adssqlc,adsconn,1,3
adsrsc.AddNew
adsrsc("adid") =getid
adsrsc("time") = now()
adsrsc("ip") = getip
adsrsc("class") = 2
adsrsc.update
adsrsc.close
set adsrsc=nothing 


geturl=adsrs("url")
adsrs.close
set adsrs=nothing 
adsconn.close
set adsconn=nothing
response.redirect geturl
%>