📄 option.asp

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

<html><head>
<meta http-equiv=Content-Language content=zh-cn>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<title>广告管理</title>
<meta http-equiv=Pragma content=no-cache>
<link href=style.css rel=STYLESHEET type=text/css>
<base target=_top></head><body marginwidth=0 marginheight=0>
<div align=center><center>
<%
if session("masterlogin")<>"superadvertadmin" then
%>
<br><br>
    <li>本页面为版主专用，请登陆管理后进入。 
      <%
else

adsconn.open adsdata
dim getid,adsrs,adssql
getid=cint(request.querystring("id"))

if request.querystring("job")="close" then
set adsrs=server.createobject("adodb.recordset")
adssql="Select id,sitename,act from [ads] where id="&getid
adsrs.open adssql,adsconn,1,3
adsrs("act")=0
adsrs.Update
%>
      <br>
      <br>
      以下网站的广告被暂停：<br>
      <br>
      <%=adsrs("sitename")%><br>
      <br>
      <a href=javascript:window.close()>关闭窗口</a> 
      <%
adsrs.close

elseif request.querystring("job")="delit" then
%>
      <br>
      <br>
      删除此广告，则其 IP 记录也将被删除！<br>
      广告及其IP记录被删除后不能恢复。<br>
      <br>
      <br>
      <a href=option.asp?id=<%=getid%>&job=del>继续</a>还是 
      <a href=javascript:window.close()>退出</a>？ 
      <%

elseif request.querystring("job")="del" then
adssql="delete from [ads] where id="&getid
adsconn.execute(adssql)
dim adssqldelip
adssqldelip="delete from [iplist] where adid="&getid
adsconn.execute(adssqldelip)
%>
      <br>
      <br>
      网站广告被成功删除！<br>
      <br>
      <a href=javascript:window.close()>关闭窗口</a> 
      <%
elseif request.querystring("job")="banner" then
set adsrs=server.createobject("adodb.recordset")
adssql="Select id,gif_url,showtype from [ads] where id="&getid
adsrs.open adssql,adsconn,1,1

if adsrs("showtype")="i" then
%>
      <%
elseif adsrs("showtype")="f" then
%>
      <p> 
        <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width=590 height=120>
          <param name=movie value=<%=adsrs("gif_url")%>>
          <param name=quality value=high>
          <embed src=<%=adsrs("gif_url")%> quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash width=590 height=120> 
          </embed></object>
        <img border=0 width=590 height=120 src=<%=adsrs("gif_url")%>></p>
      <%
end if
%>
      <a href=javascript:window.close()>关闭窗口</a> 
      <%
adsrs.close

elseif request.querystring("job")="open" then
set adsrs=server.createobject("adodb.recordset")
adssql="Select id,sitename,act from [ads] where id="&getid
adsrs.open adssql,adsconn,1,3
adsrs("act")=1
adsrs.Update
%>
      <br>
      <br>
      以下网站的广告被激活：<br>
      <br>
      <%=adsrs("sitename")%><br>
      <br>
      <a href=javascript:window.close()>关闭窗口</a> 
      <%
adsrs.close
else

end if
%>
      <%
set adsrs=nothing 
adsconn.close
set adsconn=nothing
end if
%>
  </center></div>
⌨️ 快捷键说明

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