📄 savemodi.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>
<title>易成 ADisease 修改广告播放设置</title>
</script>
<base target=_top>
</head><body marginwidth=0 marginheight=0>
<%
if session("masterlogin")<>"superadvertadmin" then
%>
<div align=center><center><p> </p><p> </p>
<li>本页面为版主专用，请登陆管理后进入。
</center></div>
<%
else
adsconn.open adsdata
dim getid,getname,geturl,getgif,getplace,getwin,adsrs,adssql,getclass,getclicks,getshows,gettime,gettype
getid=cint(request.querystring("id"))
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 where id="&getid
adsrs.open adssql,adsconn,1,3
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.update
adsrs.close
set adsrs=nothing
adsconn.close
set adsconn=nothing
end if
%>
<div align=center><center><p> </p><p> </p>
<li>资料修改成功！<br><br>
如果修改的是暂停或者失效广告，请激活。<br><br>
<a href=javascript:window.close()>关闭窗口</a>
</center></div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -