皮皮网

1.自动交替出现的随机源码
2.我想用易语言编写，动态的更换时钟，他会自动更换，图片加气球提示框“这东西真好吃”更换时，源码求代码，弄随
3.如何随机更换网页的机更源码樱子卡哇伊背景
4.怎么在后台修改网站首页的？

自动交替出现的源码

       不知道你要做什么，一般来说都是换图建站是需要这样做，你可以参考下面的片源代码，

       看是码弄不是你需要的，有什么问题随时问：

       1、随机

       <IMG id="SlideShow" src="http://* /images/.jpg" name="SlideShow">

       <SCRIPT language=javascript>

       // 设置轮番显示速度 Set slideShowSpeed (milliseconds)

       var slideShowSpeed = ;

       // 匀滑转换时间 Duration of crossfade (seconds)

       var crossFadeDuration = 3;

       // 指定图像文件 Specify the image files

       var Pic = new Array();

       // to add more images,更换 just continue

       // the pattern, adding to the array below

       Pic[0]='http://* /images/.jpg'

       Pic[1]='http://* /images/.jpg'

       Pic[2]='http://* /images/.jpg'

       Pic[3]='http://* /images/.jpg'

       // do not edit anything below this line

       var t;

       var j = 0;

       var p = Pic.length;

       var preLoad = new Array();

       for (i = 0; i < p; i++) {

       preLoad[i] = new Image();

       preLoad[i].src = Pic[i];

       }

       function runSlideShow(){

       if(document.all)

       {

       document.images.SlideShow.style.filter="blendTrans(duration=2)";

       document.images.SlideShow.style.filter="blendTrans(duration=crossFadeDuration)";

       document.images.SlideShow.filters.blendTrans.Apply();

       }

       document.images.SlideShow.src = preLoad[j].src;

       if(document.all){

       document.images.SlideShow.filters.blendTrans.Play();

       }

       j = j + 1;

       if (j > (p - 1)) j = 0;

       t = setTimeout('runSlideShow()', slideShowSpeed);

       }

       runSlideShow()

       </SCRIPT>

       “*”为链接地址

       2、asp随机显示 - 源码

       <%@LANGUAGE="VBSCRIPT" CODEPAGE=""%>

       <%

       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?源码efucms破解源码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)%>

       更多代码和技巧请阅读

参考资料：

我想用易语言编写，动态的时钟，他会自动更换，清朝游戏源码加气球提示框“这东西真好吃”更换时，求代码，

       你直接做GIF不是好了？

       或者：

       .版本 2

       .程序集 窗口程序集1

       .程序集变量 字节集, 字节集, , "0"

       .程序集变量 i

       .子程序 _时钟1_周期事件

       ' 框1. ＝ 取随机数组字节集 (字节集) ' 这里是随机预览，二选一否则起冲突

       ' 下面代码是‘按顺序预览’

       i ＝ i ＋ 1

       .如果真 (取数组成员数 (字节集) ＝ i)

        i ＝ 0

       .如果真结束

       输出调试文本 (i)

       框1. ＝ 字节集 [i ＋ 1]

       .子程序 _开始预览_被单击

       字节集 ＝ { #1, #2, #3 } ' 你在资源中插入的（有多少就输入多少个）

       时钟1.时钟周期 ＝ ' 预览的秒数

       .子程序 _停止预览_被单击

       时钟1.时钟周期 ＝ 0

       .子程序 取随机数组字节集, 字节集, , 可选

       .参数 字节集数组, 字节集, 数组

       返回 (字节集数组 [取随机数 (1, 取数组成员数 (字节集数组))])

如何随机更换网页的背景

       在<head>与</head>之间加入:

       <script LANGUAGE="JavaScript">

       bg = new Array(2); //设定数量2

       bg[0] = '../image/bj/.gif' //显示的路径

       bg[1] = '../image/bj/.gif'

       bg[2] = '../image/bj/.gif'

       index = Math.floor(Math.random()*bg.length);

       document.write("<BODY BACKGROUND="+bg[index]+">");

       </script>

       自动添加无法做到,因为无法判断image/bj目录下的张数.

怎么在后台修改网站首页的？

       进后台找到模版--默认模板管理--head.html修改--有这样的代码<div class="banner"><script src='/plus/ad_js.php?aid=3' language='javascript'></script></div>这就是主页上面的,该变<script src............></script>就ok了！改变的方法是：后台找到模块--广告管理--增加一个新广告--增加后，点后面的quartz源码包[js]你就可以看到<script src.....></script>的代码和要替换的了。复制下来替换就行了。。。。要增加广告都是类似的操作你的后台必须是要支持首页土更改的功能，这个的51链源码需要你先熟悉一下你的后台功能，直接改代码，也是种方法，但是绝对不是什么按f改，需要你拿到网站的源码，如果可以的话，希望你采纳

       扩展

       首先要看你后台支持自主上传，有没有这个功能！不行的话！试试下面的方法：

       1、将要上传的或者是flash，上传到空间服务器。

       2、修改主页代码，做调用。

       3.首先，你要知道这个LOGO所在位置.

       4.然后把你准备好的文件上传到这个位置，重命名为“admin_top_logo.gif”，替换即可！下面是具体操作。

       5.在dede后台文件里面的images内有四个样式，后台会随机选择四个样式的.

       6.你需要做的是，通过FTP工具，把你选择的LOGO文件上传覆盖到这四个“style1”“ style2”“ style3”“ style4”文件内，就可以了哦。