📄 option.asp

📁 购物网站源码有需要的赶快下载机不可失
💻 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>
<meta http-equiv=Pragma content=no-cache>
<%=citycss%>
</head>
<body style="margin:0">
<center>
<%
dim getid,adsrs,adssql
getid=cint(request.querystring("id"))

if request.querystring("job")="close" then
set adsrs=server.createobject("adodb.recordset")
adssql="Select SMT_id,SMT_sitename,SMT_act from [SMT_ads] where SMT_id="&getid
adsrs.open adssql,conn,1,3
adsrs("SMT_act")=0
adsrs.Update
%>
<br><br>以下网站的广告被暂停：<br><br>
<%=adsrs("SMT_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 [SMT_ads] where SMT_id="&getid
conn.execute(adssql)
%>
<br><br>网站广告被成功删除！<br><br>
<a href=javascript:window.close()>关闭窗口</a>

<%
elseif request.querystring("job")="banner" then
set adsrs=server.createobject("adodb.recordset")
adssql="Select SMT_id,SMT_gif_url,SMT_showtype,SMT_width,SMT_height from [SMT_ads] where SMT_id="&getid
adsrs.open adssql,conn,1,1

if adsrs("SMT_showtype")="i" then
%><img border=0 width=<%=adsrs("SMT_width")%> height=<%=adsrs("SMT_height")%> src=<%=adsrs("SMT_gif_url")%>>
<%
elseif adsrs("SMT_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("SMT_width")%> height=<%=adsrs("SMT_height")%>>
<param name=movie value=<%=adsrs("SMT_gif_url")%>><param name=quality value=high>
<embed src=<%=adsrs("SMT_gif_url")%> quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash width=<%=adsrs("SMT_width")%> height=<%=adsrs("SMT_height")%>>
</embed></object></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 SMT_id,SMT_sitename,SMT_act from [SMT_ads] where SMT_id="&getid
adsrs.open adssql,conn,1,3
adsrs("SMT_act")=1
adsrs.Update
%>
<br><br>以下网站的广告被激活：<br><br>
<%=adsrs("SMT_sitename")%><br><br>
<a href=javascript:window.close()>关闭窗口</a>
<%
adsrs.close
else

end if
%>


<%
set adsrs=nothing 
conn.close
set conn=nothing
%>
</center>
⌨️ 快捷键说明

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