第一个页面: 
<html> 
<head> 
<script language="VBScript"> 
Sub Hello() 
Document.All.myScriptlet.Hello 
End Sub 
</script> 
</head> 
<body onload="Hello()"> 
<OBJECT ID="myScriptlet" 
TYPE="text/x-scriptlet" 
DATA="2.htm" 
HEIGHT="0" WIDTH="0"> 
</OBJECT> 
</body> 
</html> 
2.htm里的源码: 
<script language="VBScript"> 
Sub public_Hello() 
MsgBox "Hello World!" 
End Sub 
</script>