VB问题~输入数字，显示相应的英文~

'在窗体上加入控件text1,list1,command1，然后复制下面代码，运行，在text1内输入数字，点击command1按钮，list1就会显示出相应结果。

Option Explicit

Function Ones(MyStr As String) As String

Select Case MyStr

Case "0"

Ones = "Zero"

Case "1"

Ones = "One"

Case "2"

Ones = "Two"

Case "3"

Ones = "Three"

Case "4"

Ones = "Four"

Case "5"

Ones = "Five"

Case "6"

Ones = "Six"

Case "7"

Ones = "Seven"

Case "8"

Ones = "Eight"

Case "9"

Ones = "Nine"

End Select

End Function

Function Tens(MyStr As String) As String

Select Case MyStr

Case "10"

Tens = "Ten"

Case "11"

Tens = "eleven"

Case "12"

Tens = "Twelve"

Case "13"

Tens = "Thirteen"

Case "14"

Tens = "Fourteen"

Case "15"

Tens = "Fifteen"

Case "16"

Tens = "Sixteen"

Case "17"

Tens = "Seventeen"

Case "18"

Tens = "Eighteen"

Case "19"

Tens = "Nineteen"

Case Else

Select Case Left(MyStr, 1)

Case "2"

Tens = "Twenty "

Case "3"

Tens = "Thirty "

Case "4"

Tens = "Forty "

Case "5"

Tens = "Fifty "

Case "6"

Tens = "Sixty "

Case "7"

Tens = "Seventy "

Case "8"

Tens = "Eighty "

Case "9"

Tens = "Ninety "

End Select

Tens = Tens & Ones(Right(MyStr, 1))

End Select

End Function

Private Sub Command1_Click()

Dim MyStr As String

MyStr = Text1Text

If IsNumeric(MyStr) = True Then

Select Case Len(MyStr)

Case 1

List1AddItem Ones(MyStr)

Case 2

List1AddItem Tens(MyStr)

Case Else

End Select

End If

End Sub

首先新建头文件des_encodeH

内容如下：

void EncodeMain(); //EncodeMain function

void DecodeMain(); //Sorry ,it has not used

void Decode(int str,int keychar); //decode :input 8 chars,8 keychars

void Encode(int str,int keychar); //encode: input 8 chars,8 keychars

void keyBuild(int keychar); //create key array

void StrtoBin(int midkey,int keychar); //change into binary

void keyCreate(int midkey2,int movebit,int i); //call by keyBuild

void EncodeData(int lData,int rData,int srt); //encodedata function

void F(int rData,int key); //F function

void Expand(int rData,int rDataP); //Expand function

void ExchangeS(int rDataP,int rData); //S-diagram change

void ExchangeP(int rData); //P change

void FillBin(int rData,int n,int s); // data to binary;call by S-Diagram change function

void DecodeData(int str,int lData,int rData); //DecodeData from binary

int IP1[]={58, 50, 42, 34, 26, 18, 10, 2, 60, 52, 44, 36, 28, 20, 12, 4, //initial change

62, 54, 46, 38, 30, 22, 14, 6, 64, 56, 48, 40, 32, 24, 16, 8,

57, 49, 41, 33, 25, 17, 9, 1, 59, 51, 43, 35, 27, 19, 11, 3,

61, 53, 45, 37, 29, 21, 13, 5, 63, 55, 47, 39, 31, 23, 15, 7,

};

int IP2[]={40, 8, 48, 16, 56, 24, 64, 32, 39, 7, 47, 15, 55, 23, 63, 31, //opp initial change

38, 6, 46, 14, 54, 22, 62, 30, 37, 5, 45, 13, 53, 21, 61, 29,

36, 4, 44, 12, 52, 20, 60, 28, 35, 3, 43, 11, 51, 19, 59, 27,

34, 2, 42, 10, 50, 18, 58, 26, 33, 1, 41, 9, 49, 17, 57, 25

};

int s[][4][16]={{ //S-diagram array

{14,4,13,1,2,15,11,8,3,10,6,12,5,9,0,7},

{0,15,7,4,14,2,13,1,10,6,12,11,9,5,3,8},

{4,1,14,8,13,6,2,11,15,12,9,7,3,10,5,0},

{15,12,8,2,4,9,1,7,5,11,3,14,10,0,6,13}

},

{

{15,1,8,14,6,11,3,4,9,7,2,13,12,0,5,10},

{3,13,4,7,15,2,8,14,12,0,1,10,6,9,11,5},

{0,14,7,11,10,4,13,1,5,8,12,6,9,3,2,15},

{13,8,10,1,3,15,4,2,11,6,7,12,0,5,14,9}

},

{

{10,0,9,14,6,3,15,5,1,13,12,7,11,4,2,8},

{13,7,0,9,3,4,6,10,2,8,5,14,12,11,15,1},

{13,6,4,9,8,15,3,0,11,1,2,12,5,10,14,7},

{1,10,13,0,6,9,8,7,4,15,14,3,11,5,2,12}

},

{

{7,13,14,3,0,6,9,10,1,2,8,5,11,12,4,15},

{13,8,11,5,6,15,0,3,4,7,2,12,1,10,14,9},

{10,6,9,0,12,11,7,13,15,1,3,14,5,2,8,4},

{3,15,0,6,10,1,13,8,9,4,5,11,12,7,2,14}

},

{

{2,12,4,1,7,10,11,6,8,5,3,15,13,0,14,9},

{14,11,2,12,4,7,13,1,5,0,15,10,3,9,8,6},

{4,2,1,11,10,13,7,8,15,9,12,5,6,3,0,14},

{11,8,12,7,1,14,2,13,6,15,0,9,10,4,5,3}

},

{

{12,1,10,15,9,2,6,8,0,13,3,4,14,7,5,11},

{10,15,4,2,7,12,9,5,6,1,13,14,0,11,3,8},

{9,14,15,5,2,8,12,3,7,0,4,10,1,13,11,6},

{4,3,2,12,9,5,15,10,11,14,1,7,6,0,8,13}

},

{

{4,11,2,14,15,0,8,13,3,12,9,7,5,10,6,1},

{13,0,11,7,4,9,1,10,14,3,5,12,2,15,8,6},

{1,4,11,13,12,3,7,14,10,15,6,8,0,5,9,2},

{6,11,13,8,1,4,10,7,9,5,0,15,14,2,3,12}

},

{

{13,2,8,4,6,15,11,1,10,9,3,14,5,0,12,7},

{1,15,13,8,10,3,7,4,12,5,6,11,0,14,9,2},

{7,11,4,1,9,12,14,2,0,6,10,13,15,3,5,8},

{2,1,14,7,4,10,8,13,15,12,9,0,3,5,6,11}

}

};

int Ex[48]={ 32,1,2,3,4,5, //Expand array

4,5,6,7,8,9,

8,9,10,11,12,13,

12,13,14,15,16,17,

16,17,18,19,20,21,

20,21,22,23,24,25,

24,25,26,27,28,29,

28,29,30,31,32,1

};

int P[32]={16,7,20,21, //P-change

29,12,28,17,

1,15,23,26,

5,18,31,10,

2,8,24,14,

32,27,3,9,

19,13,30,6,

22,11,4,25

};

int PC1[56]={57,49,41,33,25,17,9, //PC-1 in keyBuild

1,58,50,42,34,26,18,

10,2,59,51,43,35,27,

19,11,3,60,52,44,36,

63,55,47,39,31,33,15,

7,62,54,46,38,30,22,

14,6,61,53,45,37,29,

21,13,5,28,20,12,4

};

int PC2[48]={14,17,11,24,1,5, //PC-2 in keyBuild

3,28,15,6,21,10,

23,19,12,4,26,8,

16,7,27,20,13,2,

41,52,31,37,47,55,

30,40,51,45,33,48,

44,49,39,56,34,53,

46,42,50,36,29,32

};

再创建descpp

内容如下：

#include<stdioh>

#include<stringh>

#include"des_encodeh"

int key[16][48];

char str[8];

void main() //main function

{

EncodeMain();

}

void EncodeMain() //EncodeMain function

{

int i;

char keychar[8];

int key2[8];

int strkey[8];

printf("请输入8个要加密的字符：\n");

for(i=0;i<8;i++)

scanf("%c",&str[i]);

getchar();

for(i=0;i<8;i++)

strkey[i]=str[i];

printf("\n输入明文的十六进制为:\n");

for(i=0;i<8;i++)

printf("%10x",strkey[i]);

printf("\n请输入密钥(8个字符):\n");

for(i=0;i<8;i++)

scanf("%c",&keychar[i]);

for(i=0;i<8;i++)

key2[i]=keychar[i];

getchar();

// printf("%c",keychar[i]);

Encode(strkey,key2);

printf("\n加密后十六进制密文是:\n");

for(i=0;i<8;i++)

printf("%10x",strkey[i]);

printf("\n\n清输入解密密码\n");

for(i=0;i<8;i++)

scanf("%c",&keychar[i]);

for(i=0;i<8;i++)

key2[i]=keychar[i];

Decode(strkey,key2);

for(i=0;i<8;i++)

printf("%10x",strkey[i]);

for(i=0;i<8;i++)

str[i]=strkey[i];

printf("\n明文为：\t");

for(i=0;i<8;i++)

printf("%c",str[i]);

printf("\n\n");

}

void keyBuild(int keychar){ //create key array

int i,j;

int movebit[]={1,1,2,2,2,2,2,2,

1,2,2,2,2,2,2,1};

int midkey2[56];

int midkey[64];

StrtoBin(midkey,keychar);

for(i=0;i<56;i++)

midkey2[i]=midkey[PC1[i]-1];

for(i=0;i<16;i++)

keyCreate(midkey2,movebit[i],i);

}

void StrtoBin(int midkey,int keychar){ //change into binary

int trans[8],i,j,k,n;

n=0;

for(i=0;i<8;i++){

j=0;

while(keychar[i]!=0){

trans[j]=keychar[i]%2;

keychar[i]=keychar[i]/2;

j++;

}

for(k=j;k<8;k++)trans[k]=0;

for(k=0;k<8;k++)

midkey[n++]=trans[7-k];

}

}

void keyCreate(int midkey2,int movebit,int n){

int i,temp[4];

temp[0]=midkey2[0];

temp[1]=midkey2[1];

temp[2]=midkey2[28];

temp[3]=midkey2[29];

if(movebit==2){

for(i=0;i<26;i++){

midkey2[i]=midkey2[i+2];

midkey2[i+28]=midkey2[i+30];

}

midkey2[26]=temp[0];midkey2[27]=temp[1];

midkey2[54]=temp[2];midkey2[55]=temp[3]; }

else

{ for(i=0;i<27;i++){

midkey2[i]=midkey2[i+1];

midkey2[i+28]=midkey2[i+29];

}

midkey2[27]=temp[0];midkey2[55]=temp[2];

}

for(i=0;i<48;i++)

key[n][i]=midkey2[PC2[i]-1];

}

void EncodeData(int lData,int rData,int str){ //encodedata function

int i,j,temp[8],lint,rint;//int h;

int data[64];

lint=0,rint=0;

for(i=0;i<4;i++){

j=0;

while(str[i]!=0){

temp[j]=str[i]%2;

str[i]=str[i]/2;

j++;

}

while(j<8)temp[j++]=0;

for(j=0;j<8;j++)

lData[lint++]=temp[7-j];

j=0;

while(str[i+4]!=0){

temp[j]=str[i+4]%2;

str[i+4]=str[i+4]/2;

j++;

}

while(j<8)temp[j++]=0;

for(j=0;j<8;j++)rData[rint++]=temp[7-j];

}

for(i=0;i<32;i++){

data[i]=lData[i];

data[i+32]=rData[i];

}

for(i=0;i<32;i++){

lData[i]=data[IP1[i]-1];//printf("P1:%5d:%5d,%5d\n",IP1[i],lData[i],data[IP1[i]-1]);

rData[i]=data[IP1[i+32]-1];

}

}

void F(int rData,int key){ //F function

int i,rDataP[48];

Expand(rData,rDataP);

for(i=0;i<48;i++){

rDataP[i]=rDataP[i]^key[i];// printf("%10d",rDataP[i]);if((i+1)%6==0)printf("\n");

}

ExchangeS(rDataP,rData);

ExchangeP(rData);

}

void Expand(int rData,int rDataP){ //Expand function

int i;

for(i=0;i<48;i++)

rDataP[i]=rData[Ex[i]-1];

}

void ExchangeS(int rDataP,int rData){ //S-diagram change

int i,n,linex,liney;

linex=liney=0;

for(i=0;i<48;i+=6){

n=i/6; //printf("%10d\n",(rDataP[i]<<1));

linex=(rDataP[i]<<1)+rDataP[i+5];

liney=(rDataP[i+1]<<3)+(rDataP[i+2]<<2)+(rDataP[i+3]<<1)+rDataP[i+4];

FillBin(rData,n,s[n][linex][liney]);

}

}

void ExchangeP(int rData){ //P change

int i,temp[32];

for(i=0;i<32;i++)

temp[i]=rData[i];

for(i=0;i<32;i++)

rData[i]=temp[P[i]-1];

}

void FillBin(int rData,int n,int s){ // data to binary;call by S-Diagram change function

int temp[4],i;

for(i=0;i<4;i++){

temp[i]=s%2;

s=s/2;

}

for(i=0;i<4;i++)

rData[n4+i]=temp[3-i];

}

void DecodeData(int str,int lData,int rData){ //DecodeData from binary

int i;int a,b;int data[64];

a=0,b=0;

for(i=0;i<32;i++){

data[i]=lData[i];

data[i+32]=rData[i];

}

for(i=0;i<32;i++){

lData[i]=data[IP2[i]-1];

rData[i]=data[IP2[i+32]-1];

}

for(i=0;i<32;i++){

a=(lData[i]&0x1)+(a<<1);

b=(rData[i]&0x1)+(b<<1);

if((i+1)%8==0){

str[i/8]=a;a=0;//printf("%d",i/8);

str[i/8+4]=b;b=0;//printf("%d",i/8+4);

}

}

}

void Encode(int str,int keychar){ //encode: input 8 chars,8 keychars

int lData[32],rData[32],temp[32],rDataP[48];

int i,j;

keyBuild(keychar);

EncodeData(lData,rData,str);

for(i=0;i<16;i++){

for(j=0;j<32;j++)

temp[j]=rData[j];

F(rData,key[i]);

for(j=0;j<32;j++){

rData[j]=rData[j]^lData[j];

}

for(j=0;j<32;j++)

lData[j]=temp[j];

}

DecodeData(str,rData,lData);

}

void Decode(int str,int keychar){ //decode :input 8 chars,8 keychars

int lData[32],rData[32],temp[32],rDataP[48];

int i,j;

keyBuild(keychar);

EncodeData(lData,rData,str); //这个位置

for(i=0;i<16;i++){

for(j=0;j<32;j++)

temp[j]=rData[j];

F(rData,key[15-i]);

for(j=0;j<32;j++){

rData[j]=rData[j]^lData[j];

}

for(j=0;j<32;j++){

lData[j]=temp[j];

}

}

DecodeData(str,rData,lData);

}

OK了

如果还有问题

给我发站内信

网页设计常用HTML代码大全

　HTML是用来描述网页的一种语言。下面我为大家分享HTML代码，希望对大家学习html代码有帮助！

　忽视右键

　<body oncontextmenu="return false">

　或

　<body style="overflow-y:hidden">

　1如何几秒后转到别的页面？

　<META HTTP-EQUIV="Refresh" CONTENT="时间;URL=地址">

　2点击关闭窗口

　<a href="javascript:topwindowclose();">点击关闭窗口</a>！

　3请问如何去掉主页右面的滚动条？

　<body scroll="no">

　<body style="overflow-y:hidden">

　4请问如何做到让一个网页自动关闭

　<html>

　<head>

　<OBJECT id=closes type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

　<param name="Command" value="Close">

　</object>

　</head>

　<body onload="windowsetTimeout(‘‘‘‘closesClick()‘‘‘‘,10000)">

　这个窗口会在10秒过后自动关闭,而且不会出现提示 </body>

　如何在不刷新页面的情况下刷新css

　<style>

　button{ color:#000000;}

　</style>

　<button onclick=documentstyleSheets[0]rules[0]stylecolor=‘‘‘‘red‘‘‘‘>点击按钮直接修改style标签里button选择符使按钮改为红色</button>

　请问如何让网页自动刷新？

　在head部记入<META HTTP-EQUIV="Refresh" content="20">其中20为20秒后自动刷新，你可以更改为任意值。

　5如何让页面自动刷新？

　方法一，用refresh

　HTML 代码片段如下:

　<head>

　<meta http-equiv="refresh" content="5">

　</head>

　5表示刷新时间

　[Ctrl+A 全部选择 提示:你可先修改部分代码，再按运行]

　方法二，使用setTimeout控制

　<img src=/logogif>

　<script>

　function rl(){

　documentlocationreload()

　}

　setTimeout(rl,2000)

　</script>

　6如何让超链接没有下划线

　在源代码中的<HEAD>…</HEAD>之间输入如下代码：

　<style type="text/css"> <!--

　a { text-decoration: none}

　--> </style>

　7请问如何去掉IE的上下滚动条？

　<body style=‘‘‘‘overflow:scroll;overflow-y:hidden‘‘‘‘>

　</body>

　8怎样才能把RealPlayer文件在网页做一个试听连接？

　<embed height=25　src=51jsrm type=audio/x-pn-realaudio-plugin width=50 autostart="false" controls="PlayButton">

　9如何用html实现浏览器上后退按钮的功能？

　<a href="java script:historygo(-1)">点击后退</a>

　或者

　<script> historyback() </script>

　10请问怎么在网页中改变鼠标的箭头形状？

　HTML 代码片段如下:

　<body>

　<a href="#" style="cursor: auto;">auto</a><br>

　<a href="#" style="cursor: crosshair ">crosshair </a><br>

　<a href="#" style="cursor: default ">default </a><br>

　<a href="#" style="cursor: hand ">hand </a><br>

　<a href="#" style="cursor: move ">move </a><br>

　<a href="#" style="cursor: e-resize ">e-resize </a><br>

　<a href="#" style="cursor: ne-resize ">ne-resize </a><br>

　<a href="#" style="cursor: nw-resize">nw-resize</a><br>

　<a href="#" style="cursor: n-resize">n-resize</a><br>

　<a href="#" style="cursor: se-resize">se-resize</a><br>

　<a href="#" style="cursor: sw-resize">sw-resize</a><br>

　<a href="#" style="cursor: s-resize">s-resize</a><br>

　<a href="#" style="cursor: w-resize">w-resize</a><br>

　<a href="#" style="cursor: text">text</a><br>

　<a href="#" style="cursor: wait">wait</a><br>

　<a href="#" style="cursor: help">help</a><br>

　</body>

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

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

　12页面打开时自动弹出一个窗口的代码怎么写？

　HTML 代码片段如下:

　<html>

　<head>

　<title>Untitled Document</title>

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

　<script language="<B style="color:black;background-color:#A0FFFF">javascript</B>">

　<!--

　function MM_openBrWindow(theURL,winName,features) { //v20

　windowopen(theURL,winName,features);

　}

　//-->

　</script>

　</head>

　<body bgcolor="#FFFFFF" text="#000000" onLoad="MM_openBrWindow(‘‘‘‘http://www35uicn/‘‘‘‘,‘‘‘‘,‘‘‘‘width=400,height=400‘‘‘‘)">

　</body>

　</html>

　13如何让我的页面出现一个会讲话的小人？Merlin

　HTML 代码片段如下:

　<HTML>

　<HEAD>

　<TITLE>默林</TITLE>

　<META http-equiv=Content-Type content="text/html; charset=gb2312">

　</HEAD>

　<BODY>

　<p><OBJECT id=sims classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F>

　</OBJECT>

　<SCRIPT>

　var MerlinID;

　var MerlinACS;

　simsConnected = true;

　MerlinLoaded = LoadLocalAgent(MerlinID, MerlinACS);

　Merlin = simsCharactersCharacter(MerlinID);

　MerlinShow();

　MerlinPlay("Surprised");

　MerlinSpeak("大家好");

　MerlinPlay("GestureLeft");

　MerlinThink("我是默林！");

　MerlinPlay("Pleased");

　MerlinThink("可爱吗？");

　MerlinPlay("GestureDown");

　MerlinSpeak("哈哈！");

　MerlinHide();

　function LoadLocalAgent(CharID, CharACS){

　LoadReq = simsCharactersLoad(CharID, CharACS);

　return(true);

　}

　</SCRIPT>

　</p>

　<p> </p>

　<p>看此效果必须装有office2000！！！</p>

　</BODY>

　</HTML>

　14在页面中如何加入不是满铺的背景,拉动页面时背景图不动

　HTML 代码片段如下:

　<html><head>

　<STYLE>

　body　 {background-image:url(logogif);

　background-repeat:no-repeat; background-position:center }

　</STYLE>

　</head>

　<body bgproperties="fixed" >

　</body>

　</html>

　[Ctrl+A 全部选择 提示:你可先修改部分代码，再按运行]

　background-repeat:no-repeat; 是让背景图不占满整个页面

　body bgproperties="fixed" 是拉动scroll时背景图不动

　15文本输入框什么属性能实现不可输入？

　HTML 代码片段如下:

　<input type="text" name="textfield" disabled>

　或者

　<input type="text" name="textfield" readonly>

　16如何禁止自己的页面在别人的框架里打开？

　把以下代码加至你的<head>区

　<script>

　if (windowtop!=self){

　windowtoplocation=selflocation

　}

　</script>

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

　HTML 代码片段如下:

　<html>

　<body><script language="<B style="color:black;background-color:#A0FFFF">javascript</B>">

　var coolw=642

　var coolh=400

　var coolhuang=windowopen("http://www35uicn","coolhuang","width="+coolw+",height="+coolh+",

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

　windowclose()

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

　18如何监听一个窗口被关闭了？

　HTML 代码片段如下:

　<body onunload="alert(‘‘‘‘你关闭了这个窗口‘‘‘‘)">

　19如何禁止Ctrl+N？

　HTML 代码片段如下:

　<body onkeydown=return(!(eventkeyCode==78&&eventctrlKey))>

　如何把页面加入用户的收藏夹？

　HTML 代码片段如下:

　<a href="<B style="color:black;background-color:#A0FFFF">javascript</B>:windowexternalAddFavorite(‘‘‘‘http://www35uicn‘‘‘‘,‘‘‘‘无忧脚本‘‘‘‘)">收藏无忧脚本</a>

　如何在我的'页面中加入背景音乐？

　IE: <bgsound src="mid" loop=infinite>

　NS:<embed src="mid" autostart=true hidden=true loop=true>

　mid你的背景音乐的midi格式文件

　关于页面转换效果

　<meta http-equiv="page-enter" content="revealTrans(Duration=4,Transition=23)">

　或

　<meta http-equiv="page-exit" content="revealTrans(Duration=4,Transition=23)">

　说明：Transition=23是随机效果，另可以选0-22任一数字固定某个效果

　如何设定打开页面的大小

　HTML 代码片段如下:

　<body onload="topresizeTo(300,200);"><!--(width，height)-->

　怎样双击滚屏，单击停止？

　HTML 代码片段如下:

　<html>

　<head>

　<title>新网页1</title>

　</head>

　<body>

　<script language"<B style="color:black;background-color:#A0FFFF">javascript</B>">

　var currentpos,timer;

　function initialize()

　{

　timer=setInterval("scrollwindow()",10);

　}

　function sc(){

　clearInterval(timer);

　}

　function scrollwindow()

　{

　currentpos=documentbodyscrollTop;

　windowscroll(0,++currentpos);

　if (currentpos != documentbodyscrollTop)

　sc();

　}

　documentonmousedown=sc

　documentondblclick=initialize

　</script>

　<p>a</p><p>a</p><p>a</p><p>aa</p><p>aa</p><p>aa</p>

　<p>aa</p><p>aa</p><p>aa</p><p>aa</p><p>aa</p><p>aa</p>

　<p>aa</p><p>aa</p><p>aa</p><p>aa</p><p>aa</p><p>aa</p>

　<p>aa</p><p>aa</p><p>aa</p><p>aa</p><p>a</p>

　</body>

　</html>

　如何让body中的文字不被选中？

　HTML 代码片段如下:

　<body onselectstart="return false" >aaa</body>

　如何让弹出的窗口不能关闭？

　在新开的窗口中加入如下代码

　<body onunload=open(locationhref)>

　</body>

　如何让浏览器在保存页面时保存失败？

　HTML 代码片段如下:

　<NOSCRIPT>

　<<B style="color:black;background-color:#ffff66">IFRAME</B> SRC="html">

　</<B style="color:black;background-color:#ffff66">IFRAME</B>>

　</NOSCRIPT>

　表单中如何用按钮实现 reset

　<html>

　<head>

　<script>

　function aaa(){

　documentforms[0]reset()

　}

　</script>

　</head>

　<body>

　<form>

　<textarea rows="2" name="S1" cols="20"></textarea>

　<input type="submit" values="提交" name="B1">

　<image src="logogif" onclick=aaa()>

　</form>

　</body></html>

　进入网页时弹出的信息对话框

　<body onLoad="windowalert(‘‘‘‘欢迎光临本站‘‘‘‘)">

　关闭窗口后弹出对话框

　<body onUnload="windowalert(‘‘‘‘谢谢你的光临!欢迎下次再来!‘‘‘‘)">

　告别提示

　<body onUnload= alert("再见，感谢你的访问！")>

　右键菜单的制作

　<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://www35uicn">

　<PARAM name="Item2" value="搜狐;http://www35hucn">

　<PARAM name="Item3" value="新浪;http://www35nocn">

　<PARAM name="Item4" value="网易;http://wwwchinsgpcn">

　<PARAM name="Item5" value="互动学院;http://www35uicn">

　</OBJECT> <script> if (documentall) documentbodyonmousedown=new Function("if (eventbutton==2) menuClick();") </script>

　下拉菜单

　<object id=HHCtrl type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"> <PARAM name="Command" value="Related Topics,Menu"> <PARAM name="Item1" value="aspease;http://www35uicn"> <PARAM name="Item2" value="byhu;http://www35uicn"> <PARAM name="Item3" value="lzz;http://www35uicn"> </object> <a href=javascript:HHCtrlClick() title="下拉菜单">下拉菜单</a>

;