📄 option.asp

📁 电影ASP文件
💻 ASP
字号:
<!--#include file="session.asp"-->
<!--#include file=config.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=style.css rel=STYLESHEET type=text/css>
<base target=_top></head><body marginwidth=0 marginheight=0>
<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>
<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 from [ads] where id="&getid
adsrs.open adssql,adsconn,1,1
%>
<p><img border=0 width=468 height=60 src=<%=adsrs("gif_url")%>></p>
<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
%>
</center></div>
⌨️ 快捷键说明

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