[08-27] 分享几个平时收藏的代码，希望对大家有用

YYang

这些代码要用的时候就找不到，所以平时我都收藏着，不然找代码又一大堆病毒
大家看能用的就收藏一下，刚才整理硬盘找出来的
把代码复制到一个htm下保存就有效果了



HTML代码转换成JS脚本↓

1.       <TABLE class=link01 cellSpacing=0 cellPadding=0 width="100%" border=0>
   
2.         <TBODY>
   
3.         <TR>
   
4.           <TD bgColor=#bcccdf height=20>
   
5.             <DIV align=center>HTML代码转换成JS脚本</DIV></TD></TR>
   
6.         <TR>
   
7.           <TD align=middle>
   
8.             <DIV align=center>请将html代码复制到下面框中: <BR><TEXTAREA id=oSource onpropertychange=change() rows=10 cols=100></TEXTAREA>
   
9.             <BR>下面框中是相应的JS代码: <BR><TEXTAREA id=oResult ondblclick='this.select();oResult.createTextRange().execCommand("Copy")' title=双击复制 rows=10 cols=100></TEXTAREA>
   
10.             </TEXTAREA><BR>
    
11.             <SCRIPT language=JavaScript>
    
12. function change(){
    
13. oResult.value="document.writeln(\""+oSource.value.replace(/\\/g,"\\\\").replace(/\//g,"\\/").replace(/\'/g,"\\\'").replace(/\"/g,"\\\"").split('\r\n').join("\");\ndocument.writeln(\"")+"\")"
    
14. } </SCRIPT>
    
15. </DIV></TD></TR></TBODY></TABLE>
    
16. </BODY>
    
17. </HTML>

复制代码

单空间双域名↓

1. <%if Request.ServerVariables("SERVER_NAME")="aaa.com" then    '第一个输入的网址
   
2. response.redirect "flash/index.asp"                                               '将它转发到相应的文件夹
   
3. else%>
   
4. <%end if%>
   
5. <%if Request.ServerVariables("SERVER_NAME")="www.aaa.com" then  
   
6. response.redirect "flash/index.asp"                          
   
7. else%>
   
8. <%end if%>
   
9. <%if Request.ServerVariables("SERVER_NAME")="bbb.com" then     '第二个输入的网址
   
10. response.redirect "cd/index.asp"                                                 '将它转发到相应的文件夹
    
11. else%>
    
12. <%end if%>
    
13. <%if Request.ServerVariables("SERVER_NAME")="www.bbb.com" then
    
14. response.redirect "cd/index.asp"
    
15. else%>
    
16. <%end if%>

复制代码

超强力浮动图片↓

1. <script type="text/javascript">
   
2. var imagepath="http://www.171zz.com/images/default/logo.gif"
   
3. var imagewidth=198 //这两行写图片的大小
   
4. var imageheight=158
   
5. var speed=2;
   
6. var imageclick="http://www.171zz.com" //这里写点击图片连接到的地址
   
7. var hideafter=0
   
8. var isie=0;
   
9. if(window.navigator.appName=="Microsoft Internet Explorer"&&window.navigator.appVersion.substring(window.navigator.appVersion.indexOf("MSIE")+5,window.navigator.appVersion.indexOf("MSIE")+8)>=5.5) {
   
10. isie=1;
    
11. }
    
12. else {
    
13. isie=0;
    
14. }
    
15. if(isie){
    
16. var preloadit=new Image()
    
17. preloadit.src=imagepath
    
18. }
    
19. function pop() {
    
20. if(isie) {
    
21. x=x+dx;y=y+dy;
    
22. oPopup.show(x, y, imagewidth, imageheight);
    
23. if(x+imagewidth+5>screen.width) dx=-dx;
    
24. if(y+imageheight+5>screen.height) dy=-dy;
    
25. if(x<0) dx=-dx;
    
26. if(y<0) dy=-dy;
    
27. startani=setTimeout("pop();",50);
    
28. }
    
29. }
    
30. function dismisspopup(){
    
31. clearTimeout(startani)
    
32. oPopup.hide()
    
33. }
    
34. function dowhat(){
    
35. if (imageclick=="dismiss")
    
36. dismisspopup()
    
37. else
    
38. window.open(imageclick);
    
39. }
    
40. if(isie) {
    
41. var x=0,y=0,dx=speed,dy=speed;
    
42. var oPopup = window.createPopup();
    
43. var oPopupBody = oPopup.document.body;
    
44. oPopupBody.style.cursor="hand"
    
45. oPopupBody.innerHTML = '<IMG SRC="'+preloadit.src+'">';
    
46. oPopup.document.body.onmouseover=new Function("clearTimeout(startani)")
    
47. oPopup.document.body.onmouseout=pop
    
48. oPopup.document.body.onclick=dowhat
    
49. pop();
    
50. if (hideafter>0)
    
51. setTimeout("dismisspopup()",hideafter*1000)
    
52. }
    
53. </script>

复制代码

全站顶部广告栏调用↓

1. <title>域名..Domain Name...</title>
   
2. </head>
   
3. <frameset rows="65,*" cols="*" framespacing="0" frameborder="no" border="0">
   
4.   <frame src="up.html" name="topFrame" scrolling="No" noresize="noresize" id="topFrame" />
   
5.   <frame src="http://www.171zz.com" name="mainFrame" id="mainFrame" />
   
6. </frameset>
   
7. <noframes><body>
   
8. </body>
   
9. </noframes></html>

复制代码

cai520

不错。我也要了啊。

hhbibl

嘿嘿 不错

yourmoney

谢了，精品！！！！！！！！

eigrpeigrp

谁做个演示大家看看阿。

bottle8

现在很少收藏代码

len4090

谢谢了啊!:mrgreen:

neonny

我也收了，单空间双域名不错，哈哈

情始皇

:mrgreen: :mrgreen: 最好有演示！！