[特别奉献]免费空间广告万能消除代码
上次我的主页被人黑掉了（也怪我ftp密码设得太简单），结果代码被人篡改（参看： [url]www.blueidea.com/bbs/NewsDetail.asp?id=1927165[/url] ）。于是这次我学乖了，干脆开源，和免费空间广告正大光明的斗一斗法。新代码使用方法如下：
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2132">
<META NAME="Generator" CONTENT="PhotoImpact">
<link href="word.css" rel="stylesheet" type="text/css">
<title>Perl 学习手札</title></HEAD>
<body onload=closeADX()>
<div style="z-index:99999;position:absolute;top:0;left:0;background-color: #CCFF66;width:100%;height:100%"><center>请稍候，正载入页面......</div>
廴
<script>
window.onerror="return true"
abcde12345=setInterval('window.onerror="return true"',0)
setTimeout("clearInterval(abcde12345)",3000)
function closeADX()
{okk=document.body.innerHTML
cd=/廴([\s\S]+)卩/m
cd.exec(okk)
km3=RegExp.$1
document.body.innerHTML=km3}
</script>
<a href="ch14.htm" target=_blank>14. 引用 (Reference)</a><BR/>
14.1 何谓引用<BR/>
14.2 取得引用<BR/>
14.3 引用的内容<BR/>
14.4 利用引用进行二维数组<BR/>
<BR/>
<a href="ch15.htm" target=_blank>15. 关于数据库的基本操作</a><BR/>
15.1 DBM<BR/>
15.1.1 与DBM连系<BR/>
15.1.2 DBM文件的操作<BR/>
15.1.3 多重资料<BR/>
15.2 DB_File<BR/>
15.3 DBI<BR/>
15.4 DBIx::Password<BR/>
<BR/>
<a href="ch16.htm" target=_blank>16. 用Perl实作网站程序</a><BR/>
16.1 CGI<BR/>
16.2 Template<BR/>
16.3 Mason<BR/>
<BR/>
<a href="ch17.htm" target=_blank>17. Perl与系统管理</a><BR/>
17.1 Perl在系统管理上的优势<BR/>
17.2 Perl的单行执行模式<BR/>
17.3 管理文件<BR/>
17.4 邮件管理<BR/>
17.4.1 Mail::Audit + Mail::SpamAssassin<BR/>
17.4.2 Mail::Sendmail 与 Mail::Bulkmail<BR/>
17.4.3 POP3Client 及 IMAPClient<BR/>
17.5 日志档<BR/>
17.6 报表<BR/>
<BR/>
<a href="app_a.htm" target=_blank>附录A. 习题解答</a><BR/>
<BR/>
</blockquote>
</td>
</tr>
<tr>
<td><iframe src="ad" width="743" height="57"></iframe></td>
</tr>
</table>
</BODY>
</HTML>卩
红色的部份是起广告消除作用的代码：主要部份加在body开始处，网页结尾处添上一个字符“卩”，夹在“廴”和“卩”之间的内容将显示在网页上，其他内容会被屏蔽掉。 不错 好东西要好好学习，楼主是个专业人士啊
页:
[1]