?? ipdel.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>
<style>
<!--
table {WORD-BREAK: break-all;}
-->
</style>
</head><body marginwidth=0 marginheight=0>
<div align=center><center><table width="100%" height="100%"><tr><td align=center>
<%
if session("masterlogin")<>"superadvertadmin" then
%>
<br><br>
<li>权限不足,请登陆管理后进入。
<%
else
adsconn.open adsdata
dim getid,adsrs,adssql
getid=cint(request.querystring("id"))
Select Case request.querystring("job")
case "close"
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
case "delit"
%>
<br><br>IP 记录将被删除!<br>
其IP记录被删除后不能恢复。<br><br><br>
<a href=ipdel.asp?id=<%=getid%>&job=del>继续</a>还是
<a href=javascript:window.close()>退出</a>?
<%
case "del"
'adssql="delete from [ads] where id="&getid
'adsconn.execute(adssql)
dim adssqldelip
adssqldelip="delete from [iplist] where adid="&getid
adsconn.execute(adssqldelip)
%>
<br><br>IP 记录被成功删除!<br><br>
<%
case "yulan"
set adsrs=server.createobject("adodb.recordset")
adssql="Select id,sitename,intro,gif_url,window,show,place,time,xslei,wid,hei from [ads] where id="&getid
adsrs.open adssql,adsconn,3,3
adsrs("show")=adsrs("show")+1
adsrs("time")=now()
adsrs.Update
if adsrs("window")=0 then
ttarg = "_blank"
else
ttarg="_top"
end if
Dim GaoAndKuan
GaoAndKuan=""
if isnumeric(adsrs("hei")) then
GaoAndKuan=" height="&adsrs("hei")&" "
else
if right(adsrs("hei"),1)="%" then
if isnumeric(Left(len(adsrs("hei"))-1))=true then
GaoAndKuan=" height="&adsrs("hei")&" "
end if
end if
end if
if isnumeric(adsrs("wid")) then
GaoAndKuan=GaoAndKuan&" width="&adsrs("wid")&" "
else
if right(adsrs("wid"),1)="%" then
if isnumeric(Left(len(adsrs("wid"))-1))=true then
GaoAndKuan=GaoAndKuan&" width="&adsrs("wid")&" "
end if
end if
end if
Select Case adsrs("xslei")
Case "txt"%><a title="<%=adsrs("sitename")%>" href="<%=DqUrl%>/url.asp?id=<%=adsrs("id")%>" target="<%=ttarg%>"><%=UBBCode(adsrs("intro"))%></a>
<% Case "gif"%><a href="<%=DqUrl%>/url.asp?id=<%=adsrs("id")%>" target="<%=ttarg%>"><img art="<%=adsrs("sitename")%>" border=0 <%=GaoAndKuan%> src="<%=adsrs("gif_url")%>"></a>
<% Case "swf"%><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http:/download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"; <%=GaoAndKuan%>><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("wid")%>" height="<%=adsrs("hei")%>"></embed></object>
<% Case "dai"%><iframe marginwidth=0 marginheight=0 frameborder=0 bordercolor=000000 scrolling=no name="網域高科WEB廣告管理系統 zon.cn" src="<%=DqUrl%>/daima.asp?id=<%=adsrs("id")%>" <%=GaoAndKuan%>></iframe>
<% Case else%><a href="<%=DqUrl%>/url.asp?id=<%=adsrs("id")%>" target="<%=ttarg%>"><img art="<%=adsrs("sitename")%>" border=0 <%=GaoAndKuan%> src="<%=adsrs("gif_url")%>"></a>
<%
End Select%>
<%
adsrs.close
%>
<%
case "yulanggw"
%><script language="javascript" src="<%=DqUrl()%>/ad.asp?i=<%=getid%>"></script>
<%
case "open"
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
End Select
%>
<%
set adsrs=nothing
adsconn.close
set adsconn=nothing
end if
%>
</td></tr><tr height=10 align=center><td><a href=javascript:window.close()>关闭窗口</a>
<a href="javascript:this.location.reload();">刷新</a></td></tr></table>
</center></div>
</body></html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -