option.asp
来自「新闻发布系统」· ASP 代码 · 共 94 行
ASP
94 行
<!--#include file=config.asp -->
<!--#include file="check.asp"-->
<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=../Fsmanage/css/css.css rel=STYLESHEET type=text/css>
<base target=_self></head><body marginwidth=0 marginheight=0>
<!--#include file=menu.asp -->
<div align="center"></div>
<div align=center><center>
<%
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>
<%
adsrs.close
elseif request.querystring("job")="delit" then
%>
<br>
<br>删除此广告，则其 IP 记录也将被删除！<br>
广告及其IP记录被删除后不能恢复。<br><br><br>
<a href=option.asp?id=<%=getid%>&job=del target="_self">继续</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>
<%
elseif request.querystring("job")="banner" then
set adsrs=server.createobject("adodb.recordset")
adssql="Select id,gif_url,showtype,width,height from [ads] where id="&getid
adsrs.open adssql,adsconn,1,1
if adsrs("showtype")="i" then
%>
<img border=0 width=<%=adsrs("width")%> height=<%=adsrs("height")%> src=<%=adsrs("gif_url")%>>
<%
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=<%=adsrs("width")%> height=<%=adsrs("height")%>>
<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=<%=adsrs("width")%> height=<%=adsrs("height")%>>
</embed></object></p>
<%
end if
%>
<%
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>
<%
adsrs.close
else
end if
%>
<%
set adsrs=nothing
adsconn.close
set adsconn=nothing
%>
</center></div>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?