1、右键菜单自己做
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<OBJECT id=menu type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM name="Command" value="Related Topics,menu">
<PARAM name="Item1" value="中华网;http://www.china.com">
<PARAM name="Item2" value="天极网;http://www.yesky.com">
<PARAM name="Item3" value="新浪网;http://www.sina.com">
<PARAM name="Item4" value="网 易;http://www.163.com">
<PARAM name="Item5" value="互动学院;http://favorites.myrice.com">
</OBJECT>
<script language="JavaScript">
<!--
if (document.all)
document.body.onmousedown=new Function("if (event.button==2) menu.Click();")
-->
</script>
</body>
</html>
2、产生随机密码
<%
function RandomPassword(sText)
on error resume next
Randomize()
iUpperbound = int(left(sText, (len(sText)-2)))
iLowerbound = int(Year(Now) / (second(Now)+ 1))
iRandomNumber = int((iUpperbound - iLowerbound + 1) * Rnd + iLowerbound)
if len(iRandomNumber) < 6 then
do until len(iRandomNumber) = 6
iExtraDigit = int((9-0+1) * Rnd + 0)
iRandomNumber = iRandomNumber &iExtraDigit
loop
end if
sNewPassword = right(sText,1)&iRandomNumber & left(right(sText,2),1)
randompassword = sNewPassword
end function
%>
<HTML>
<BODY>
<%
Response.Write RandomPassword("xq")&"<br>"
Response.Write RandomPassword("!w") & "<br>"
Response.Write RandomPassword("@3") & "<br>"
Response.Write RandomPassword("33") & "<br>"
Response.Write RandomPassword("*^") & "<br>"
%>
</BODY>
</HTML>
<%
Function Password_GenPass( nNoChars, sValidChars )
' nNoChars = 密码的长度
' sValidChars = 有效的字符.如果是空则
( "" )
' 默认为: A-Z 和 a-z 和 0-9
Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
Dim nCount
Dim sRet
Dim nNumber
Dim nLength
Randomize 'init random
If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )
For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1)
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
Password_GenPass = sRet
End Function
%>
例子：
<%
Response.Write "你的密码: " & Password_GenPass( 10, "" )
%>
产生一个10位的密码
<%
Response.Write "你的密码: " & Password_GenPass( 5, "ABCabc" )
%>
产生一个5位的密码，在ABCabc随机产生。
<%
Function Password_GenPass(intEnglish,intNumber,intChar)
Const sEnglish= "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" Const sNumber = "0123456789"
Const sChar = "~!@#$%^&*()_{}\|/<>?"
Dim sRet
Dim iEnglist
Dim iNumber
Dim iChar
Dim iLength
Dim intSum
Randomize 'init random
iEnglish = Len( sEnglish )
iNumber = Len(sNumber)
iChar = Len(sChar)
intSum = intEnglish + intNumber + intChar
For i = 1 to intSum
If i < (intEnglish + 1) Then
iLength = Int((iEnglish * Rnd) + 1)
sRet = sRet & Mid(sEnglish,iLength,1)
End If
If (i < intEnglish + intNumber + 1) and (i > intEnglish) Then
iLength = Int((iNumber * Rnd) + 1)
sRet = sRet & Mid(sNumber,iLength,1)
End If
If (i < intSum + 1) and (i > intEnglish + intNumber) Then
iLength = Int((iChar * Rnd) + 1)
sRet = sRet & Mid(sChar,iLength,1)
End If
Next
Password_GenPass = sRe
tEnd Function
%>
<HTML><BODY>
<% Response.Write "你的密码: " & Password_GenPass 3,3,3 & "<br>"%>
</BODY>
</HTML>
3、设为首页，加入收藏夹
<a href="#" onMousemove="this.style.behavior='url(#default#homepage)';this.setHomePage('你的地址')">设为首页</a>
<a href=window.external.addFavorite('你的地址','名称')">加入收藏</a>
