分类 "计算机应用" 的存档.

自动发送邮件程序

2008年9月12日
{ 没有评论 }

将一下内容保存为.vbs格式：

复制内容到剪贴板程序代码程序代码
NameSpace="http://schemas.microsoft.com/cdo/configuration/"
set Email=CreateObject("CDO.Message")
Email.From="发件人邮箱"
Email.To="收件人邮箱"
Email.Subject="主题"
Email.Textbody="邮件内容"

Email.AddAttachment "d:\shenqing.txt" '附件地址

with Email.Configuration.Fields
.Item(NameSpace&"sendusing")=2
.Item(NameSpace&"smtpserver")="smtp.163.com" '发件人发信邮件服务器
.Item(NameSpace&"smtpserverport")=25
.Item(NameSpace&"smtpauthenticate")=1
.Item(NameSpace&"sendusername")="发件人用户名" '
.Item(NameSpace&"sendpassword")="发件人密码"
.Update
end with
Email.Send

下载文件 点击下载此文件

转载请尊重版权，出处：秋天博客
本文链接: https://www.cfresh.net/pc-tech/537

计算机应用

ASP页面批量生成HTML的两种方法

2008年8月30日
{ 没有评论 }

      方法一生成HTML的速度比较慢，方法二较快，但是耗费更多CPU。
      方法一程序代码：

复制内容到剪贴板程序代码程序代码
<!––#include file="conn.asp"––>
<HTML><HEAD><TITLE>生成页面</TITLE>
<META http–equiv=Content–Type c>
<LINK href=http://www.chinaz.com/Program/Asp/"style.css" type=text/css rel=stylesheet>
<META c name=GENERATOR>
</HEAD>
<BODY bottomMargin=0 leftMargin=0 topMargin=0 rightMargin=0>
<BR style="OVERFLOW: hidden; LINE-HEIGHT: 3px">
<%
dim id
id=cint(request.querystring("id"))
if id="" then
id="1"
else
id=cint(request.querystring("id"))
end if
Dim totalnumber
sql="select id from table order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.Movefirst
if not rs.eof then
TotalNumber=rs.recordcount
end if
获取总数可以用一句代码代替,这个相信朋友自己可以解决.
rs.close
set rs=nothing
Response.Write "<br><br>" & vbNewLine
Response.Write "<table width='400' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbNewLine
Response.Write "  <tr>" & vbNewLine
Response.Write "    <td height='50'>总共 <font color='blue'><b>" & totalnumber & "</b></font> 个页面，正在生成第 <font color='red'><b>" & ID & "</b></font>  个页面…… </td>" & vbNewLine
Response.Write "  </tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
Response.Flush

If ID > totalnumber Then
Response.Write "恭喜您操作成功!"
Response.Flush
End If Www_Chinaz_com

creat(ID)
id=id+1
Response.Write "<meta http-equiv=""refresh"" c&id&""">"
%>
</BODY>    
</HTML>
<%
Function creat(id)
sql="Select * from table where id="&ID

set rs=conn.execute(sql)
dim name
name=rs("name")
conn.execute(sql)
rs.close
set rs=nothing
dim fso
dim znwl
dim art
dim fw
set fso=createobject("scripting.filesystemobject")
set znwl=fso.opentextfile(server.mappath("模板页"))
art=znwl.readall
znwl.close

Chinaz_com

art=replace(art,"{$name$}",name)
set fw=fso.createtextfile(server.mappath("生成页存放位置及页面名称"),true)
fw.writeline art
fw.close
set fso=nothing
End Function
%>

方法二比方法一生成静态页面的速度快,但是占用CPU比较多,代码如下：

方法二程序代码：

复制内容到剪贴板程序代码程序代码
<!––#include file="conn.asp"––>
<HTML><HEAD><TITLE>生成页面</TITLE>
<META http–equiv=Content–Type c>
<LINK href=http://www.chinaz.com/Program/Asp/"style.css" type=text/css rel=stylesheet>
<META c name=GENERATOR>
</HEAD>
<BODY bottomMargin=0 leftMargin=0 topMargin=0 rightMargin=0>
<BR style="OVERFLOW: hidden; LINE-HEIGHT: 3px">
<table border="1" width="100%" id="table1">
<tr>
  <td>
<%
dim allid,ppp,id,totalnum
sql="select * from table order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof        
   if allid="" then allid= rs("id") else allid= allid & ";" & rs("id")      
   rs.movenext      
loop
else
   If Rs.bof And Rs.EOF Then
   Response.Write "还没有找到任何文章！"
   End if

end if
rs.close
set rs=nothing

allid=";"+allid
ppp=split(allid,";")
totalnum=ubound(ppp)
for id=1 to totalnum
Session("id")=Session("id")+1
creat(id)
response.write "正在生成znwl_"&id&".htm…<br>"
next
%>
　</td>
</tr>
</table>
</BODY>    
</HTML>

<%
Function creat(id)
sql="Select * from table where id="&ID
set rs=conn.execute(sql)
dim name
name=rs("name")
conn.execute(sql)
rs.close
set rs=nothing
dim fso
dim znwl
dim art
dim fw
set fso=createobject("scripting.filesystemobject")
set znwl=fso.opentextfile(server.mappath("模板页"))
art=znwl.readall
znwl.close
%>

art=replace(art,"{$name$}",name)
set fw=fso.createtextfile(server.mappath("生成页存放位置及页面名称"),true)
fw.writeline art
fw.close
set fso=nothing
End Function

转载请尊重版权，出处：秋天博客
本文链接: https://www.cfresh.net/pc-tech/540

计算机应用

Linux下软件安装的方法

2008年8月5日
{ 没有评论 }

一、rpm包安装方式步骤：
1、找到相应的软件包，比如soft.version.rpm，下载到本机某个目录；
2、打开一个终端，su -成root用户；
3、cd soft.version.rpm所在的目录；
4、输入rpm -ivh soft.version.rpm
二、deb包安装方式步骤：
1、找到相应的软件包，比如soft.version.deb，下载到本机某个目录；
2、打开一个终端，su -成root用户；
3、cd soft.version.deb所在的目录；
4、输入dpkg -i soft.version.deb
三、tar.gz源代码包安装方式：
1、找到相应的软件包，比如soft.tar.gz，下载到本机某个目录；
2、打开一个终端，su -成root用户；
3、cd soft.tar.gz所在的目录；
4、tar -xzvf soft.tar.gz //一般会生成一个soft目录
5、cd soft
6、./configure
7、make
8、make install
四、tar.bz2源代码包安装方式：
1、找到相应的软件包，比如soft.tar.bz2，下载到本机某个目录；
2、打开一个终端，su -成root用户；
3、cd soft.tar.bz2所在的目录；
4、tar -xjvf soft.tar.bz2 //一般会生成一个soft目录
5、cd soft
6、./configure
7、make
8、make install
五、apt方式安装：
1、打开一个终端，su -成root用户；
2、apt-cache search soft 注：soft是你要找的软件的名称或相关信息
3、如果2中找到了软件soft.version，则用apt-get install soft.version命令安
装软件注：只要你可以上网，只需要用apt-cache search查找软件，用apt-get
install软件
六、bin文件安装：
如果你下载到的软件名是soft.bin，一般情况下是个可执行文件，安装方法如下：
1、打开一个终端，su -成root用户；
2、chmod +x soft.bin
3、./soft.bin //运行这个命令就可以安装软件了
七、不需要安装的软件：
有了些软件，比如lumaqq，是不需要安装的，自带jre解压缩后可直接运行。假设
下载的是lumaqq.tar.gz，使用方法如下：
1、打开一个终端，su -成root用户；
2、tar -xzvf lumaqq.tar.gz //这一步会生成一个叫LumaQQ的目录
3、cd LumaQQ
4、chmod +x lumaqq //设置lumaqq这个程序文件为可运行
5、此时就可以运行lumaqq了，用命令./lumaqq即可，但每次运行要输入全路径或
切换到刚才生成的LumaQQ目录里
6、为了保证不设置路径就可以用，你可以在/bin目录下建立一个lumaqq的链接，
用命令ln -s lumaqq /bin/ 即可，以后任何时候打开一个终端输入lumaqq就可以
启动QQ聊天软件了
7、如果你要想lumaqq有个菜单项，使用菜单编辑工具，比如Alacarte Menu
Editor，找到上面生成的LumaQQ目录里的lumaqq设置一个菜单项就可以了，当然你
也可以直接到 /usr/share/applications目录，按照里面其它*.desktop文件的格
式生成一个自己的desktop文件即可。

转载请尊重版权，出处：秋天博客
本文链接: https://www.cfresh.net/pc-tech/544

计算机应用

office2007试用版破解手记

2008年7月12日
{ 1 条评论 }

今天心血来潮，就从MS官网上下了office 2007 企业版，回来装在虚拟机上（速度那个慢，卡的不行），然后要求提供序列号，好不容易找到一个能用的，谁知装完又要联机激活。MS实在太过分了，于是开始网上到处寻找解决办法，试了好几个破解补丁，但没有一个奏效的。结果在一个人的博客上找到了破解时间限制版本的方法，就试了一下，果然好用。现在贴出来与大家分享！

1.本方法适用于破解时间（60天）、次数（28次）两种限制版本的Microsoft office 2007.

2.关闭所有微软office2007

3.运行注册表，并定位到以下注册表项：HKEY_LOCAL_MACHINE\Software\Microsoft\Office\12.0\Registration\{91120000-0031-0000-0000-0000000FF1CE}

5.删除以下值： DigitalProductID

6.关闭注册表编辑器

7.在windows explorer中， brose到以下文件夹

C:\Program Files\Common Files\microsoft shared\OFFICE12\Office Setup Controller\Proof.zh-cn

7.用记事本打开proof.xml文件，

8.下拉到底层的proof.xml位置大致如下： <Feature Id="SetupXmlFiles" Cost="1349">

                                        <optionref id="alwaysinstalled"/> ——改为<OptionRef Id="neverinstalled"/>

9.保存文件ok.

10.现在你可以启动微软office 2007，如word ， excel ， powerpoint等,提示"试用的"已经不见了.修改时间到60天后正常使用，破解成功!

PS：正版office 2007 零售价：699￥，虽然不算太贵，但俺们只是想体验一下，28次实在太少，不够仗义。

转载请尊重版权，出处：秋天博客
本文链接: https://www.cfresh.net/pc-tech/548

计算机应用

html代码特效 二

2008年6月21日
{ 没有评论 }

不同的flash背景:

复制内容到剪贴板程序代码程序代码

滚动字体代码:

复制内容到剪贴板程序代码程序代码
<marquee onmouseover=this.stop() onmouseout=this.start()>普通滚动字体代码</marquee>

左右对称打开字体代码，可以控制字体大小，颜色等

复制内容到剪贴板程序代码程序代码
<FONT color=#0096ff face=隶书 size=5><MARQUEE height=50 width=240>欢迎你朋友</FONT></MARQUEE><FONT color=#0000ff face=隶书 size=7><MARQUEE direction=right height=50 width=240>友朋你迎欢</MARQUEE></FONT></FONT>

复制内容到剪贴板程序代码程序代码
<marquee direction=up scrollamount=2 > 文字向上滚</marquee>

复制内容到剪贴板程序代码程序代码
＜marquee direction=down scrollamount=3 ＞ 文字下向滚＜/marquee＞

复制内容到剪贴板程序代码程序代码
＜marquee direction="left" scrolldelay="60"＞可以控制移动速度的代码，只要设置代码中的参数就可以了＜/marquee＞

复制内容到剪贴板程序代码程序代码
＜marquee width=100% behavior=alternate＞左右滚动字体代码＜/marquee＞

复制内容到剪贴板程序代码程序代码
＜marquee width=100% behavior=alternate＞左右来回滚动字体代码＜/marquee＞

复制内容到剪贴板程序代码程序代码
页面光芒四射: ＜a href="http://tenting135.heima.com"
target="_blank"＞＜DIV style="POSITION: absolute;left: 00px"＞＜object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="500"＞＜param name="movie" value="http://imgfree.21cn.com/free/flash/70.swf"＞＜param name="wmode" value="transparent"＞＜embed src="http://imgfree.21cn.com/free/flash/70.swf" type="application/x-shockwave-flash"＞＜/embed＞＜/object＞＜/DIV＞＜/a＞

复制内容到剪贴板程序代码程序代码
页面玫瑰花飘落: ＜a href="http://tenting135.heima.com" target="_blank"＞＜DIV style="POSITION: absolute;left: 00px"＞＜object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="500"＞＜param name="movie" value="http://oyja.51.net/flash/mhh.swf"＞＜param name="wmode" value="transparent"＞＜embed src="http://oyja.51.net/flash/mhh.swf" type="application/x-shockwave-flash"＞＜/embed＞＜/object＞＜/DIV＞＜/a＞

复制内容到剪贴板程序代码程序代码
页面游动的鱼和汽泡: ＜a href="http://tenting135.heima.com" target="_blank"＞＜DIV style="POSITION: absolute;left: 00px"＞＜object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="500"＞＜param name="movie" value="http://imgfree.21cn.com/free/flash/57.swf"＞＜param name="wmode" value="transparent"＞＜embed src="http://imgfree.21cn.com/free/flash/57.swf" type="application/x-shockwave-flash"＞＜/embed＞＜/object＞＜/DIV＞＜/a＞

复制内容到剪贴板程序代码程序代码
颗闪亮的星星: ＜a href="http://tenting135.heima.com" target="_blank"＞ ＜DIV style="POSITION: absolute;left: 00px"＞＜object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="500"＞＜param name="movie" value="http://imgfree.21cn.com/free/flash/35.swf"＞＜param name="wmode" value="transparent"＞＜embed src="http://imgfree.21cn.com/free/flash/35.swf" type="application/x-shockwave-flash"＞＜/embed＞＜/object＞＜/DIV＞＜/a＞

复制内容到剪贴板程序代码程序代码
面红叶飘落: ＜a href="http://tenting135.heima.com" target="_blank"＞＜DIV style="POSITION: absolute;left: 00px"＞＜object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="500"＞＜param name="movie" value="http://rycs2004.51.net/images/yeluo.swf"＞＜param name="wmode" value="transparent"＞＜embed src="http://rycs2004.51.net/images/yeluo.swf" type="application/x-shockwave-flash"＞＜/embed＞＜/object＞＜/DIV＞＜/a＞

复制内容到剪贴板程序代码程序代码
页面飘落雨滴: ＜a href="http://tenting135.heima.com" target="_blank"＞＜DIV style="POSITION: absolute;left: 00px"＞＜object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="500"＞＜param name="movie" value="http://imgfree.21cn.com/free/flash/6.swf"＞＜param name="wmode" value="transparent"＞＜embed src="http://imgfree.21cn.com/free/flash/6.swf" type="application/x-shockwave-flash"＞＜/embed＞＜/object＞＜/DIV＞＜/a＞

复制内容到剪贴板程序代码程序代码
页面蝴蝶飞舞: ＜a href="http://tenting135.heima.com" target="_blank"＞＜DIV style="POSITION: absolute;left: 00px"＞＜object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="500"＞＜param name="movie" value="http://sucai.heima.com/sucai/news/flash/5.swf"＞＜param name="wmode" value="transparent"＞＜embed src="http://sucai.heima.com/sucai/news/flash/5.swf" type="application/x-shockwave-flash"＞＜/embed＞＜/object＞＜/DIV＞＜/a＞

复制内容到剪贴板程序代码程序代码
页面米字流星: ＜a href="http://tenting135.heima.com" target="_blank"＞＜DIV style="POSITION: absolute;left: 00px"＞＜object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="500"＞＜param name="movie" value="http://imgfree.21cn.com/free/flash/4.swf"＞＜param name="wmode" value="transparent"＞＜embed src="http://imgfree.21cn.com/free/flash/4.swf" type="application/x-shockwave-flash"＞＜/embed＞＜/object＞＜/DIV＞＜/a＞

复制内容到剪贴板程序代码程序代码
这个是字体或图片在页面飘动的代码，你可以自己控制字体大小，活动的范围，也可以带上连接做广告，代码如下： ＜DIV id=img style=position:absolute;width:200;height:200;left:12;top:5＞ ＜a href=http://tenting135.heima.com target=_blank＞＜img src="http://heima.heima.com/user/4/247620/Doc/7_14.gif" width="88" height="33" border="1"＞ ＜SCRIPT language=JavaScript＞ ＜!– Begin var xPos=20;var yPos=document.body.clientHeight;var step=1;var delay=40;var height=0;var Hoffset=0;var Woffset=0;var yon=0;var xon=0;var pause=true;var interval;img.style.top=yPos;function changePos(){width=document.body.clientWidth;height=document.body.clientHeight;Hoffset=img.offsetHeight;Woffset=img.offsetWidth;img.style.left=xPos+document.body.scrollLeft;img.style.top=yPos+document.body.scrollTop;if(yon){yPos=yPos+step;}else{yPos=yPos-step;}if(yPos＜0){yon=1;yPos=0;}if(yPos＞=(height-Hoffset)){yon=0;yPos=(height-Hoffset);}if(xon){xPos=xPos+step;}else{xPos=xPos-step;}if(xPos＜0){xon=1;xPos=0;}if(xPos＞=(width-Woffset)){xon=0;xPos=(width-Woffset);}}function start(){img.visibility='visible';interval=setInterval('changePos()',delay);}start();//–＞＜/SCRIPT＞＜/div＞

复制内容到剪贴板程序代码程序代码
01 绿色 ＜BODY style='cursor:url(http://images.jojoo.net/gif/mouse.cur)'＞
02 花树枝 ＜BODY style='cursor:url(http://yuhou.net/work/images/xw_answer/liujg_xw_answer_nor.cur)'＞
03 小点跟随 ＜BODY style='cursor:url(http://yuhou.net/images/liujg_m030719.ani)'＞
04 粉红玫瑰 ＜BODY style='cursor:url(http://yuhou.net/build/images/03.cur)'＞
05 钥匙 ＜BODY style='cursor:url(http://asp.7i24.com/yhsjxe/book1/images/c.cur)'＞
06 小手 ＜BODY style='cursor:url(http://asp.7i24.com/yhsjxe/book1/images/c2.cur)'＞
07 短笔 ＜BODY style='cursor:url(http://asp.7i24.com/yhsjxe/links/01.cur)'＞
08 太阳花 ＜BODY style='cursor:url(http://lssm.wx-e.com/images/lssm.ani)'＞
09 小色杆 ＜BODY style='cursor:url(http://home.vipcp.net/kukumm/diary1/images/kuru2r.ani)'＞
10 绿色样式剪头 ＜BODY style='cursor:url(http://lengku.net//index/mouse.ani)'＞
11 银色样式剪头 ＜BODY style='cursor:url(http://nms.voline.net/aspsky/skins/dream/mouse.ani)'＞
12 小老鼠 ＜BODY style='cursor:url(http://e.1asphost.com/xiayule/guest7/pic/1.ani)'＞
13 有点像猫 ＜BODY style='cursor:url(http://asp2.6to23.com/whslj/lyb/pic/cur.ani)'＞
14 美女头像 ＜BODY style='cursor:url(http://e.1asphost.com/xiayule/guest10/pic/cur.ani)'＞ 15 小红鼠 ＜BODY style='cursor:url(http://e.1asphost.com/xiayule/guest11/pic/cur.ani)'＞
16 小粉猪 ＜BODY style='cursor:url(http://e.1asphost.com/xiayule/guest8/pic/cur.ani)'＞
17 小美女加小煎头 ＜BODY style='cursor:url(http://e.1asphost.com/xiayule/guest12/pic/cur.ani)'＞
18 蝴蝶 ＜BODY style='cursor:url(http://asp2.6to23.com/rlf/gb3/pic/cur.ani)'＞
19 小钟点

转载请尊重版权，出处：秋天博客
本文链接: https://www.cfresh.net/pc-tech/559

计算机应用

html代码特效 一

2008年6月21日
{ 没有评论 }

彩色滚动条代码

复制内容到剪贴板程序代码程序代码
<style type="text/css"> body   {   scrollbar-face-color: #b5daff;   scrollbar-highlight-color: #ffffff;   scrollbar-shadow-color: #000000;   scrollbar-arrow-color: #0000ff;   scrollbar-base-color: #6699ff;   scrollbar-dark-shadow-color: #6699ff;  } </style>

超酷TWINS时钟代码：

复制内容到剪贴板程序代码程序代码
1.<embed src=http://www.59178.com/Twins/Twins01.swf width=110 height=110 type=application/octet-stream>
2.<embed src=http://www.59178.com/Twins/Twins02.swf width=110 height=110 type=application/octet-stream>
3.<embed src=http://www.59178.com/Twins/Twins03.swf width=110 height=110 type=application/octet-stream>
4.<embed src=http://www.59178.com/Twins/Twins04.swf width=110 height=110 type=application/octet-stream>
5.<embed src=http://www.59178.com/Twins/Twins05.swf width=110 height=110 type=application/octet-stream>
6.<embed src=http://www.59178.com/Twins/Twins06.swf width=110 height=110 type=application/octet-stream>
7.<embed src=http://www.59178.com/Twins/Twins07.swf width=110 height=110 type=application/octet-stream>
8.<embed src=http://www.59178.com/Twins/Twins08.swf width=110 height=110 type=application/octet-stream>

飘落的枫叶代码：

复制内容到剪贴板程序代码程序代码
<embed style="left: 250px; width: 400px; position: absolute; top: 200px; height: 300px" align=right src=http://forshine.net/flash/68.swf width=400 height=400 type=application/octet-stream ;; quality="high" wmode="transparent"></embed>

两只蝴蝶的代码:

复制内容到剪贴板程序代码程序代码
<embed src="http://lain1978.com/collection/flash/fly.swf"";; width="1200" height="900" quality="high"wmode="transparent" align="right" style="position: absolute; left:10; top:-100">

文字链接代码:

复制内容到剪贴板程序代码程序代码
<a href=http://cuikejie.126.com;>满城飞絮</a>
<p>href="http://cuikejie.126.com";; target="_blank">满城飞絮</a> </p>

飘落的玫瑰代码:

复制内容到剪贴板程序代码程序代码
<br><CENTER><embed style="RIGHT: 300px; WIDTH: 600px; POSITION: absolute; TOP: 0px; HEIGHT: 1800px" align=right src=http://bbs.flasher123.com/UploadFile/2004-9/20049120533895073.swf type=application/octet-stream ;; quality="high" wmode="transparent"> </CENTER>

非常可爱的动画老人导航代码:

复制内容到剪贴板程序代码程序代码
<SCRIPT> <!–  function crml(nid)  {  try  {  nid=new ActiveXObject("Agent.Control.2");  nid.Connected = true;  nid.Characters.Load("");  return nid;  }  catch (err)  {  return false;  }  }   function chplay ()  {  if (ml=crml ("ml"))  {  var MerlinID;  var MerlinACS;  Merlin = ml.Characters.Character(MerlinID);  Merlin.MoveTo(200,200); Merlin.Show();  Merlin.Play("Explain");  Merlin.Play("Announce");  Merlin.Speak("欢迎你来到L君在线！");  Merlin.Play("Gestureright");  Merlin.Play("Pleased"); Merlin.Speak("记住网址哦：http://qq200.heima.com ！");  Merlin.Play("Idle1_1"); Merlin.Hide(); Merlin.MoveTo(600,300); Merlin.Show(); Merlin.Play("Surprised");  Merlin.Speak("这里有好多好多的好歌听哦！还有许多精彩的视频！"); Merlin.Play("Read"); Merlin.Speak("有许多好好玩的小游戏！还有精彩的FLASH动画呢！"); Merlin.Play("Read") Merlin.Play("GestureUp"); Merlin.Speak("希望大家会喜欢！别忘了告诉你的朋友哦！");  Merlin.Play("DontRecognize"); Merlin.Speak("欢迎下次再来！多多提意见哦！"); Merlin.Play("DontRecognize");  Merlin.Play("Greet"); Merlin.Speak("祝你玩得开心愉快！"); Merlin.Play("Greet"); Merlin.Speak("下次再来哦！886！"); Merlin.Play("Greet"); Merlin.Hide(); }  }  //–>     </SCRIPT> <SCRIPT>  <!–  chplay()  –>  </SCRIPT>

鼠标跟随的时钟代码

复制内容到剪贴板程序代码程序代码
<script language="JavaScript"> <!–  fCol='00ffff';//face colour. dCol='fff000';//dot colour. hCol='ff0000';//hours colour. mCol='00ff00';//minutes colour. sCol='7788ff';//seconds colour. ClockHeight=35; ClockWidth=35; ClockFromMouseY=80; ClockFromMouseX=5;  //Alter nothing below! Alignments will be lost! ns=(document.layers); ie=(document.all); h=3; m=4; s=5; face='1 2 3 4 5 6 7 8 9 10 11 12';
face=face.split(' '); n=face.length; speed=0.6; ymouse=0; xmouse=0; scrll=0; p="<font face=Arial size=1 color="+fCol+">"; e=360/n; HandHeight=ClockHeight/4; HandWidth=ClockWidth/4; HandY=0; HandX=0; scrll=0; y=new Array();x=new Array();Y=new Array();X=new Array(); for (i=0; i < 37; i++){y[i]=0;x[i]=0;Y[i]=0;X[i]=0} Dy=new Array();Dx=new Array();DY=new Array();DX=new Array(); for (i=0; i < n; i++){Dy[i]=0;Dx[i]=0;DY[i]=0;DX[i]=0} if (ns){ for (i=0; i < n; i++) document.write('<layer name="nsN'+i+'" top=0 left=0 height=15 width=15><center>'+p+face[i]+'</font></center></layer>'); for (i=0; i < n; i++) document.write('<layer name="nsD'+i+'" top=0 left=0 bgcolor='+dCol+' clip="0,0,2,2"></layer>'); for (i=0; i < h; i++) document.write('<layer name=nsH'+i+' top=0 left=0 bgcolor='+hCol+' clip="0,0,2,2"></layer>'); for (i=0; i < m; i++) document.write('<layer name=nsM'+i+' top=0 left=0 bgcolor='+mCol+' clip="0,0,2,2"></layer>'); for (i=0; i < s; i++) document.write('<layer name=nsS'+i+' top=0 left=0 bgcolor='+sCol+' clip="0,0,2,2"></layer>'); } if (ie){ document.write('<div id="On" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < n; i++) document.write('<div id="ieN" style="position:absolute;width:15px;height:15px;text-align:center">'+p+face[i]+'</font></div>'); document.write('</div></div>'); document.write('<div id="Od" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < n; i++) document.write('<div id="ieD" style="position:absolute;height:2px;width:2px;font-size:2px;background:'+dCol+'"></div>'); document.write('</div></div>'); document.write('<div id="Oh" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < h; i++) document.write('<div id="ieH" style="position:absolute;width:2px;height:2px;font-size:2px;background:'+hCol+'"></div>'); document.write('</div></div>'); document.write('<div id="Om" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < m; i++) document.write('<div id="ieM" style="position:absolute;width:2px;height:2px;font-size:2px;background:'+mCol+'"></div>'); document.write('</div></div>') document.write('<div id="Os" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < s; i++) document.write('<div id="ieS" style="position:absolute;width:2px;height:2px;font-size:2px;background:'+sCol+'"></div>'); document.write('</div></div>') }  (ns)?window.captureEvents(Event.MOUSEMOVE):0; function Mouse(evnt){ ymouse = (ns)?evnt.pageY+ClockFromMouseY-(window.pageYOffset):event.y+ClockFromMouseY; xmouse = (ns)?evnt.pageX+ClockFromMouseX:event.x+ClockFromMouseX; } (ns)?window.onMouseMove=Mouse:document.onmousemove=Mouse;  function ClockAndAssign(){ time = new Date (); secs = time.getSeconds(); sec = -1.57 + Math.PI * secs/30; mins = time.getMinutes(); min = -1.57 + Math.PI * mins/30; hr = time.getHours(); hrs = -1.575 + Math.PI * hr/6+Math.PI*parseInt(time.getMinutes())/360; if (ie){ On.style.top=window.document.body.scrollTop; Od.style.top=window.document.body.scrollTop; Oh.style.top=window.document.body.scrollTop; Om.style.top=window.document.body.scrollTop; Os.style.top=window.document.body.scrollTop; } for (i=0; i < s; i++){  var sd=(ns)?document.layers['nsS'+i]:ieS[i].style;  sd.top=y[8+i]+HandY+(i*HandHeight)*Math.sin(sec)+scrll;  sd.left=x[8+i]+HandX+(i*HandWidth)*Math.cos(sec); } for (i=0; i < m; i++){  var md=(ns)?document.layers['nsM'+i]:ieM[i].style;  md.top=y[4+i]+HandY+(i*HandHeight)*Math.sin(min)+scrll;  md.left=x[4+i]+HandX+(i*HandWidth)*Math.cos(min); } for (i=0; i < h; i++){  var hd=(ns)?document.layers['nsH'+i]:ieH[i].style;  hd.top=y[1+i]+HandY+(i*HandHeight)*Math.sin(hrs)+scrll;  hd.left=x[1+i]+HandX+(i*HandWidth)*Math.cos(hrs); } for (i=0; i < n; i++){  var D=(ns)?document.layers['nsD'+i]:ieD[i].style;   D.top=y[13+i] + ClockHeight*Math.sin(-1.0471 + i*e*Math.PI/180)+scrll;  D.left=x[13+i] + ClockWidth*Math.cos(-1.0471 + i*e*Math.PI/180); } for (i=0; i < n; i++){  var N=(ns)?document.layers['nsN'+i]:ieN[i].style;   N.top=y[25+i]-6 + ClockHeight*1.4*Math.sin(-1.0471 + i*e*Math.PI/180)+scrll;  N.left=x[25+i]-6 + ClockWidth*1.4*Math.cos(-1.0471 + i*e*Math.PI/180); } }  function Delay(){ scrll=(ns)?window.pageYOffset:0; y[0]=Math.round(Y[0]+=((ymouse)-Y[0])*speed); x[0]=Math.round(X[0]+=((xmouse)-X[0])*speed); for (i=1; i < 37; i++){ y[i]=Math.round(Y[i]+=(y[i-1]-Y[i])*speed); x[i]=Math.round(X[i]+=(x[i-1]-X[i])*speed); } ClockAndAssign(); setTimeout('Delay()',20); } if (ns||ie)window.onload=Delay; //–> </script>

时间显示:

复制内容到剪贴板程序代码程序代码
<div id="jnkc"></div> <script>setInterval("jnkc.innerHTML=new Date().toLocaleString()+' 星期'+'日一二三四五六'.charAt(new Date().getDay());",1000);</script>

树形菜单代码:

复制内容到剪贴板程序代码程序代码
<body leftmargin=0 topmargin=0 >  <link href='http://www.pcabcd.com/Skin/DefaultSkin.css' rel='stylesheet' type='text/css'> <script language='JavaScript' type='text/JavaScript' src='http://www.pcabcd.com/js/menu.js'></script> <script type='text/javascript' language='JavaScript1.2' src='http://www.pcabcd.com/js/stm31.js'></script><script language='JavaScript' type='text/JavaScript' src='http://www.pcabcd.com/js/TreeGuide.js'></script>  <script language='JavaScript' type='text/JavaScript'>  //树形导航的JS代码 var expandState = 0; function expand(){   if(expandState == 0){setPace('master', 0, 10, 10); if(ie){document.menutop.src = 'http://www.pcabcd.com/images/menui.gif'}; expandState = 1;}   else{setPace('master', -200, 10, 10); if(ie){document.menutop.src='http://www.pcabcd.com/images/menuo.gif'}; expandState = 0;} } document.write("<style type=text/css>#master {LEFT: -200px; POSITION: absolute; TOP: 25px; VISIBILITY: visible; Z-INDEX: 999}</style>") document.write("<table id=master width='218' border='0' cellspacing='0' cellpadding='0'><tr><td><img border=0 height=6 src=http://www.pcabcd.com/images/menutop.gif  width=200></td><td rowspan='2' valign='top'><img id=menu onMouseOver=javascript:expand() border=0 height=70 name=menutop src=http://www.pcabcd.com/images/menuo.gif width=18></td></tr>"); document.write("<tr><td valign='top'><table width='100%' border='0' cellspacing='5' cellpadding='0'><tr><td height='400' valign='top'><table width=100% height='100%' border=1 cellpadding=0 cellspacing=5 bordercolor='#666666' bgcolor=#ecf6f5 style=FILTER: alpha(opacity=90)><tr>"); document.write("<td height='10' align='center' bordercolor='#ecf6f5'><font color=999900><strong>栏 目 树 形 导 航</strong></font></td></tr><tr><td valign='top' bordercolor='#ecf6f5'>"); document.write("<iframe width='100%' height='100%' src='http://www.pcabcd.com/WebSite/ClassTree.asp' frameborder=0></iframe></td></tr></table></td></tr></table></td></tr></table>"); var ie = document.all ? 1 : 0 var ns = document.layers ? 1 : 0 var master = new Object('element') master.curLeft = -200;   master.curTop = 10; master.gapLeft = 0;      master.gapTop = 0; master.timer = null; if(ie){var sidemenu = document.all.master;} if(ns){var sidemenu = document.master;} setInterval('FixY()',100); </script>

免费背景音乐代码:

复制内容到剪贴板程序代码程序代码
<embed src=http://song.5music.org/5music5org/gafdspoygy/xiaoyx/6-10a.rm type=audio/x-pn-realaudio height=34 width=144 autostart=1>

透明FLASH，随你用~~~！好代码不要错过~~~

复制内容到剪贴板程序代码程序代码
<embed src="放入网址"";; width="1200" height="900" quality="high"wmode="transparent" align="right" style="position: absolute; left:10; top:-100">

转载请尊重版权，出处：秋天博客
本文链接: https://www.cfresh.net/pc-tech/560

计算机应用