HOWTO: How To Maintain State Across Pages with VBScript

Article translations Article translations
Article ID: 157906 - View products that this article applies to.
This article was previously published under Q157906
1.00 1.10 2.00 WINDOWS kbprg kbhowto
Expand all | Collapse all

On This Page

SUMMARY

This article illustrates the three ways that you can maintain state across Web pages using Visual Basic Scripting Edition.

Following are the three methods:
  • Assign a cookie to an alternate HREF.
  • Use a cookie and change the contents of the page.
  • Use frames and store a value in the top level frame.

MORE INFORMATION

The three methods are described in more detail below. To view an example that demonstrates the three methods, create the HTML files that are described in each section. You can use Notepad or any other text editor to create the files.

Method 1 - Assigning a Cookie to an Alternate HREF

To use method 1, you need to read your files from an HTTP server.
   ******** Begin Page1-1.htm **********
   <HTML>

    <SCRIPT LANGUAGE="VBSCRIPT">
      Sub SetCookie
        document.cookie = "MyVar='101'; path='page1-2.htm'"
      End Sub
    </SCRIPT>
    <BODY>
      <H2>Page 1 - Method 1</H2><HR>
      <INPUT TYPE=BUTTON VALUE="Set Cookie" onClick="SetCookie">
      <A HREF="page1-2.htm">Go to Page 2</A>
    </BODY>

   </HTML>
   ******** End Page1-1.htm **********

   ******** Begin Page1-2.htm **********
   <HTML>

    <SCRIPT LANGUAGE="VBSCRIPT">
      Sub GetCookie
        MsgBox document.cookie
      End Sub
    </SCRIPT>
    <BODY>
      <H2>Page 2 - Method 1</H2><HR>
      <INPUT TYPE=BUTTON VALUE="Get Cookie" onClick="GetCookie">
    </BODY>

   </HTML>
   ******** End Page1-2.htm   **********
				
Page1-1.htm:
  • The onClick event of the button calls the SetCookie subroutine that is defined at the top of the page.
  • The subroutine sets the value of the cookie and the PATH of the cookie. The PATH is the name of the page that the value is set for.
  • The anchor "Go to Page 2" navigates to page 2 using standard HTML syntax.
Page1-2.htm:

  • The onClick event of the button calls the GetCookie subroutine that is defined at the top of the page.
  • The subroutine reads the value of the cookie to demonstrate that the variable has been set.

Method 2 - Using a Cookie and Changing the Contents of the Page

To use method 2 you need to read your files from an HTTP server.
   ******** Begin Page2-1.htm **********
   <HTML>

    <SCRIPT LANGUAGE="VBSCRIPT">
      Sub SetCookie
        document.cookie = "MyVar=101"
      End Sub

      Sub GotoNextPage
        location.href = "page2-2.htm"
      End Sub
    </SCRIPT>
    <BODY>
      <H2>Page 1 - Method 2</H2><HR>
      <INPUT TYPE=BUTTON VALUE="Set Cookie" onClick="SetCookie">
      <A HREF="" onClick="GotoNextPage">Go to Page 2</A>
    </BODY>

   </HTML>
   ******** End Page2-1.htm **********

   ******** Begin Page2-2.htm **********
   <HTML>

    <SCRIPT LANGUAGE="VBSCRIPT">
      Sub GetCookie
        MsgBox document.cookie
      End Sub
    </SCRIPT>
    <BODY>
      <H2>Page 2 - Method 2</H2><HR>
      <INPUT TYPE=BUTTON VALUE="Get Cookie" onClick="GetCookie">
    </BODY>

   </HTML>
   ******** End Page2-2.htm **********
				
Page2-1.htm:

  • The onClick event of the button calls the SetCookie subroutine that is defined at the top of the file.
  • The subroutine sets the value of the cookie for the current page.
  • The anchor "Go to Page 2" calls the GotoNextPage subroutine that is defined at the top of the page.
  • The GotoNextPage subroutine navigates to Page 2 by setting the HREF property of the location object. This changes what the current page is pointing to without resetting the cookie.
Page2-2.htm:

  • The onClick event of the button calls the GetCookie subroutine that is defined at the top of the page.
  • The subroutine reads the value of the cookie to demonstrate that the variable has been set.

Method 3 - Using Frames and Storing a Value in the Top Level Frame

   ******** Begin Page3-1.htm **********
   <HTML>

    <SCRIPT LANGUAGE="VBSCRIPT">
      Dim MyVar
    </SCRIPT>

    <FRAMESET COLS="50%,50%">
      <FRAME SRC="page3-2.htm">
      <FRAME SRC="page3-3.htm">
    </FRAMESET>

   </HTML>
   ******** End Page3-1.htm **********

   ******** Begin Page3-2.htm **********
   <HTML>

    <SCRIPT LANGUAGE="VBSCRIPT">
      Sub SetVariable
        top.MyVar = 101
      End Sub
    </SCRIPT>
    <BODY>
      <H2>Page 1 - Method 3</H2><HR>
      <INPUT TYPE=BUTTON VALUE="Set Variable" onClick="SetVariable">
    </BODY>
   </HTML>
   ******** End PAGE3-2.HTM **********

   ******** Begin Page3-3.htm **********
   <HTML>

    <SCRIPT LANGUAGE="VBSCRIPT">
      Sub GetVariable
        MsgBox top.MyVar
      End Sub
    </SCRIPT>
    <BODY>
      <H2>Page 2 - Method 3</H2><HR>
      <INPUT TYPE=BUTTON VALUE="Get Variable" onClick="GetVariable">
    </BODY>

   </HTML>
   ******** End Page3-3.htm **********
				
Page3-1.htm:

  • A variable is defined. Since the variable is defined outside of any subroutines, it is accessible to all child frames.
Page3-2.htm:

  • The onClick event of the button calls the SetVariable subroutine that is defined at the top of the file.
  • The subroutine sets the value of the variable in the top-most frame. It does this using the variable TOP, which refers to the top-level frame.
Page3-3.htm:

  • The onClick event of the button calls the GetVariable subroutine that is defined at the top of the page.
  • The subroutine reads the value of the variable in the top-most frame.

REFERENCES

For more information about developing Web-based solutions for Microsoft Internet Explorer, visit the following Microsoft Web sites:
http://msdn.microsoft.com/ie/

http://support.microsoft.com/iep

Properties

Article ID: 157906 - Last Review: May 11, 2006 - Revision: 3.0
APPLIES TO
  • Microsoft Visual Basic, Scripting Edition 2.0
  • Microsoft Visual Basic, Scripting Edition 1.1
Keywords: 
kbfaq kbhowto kbscript KB157906
Retired KB Content Disclaimer
This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.

Give Feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com