Search Persits Software Knowledge Base

 

Article PS01042446

Using JavaScript instead of VB Script

Problem Description

All code samples shipped with the Persits Software components are written in server-side VB Script. There are no server-side JavaScript (JScript) code samples. Certain VBScript constructs, such as For/Each and On Error Resume Next, do not have direct equivalents in JavaScript, so caution must be taken when converting VBScript into JavaScript.

Solution

The following boxes show a few typical code samples written in VBScript, and their JavaScript equivalents.

1. AspUpload - setting properties and scrolling through the Files collection

In VB and VBScript, you can use the special loop statement For-Each to iterate through elements of a collection. JavaScript lacks such a construct, so a regular for loop must be used.

Note that JavaScript is case-sensitive. Also, every line in JavaScript must be terminated by a semicolon and parentheses are required for all method calls.

VB Script JavaScript
Dim Upload, File, Count, i

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True

Count = Upload.Save("c:\upload")

For Each File in Upload.Files
   Response.Write File.Path + "<BR>"
Next

Response.Write Upload.Form("Description")

var Upload, File, Count, i;

Upload = Server.CreateObject("Persits.Upload");
Upload.OverwriteFiles = true;

Count = Upload.Save("c:\\upload");

for(i = 1; i <= Upload.Files.Count; i++ )
{
   File = Upload.Files(i);
   Response.Write( File.Path + "<BR>" );
}

Response.Write( Upload.Form("Description"));

2. AspUpload - Catching exceptions

There is no On Error Resume Next statement in JavaScript, so you must use the try/catch construct instead. Details of an error can be obtained via the err object much the same way as via the Err object in VBScript.

Note that the Java Script implementation of the err.number property is different from that of VBScript's Err.Number in that the former returns a double-word hexadecimal error code such as 0x800A0008, and the latter only returns the low-order word such as 8.

VB Script JavaScript
Dim Upload, File, Count, i

Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 4000, True

On Error Resume Next
Count = Upload.Save("c:\upload")

If Err.Number = 8 Then
   Response.Write "File too large."
End If

var Upload, File, Count, i;

Upload = Server.CreateObject("Persits.Upload");
Upload.SetMaxSize(4000, true);

try
{    Count = Upload.Save("c:\\upload");
}
catch(err)
{
   if(( err.number & 0xFF ) == 8 )
   {
      Response.Write( "File too large.");
   }
}

Created: 2/8/2002 4:24:46 AM
Last Modified: 2/9/2002 3:24:42 PM

Copyright © Persits Software, Inc. 1998 - 2023
For technical support, write to support@persits.com.