📄 option.asp

📁 嘉缘人才6.0精简 ,很好用的人才系统
💻 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>
<LINK href=../css/style.css rel=stylesheet type="text/css">
</head>
<body style="margin:0">
<center>
<%

Adid=cint(request.querystring("id"))

if request.querystring("job")="close" then
set adsrs=server.createobject("adodb.recordset")
adssql="Select JOB_id,JOB_sitename,JOB_act from [JOB_ads] where JOB_id="&Adid
adsrs.open adssql,conn,1,3
adsrs("JOB_act")=0
adsrs.Update
%>
<br><br>以下网站的广告被暂停：<br><br>
<%=adsrs("JOB_sitename")%><br><br>
<a href=javascript:window.opener.location.reload();window.close()>关闭窗口</a>
<%
adsrs.close

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

<%
elseif request.querystring("job")="del" then
Set Rs=conn.execute("Select JOB_id,JOB_gif_url from JOB_ads where JOB_id="&Adid)
If Not Rs.eof then
gif_path=Rs(1)
End if
Rs.Close
Set Rs=Nothing
If gif_path<>"" then
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
gif_path=Server.MapPath(gif_path)
If Fso.fileExists(gif_path) then
Fso.deletefile(gif_path)
end if
Set Fso=Nothing
End if
adssql="delete from [JOB_ads] where JOB_id="&Adid
conn.execute(adssql)

%>
<br><br>网站广告被成功删除！<br><br>
<a href=javascript:window.opener.location.reload();window.close()>关闭窗口</a>

<%
elseif request.querystring("job")="banner" then
set adsrs=server.createobject("adodb.recordset")
adssql="Select JOB_id,JOB_gif_url,JOB_showtype,JOB_width,JOB_height from [JOB_ads] where JOB_id="&Adid
adsrs.open adssql,conn,1,1

if adsrs("JOB_showtype")="i" then
%><img border=0 width=<%=adsrs("JOB_width")%> height=<%=adsrs("JOB_height")%> src=<%=SiteUrl&InstallDir&adsrs("JOB_gif_url")%>>
<%
elseif adsrs("JOB_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("JOB_width")%> height=<%=adsrs("JOB_height")%>>
<param name=movie value=<%=SiteUrl&InstallDir&adsrs("JOB_gif_url")%>><param name=quality value=high>
<embed src=<%=SiteUrl&InstallDir&adsrs("JOB_gif_url")%> quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash width=<%=adsrs("JOB_width")%> height=<%=adsrs("JOB_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 JOB_id,JOB_sitename,JOB_act from [JOB_ads] where JOB_id="&Adid
adsrs.open adssql,conn,1,3
adsrs("JOB_act")=1
adsrs.Update
%>
<br><br>以下网站的广告被激活：<br><br>
<%=adsrs("JOB_sitename")%><br><br>
<a href=javascript:window.opener.location.reload();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 + -