注册 登录 找回密码 回收站 在线 帮助 首页 Blog 繁體中文欢迎 访问本论坛

穆穆族论坛 » 拓 眼 电 脑 » [ 电脑网络 ] » 特效代码收集

本主题共有50张帖子, 被点击16451次 查看上一个主题  查看下一个主题  发表新主题  发布新投票  发表回复
特效代码收集

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

1.页面自动刷新：把如下代码加入<head>区域中

<meta http-equiv="refresh" content="20">

其中20指每隔20秒刷新一次页面。

2.页面自动跳转：把如下代码加入<head>区域中



<meta http-equiv="refresh" content="20;url=http://www.u6u8.net">



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:39:47
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   11楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

asp 随机图片显示 百变美女asp代码


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'----------------------------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的显示速度!
'*************************    随机图片显示   ****************************
'代码设计:野汉子
'使用实例:img.asp?list=图片存放目录
'网站:http://yjj.con.cn
'声明:版权没有,随意使用!^_^不过如果各位不介意给我做个小小的连接,在下将感激不尽!
'----------------------------------------------------------------------------------------
Function AllPath()
    Dim Domain,GFilePath
    Domain    = Request.ServerVariables("SERVER_NAME")
    GFilePath = Request.ServerVariables("PATH_INFO")
    GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
    AllPath    = "http://";&Domain&GFilePath
End Function

Function ShowFileList(folderspec)
    Dim Path,objFSO,objFolder,count,objFile,nume,S
    Path = Server.MapPath(folderspec)
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(Path) Then
       Set objFolder = objFSO.GetFolder(Path)
       count = 0
       For Each objFile in objFolder.Files
           count = count+1
       Next
       randomize
       nume = Int((count*rnd)+1)
       S = 0
       ShowFileList = ""
       For Each objFile in objFolder.Files
       S = S + 1
         If S = nume Then
         ShowFileList = objFile.Name
         Exit For
         End If
       Next
       Set objFolder = Nothing
    Else
    ShowFileList = "NO"
    End If
    Set objFSO = Nothing
End Function

Dim list,filename,address,str

list = trim(Request.QueryString("list"))
if list = "" then
   Response.write "本页需要正确参数引入,您缺少相关的参数！正确格式如下："&AllPath&"img.asp?list=图片存放目录"
   Response.End()
end if

filename = ShowFileList("./"&list&"/")
if filename = "NO" then
   Response.write "您指定的目录<b>"&list&"</b>不存在，请重新指定！"
   Response.End()
end if

if filename = "" then
   Response.write "您指定的目录<b>"&list&"</b>没有相关的图片文件存在，请重新指定！"
   Response.End()
end if

str = right(filename,3)
if str<>"jpg" and str<>"gif" then
filename = "erro.gif"
end if

address = AllPath&list&"/"
address = address&filename
%>
<%Response.redirect(address)%>



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:40:32
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   12楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

鼠标经过显示不同图片


<SCRIPT LANGUAGE="javascript">
var a = new Image();
var b = new Image();
var c = new Image();

a.src = "../../../yanyanyan/me/me/4.jpg";
b.src = "../../../yanyanyan/me/me/3.jpg";
c.src = "../../../yanyanyan/me/me/2.jpg";

function doButtons(picimage) {
eval("document['picture'].src = " + picimage + ".src");
}
</script>

</head>

<body>

<table width="407" height="201" border=0 cellpadding="0" cellspacing="0" bgcolor="#333333">
  <tr><td width="110" align="center">
<p>
<a href="#" onmouseover="doButtons('a')">PHOTO 1</a><p>

<a href="#" onmouseover="doButtons('b')">PHOTO 2</a><p>

<a href="#" onmouseover="doButtons('c')">PHOTO 3</a><p>
<td width="297"><img name=picture src="4.jpg" width=294 height=345 border=0></td>
</tr>
</table>



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:41:19
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   13楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

<style>
.jc{
position:relative;
}
</style>

<script language="javascript1.2">

var ns6=document.getElementById&&!document.all
var ie=document.all

var customcollect=new Array()
var i=0

function jiggleit(num){
if ((!document.all&&!document.getElementById)) return;
customcollect[num].style.left=(parseInt(customcollect[num].style.left)==-1)? customcollect[num].style.left=1 : customcollect[num].style.left=-1
}

function init(){
if (ie){
while (eval("document.all.jiggle"+i)!=null){
customcollect[i]= eval("document.all.jiggle"+i)
i++
} 
}
else if (ns6){
while (document.getElementById("jiggle"+i)!=null){
customcollect[i]= document.getElementById("jiggle"+i)
i++
}
}

if (customcollect.length==1)
setInterval("jiggleit(0)",80)
else if (customcollect.length>1)
for (y=0;y<customcollect.length;y++){
var tempvariable='setInterval("jiggleit('+y+')",'+'100)'
eval(tempvariable)
}
}

window.onload=init

</script>


<span id="jiggle0" class="jc"><b>抖动的字<a href="http://yjj.con.cn";>Website 俊杰网络!</a></b></span>
</head>



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:41:48
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   14楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

标题拦特效



<SCRIPT>

//change title text to your own
    var titletext="Welcome to Dynamic Drive"
    var thetext=""
    var started=false
    var step=0
    var times=1

    function welcometext()
    {
      times--
      if (times==0)
      {
        if (started==false)
        {
          started = true;
          document.title = titletext;
          setTimeout("anim()",1);
        }
        thetext = titletext;
      }
    }

    function showstatustext(txt)
    {
      thetext = txt;
      setTimeout("welcometext()",4000)
      times++
    }

    function anim()
    {
      step++
      if (step==7) {step=1}
      if (step==1) {document.title='>==='+thetext+'===<'}
      if (step==2) {document.title='=>=='+thetext+'==<='}
      if (step==3) {document.title='>=>='+thetext+'=<=<'}
      if (step==4) {document.title='=>=>'+thetext+'<=<='}
      if (step==5) {document.title='==>='+thetext+'=<=='}
      if (step==6) {document.title='===>'+thetext+'<==='}
      setTimeout("anim()",200);
    }

if (document.title)
window.onload=onload=welcometext
</SCRIPT>



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:42:29
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   15楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

文字不同颜色闪烁

<span style=behavior:url(font.htc)>这里是要闪烁的字颜色可以很多</span>

<PUBLIC:COMPONENT URN="rainbow" name="darainbow()"/>
<PUBLIC:ATTACH  EVENT = "oncontentready" ONEVENT ="beginIt()"/>
<SCRIPT language="javascript">
var Kill_ID=null;
var internalvalue;
var originalvalue;
function putvalue(){
        element.innerHTML=internalvalue;
        encapsulate();
        startSwirl();
}
function eventHandler(){
        clearInterval(Kill_ID);
        internalvalue=element.value;
        element.detachEvent("onpropertychange",eventHandler); 
        if(event.propertyName=="value"){
                element.innerHTML=internalvalue;
                putvalue();
        } else startSwirl();
        element.attachEvent("onpropertychange",eventHandler);
}
function swirl(){
        var I; 
        I=ran(internalvalue.length-1,0);
        if(element.children(I) != null)element.children(I).style.color=randomColor();
}
function startSwirl(){
        if (element.swirlInterval == null)
                element.swirlInterval=50;
        if ((internalvalue!=null) && (element.swirlInterval!=0))
                Kill_ID=setInterval(swirl,element.swirlInterval);
}
function encapsulate(){
        var I;
        var tempStr=""; 
        for (I=0; I < internalvalue.length; I++){
                        tempStr += "<SPAN style=\"color:"+randomColor()+"\">" + internalvalue.substr(I,1) + "</SPAN>";
                }
        innerHTML=tempStr;
}
function ran(upperbound, lowerbound){
        return(parseInt((upperbound - lowerbound + 1) * Math.random() + lowerbound));
}
function randomColor(){
        var R=ran(255,0);
        var G=ran(255,0);
        var B=ran(255,0);
        R=R.toString(16);
        G=G.toString(16);
        B=B.toString(16);
        if (R.length==1)R="0"+R;
        if (G.length==1)G="0"+G;
        if (B.length==1)B="0"+B;
        return("#"+R+G+B);
}
function beginIt(){
        internalvalue=element.value;
        originalvalue=element.innerHTML;
        if (internalvalue==null)
                internalvalue=element.innerHTML;
        putvalue();
        element.attachEvent("onpropertychange",eventHandler);
}
function clearIt(){
        clearInterval(Kill_ID);
        element.detachEvent("onpropertychange",eventHandler);
        element.innerHTML=originalvalue;
}
</script>



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:43:25
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   16楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

让连接不停的变色

<SCRIPT language=javascript src="fade.js"></SCRIPT>
演示 http://www.wooshow.com/dw/demo/ln/1.htm

fade.js代码
=========================================

/************* 

**** <config> 

**/ 

startColor = "#4D4D4D"; // 颜色可以该

endColor = "#ffffff"; // MouseOver link color 

stepIn = 10; // delay when fading in 

stepOut = 20; // delay when fading out 

/* 

** set to true or false; true will 

** cause all links to fade automatically 

***/ 

autoFade = true; 

/* 

** set to true or false; true will cause all CSS 

** classes with "fade" in them to fade onmouseover 

***/ 

sloppyClass = true; 

/** 

**** </config> 

**************/ 

/************* 

**** <install> 

** 

** 

**** </install> 

**************/ 

hexa = new makearray(16); 

for(var i = 0; i < 10; i++) 

hexa[i] = i; 

hexa[10]="a"; hexa[11]="b"; hexa[12]="c"; 

hexa[13]="d"; hexa[14]="e"; hexa[15]="f"; 

document.onmouseover = domouseover; 

document.onmouseout = domouseout; 

startColor = dehexize(startColor.toLowerCase()); 

endColor = dehexize(endColor.toLowerCase()); 

var fadeId = new Array(); 

var timerID = 0; 

var theElement,theTagName,theClassName,theUniqueID 

function dehexize(Color){ 

var colorArr = new makearray(3); 

for (i=1; i<7; i++){ 

for (j=0; j<16; j++){ 

if (Color.charAt(i) == hexa[j]){ 

if (i%2 !=0) 

colorArr[Math.floor((i-1)/2)]=eval(j)*16; 

else 

colorArr[Math.floor((i-1)/2)]+=eval(j); 

} 

} 

} 

return colorArr; 

} 

function domouseover() { 

if(document.all) { 

clearTimeout(timerID); 

theElement = event.srcElement; 

theTagName = theElement.tagName; 

theClassName = theElement.className; 

theUniqueID = theElement.uniqueID; 

if ((theTagName == "A" && autoFade) || theClassName == "fade" || (sloppyClass && theClassName.indexOf("fade") != -1)) { 

//alert(theElement); 

fade(startColor,endColor,theUniqueID,stepIn); 

timerID = setTimeout('pulsedown()',500); 

} 

} 

} 

function pulseup() { 

if(document.all) { 

clearTimeout(timerID); 

if ((theTagName == "A" && autoFade) || theClassName == "fade" || (sloppyClass && theClassName.indexOf("fade") != -1)) { 

//alert(theElement); 

fade(startColor,endColor,theUniqueID,stepIn); 

timerID = setTimeout('pulsedown(theElement)',500); 

} 

} 

} 

function pulsedown(theElement) { 

if (document.all) { 

clearTimeout(timerID); 

if ((theTagName == "A" && autoFade) || theClassName == "fade" || (sloppyClass && theClassName.indexOf("fade") != -1)) { 

//alert(theElement); 

fade(endColor,startColor,theUniqueID,stepOut); 

timerID = setTimeout('pulseup()',500); 

} 

} 

} 

function domouseout() { 

if (document.all) { 

clearTimeout(timerID); 

var srcElement = event.srcElement; 

if ((srcElement.tagName == "A" && autoFade) || srcElement.className == "fade" || (sloppyClass && srcElement.className.indexOf("fade") != -1)) 

fade(endColor,startColor,srcElement.uniqueID,stepOut); 

} 

} 

function makearray(n) { 

this.length = n; 

for(var i = 1; i <= n; i++) 

this[i] = 0; 

return this; 

} 

function hex(i) { 

if (i < 0) 

return "00"; 

else if (i > 255) 

return "ff"; 

else 

return "" + hexa[Math.floor(i/16)] + hexa[i%16];} 

function setColor(r, g, b, element) { 

var hr = hex(r); var hg = hex(g); var hb = hex(b); 

element.style.color = "#"+hr+hg+hb; 

} 

function fade(s,e, element,step){ 

var sr = s[0]; var sg = s[1]; var sb = s[2]; 

var er = e[0]; var eg = e[1]; var eb = e[2]; 

if (fadeId[0] != null && fade[0] != element){ 

setColor(sr,sg,sb,eval(fadeId[0])); 

var i = 1; 

while(i < fadeId.length){ 

clearTimeout(fadeId[i]); 

i++; 

} 

} 

for(var i = 0; i <= step; i++) { 

fadeId[i+1] = setTimeout("setColor(Math.floor(" +sr+ " *(( " +step+ " - " +i+ " )/ " +step+ " ) + " +er+ " * (" +i+ "/" + 

step+ ")),Math.floor(" +sg+ " * (( " +step+ " - " +i+ " )/ " +step+ " ) + " +eg+ " * (" +i+ "/" +step+ 

")),Math.floor(" +sb+ " * ((" +step+ "-" +i+ ")/" +step+ ") + " +eb+ " * (" +i+ "/" +step+ ")),"+element+");",i*step); 

} 

fadeId[0] = element; 

}

==========================================



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:44:31
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   17楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

要使背景图案不随文字“滚动”的CSS是这样的：

〈style type="text/css"〉
〈!--
BODY { background: purple url(bg.jpg);
　　　 background-repeat:repeat-y;
　　　 background-attachment:fixed 　
　　　　}
--〉
〈/style〉



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:45:05
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   18楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

页面过滤渐变加到<head>中

<meta http-equiv="Page-Exit" content="revealTrans(Duration=1,Transition=23)">



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:45:43
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   19楼 

Chikoo
 
 
级别:  
天王元老
标识:  
来自:  
地球国 中华人民共和省 河北市 承德村
 
  功能按钮:   查看用户档案   email:***@***.***   http://www.u6u8.net   短消息      以树型方式查看   刷新   加入到私人收藏   修改帖子   删除   引用回复   发表回复   

Re: 特效代码收集

鼠标移动到版块图标产生的渐变效果

1.inc\main.js末尾增加如下代码：

//渐隐渐现函数
color=#ff0000]
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();

function nereidFade(object, destOp, rate, delta) {
if (!document.all) {return;}
if (object != "[object]"){
  setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);
  return;
}
clearTimeout(nereidFadeTimers[object.sourceIndex]);
diff = destOp-object.filters.alpha.opacity;
direction = 1;
if (object.filters.alpha.opacity > destOp){
  direction = -1;
}
delta=Math.min(direction*diff,delta);
object.filters.alpha.opacity+=direction*delta;
if (object.filters.alpha.opacity != destOp){
  nereidFadeObjects[object.sourceIndex]=object;
  nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
}
}
[/color]




2.index模板html(7):
function showboard
.......
if (indexIMG!='')
{
  str = str.replace(/{\$indexIMG}/gi,'<table align="left"><tr><td><a href="list.asp?boardid='+BoardID+'"> <img src='+indexIMG+' align="top" border="0" style="FILTER: alpha(opacity=40)" onMouseOut=nereidFade(this,40,10,10) onMouseOver=nereidFade(this,100,0,10) ></a></td><td width="20"></td></tr></table>');
}
else
{
  str = str.replace(/{\$indexIMG}/gi,'');
}
......


增加以上粗体和红色部分。


Chikoo 2004-11-29 2:51:23



欺骗一个人最好的办法就是利用自己的真感情！
 时间:2004/11/29 2:47:29
    注册: 2003-5   发帖: 2850  积分: 3066   状态: offline   20楼 
5:  1  2  3  4  5 

主题管理:  删除  关闭/取消  移动  复制  置顶/取消  精华/取消  刷新统计  编辑主题


快速回复
标题:

内容:
选项: 使用我的个性签名 自动识别URL地址 使用XB代码 使用表情符号
(Ctrl+Enter快速发帖)



用户的言论纯属发表者个人意见，与本论坛立场无关
Copyright © 2001- U6U8.Net Powered by SF v2.0