VBScript Sample: vbscript/general/createobj/jar.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<html>
<head>
<title>Browse a jar file</title>
</head>
<body>
<p align="right"> <big> <a href="default.html"> Go Back </a> </big></p>
<p align="center"><big><big>Browse a jar file</big></big></p>
<br>
<%
   Dim obj
   Dim objinfo
   Dim jar
   Dim meth
   Dim prop
   Set jar =Server.CreateObject("buttons.jar")
%>

<p> <big> Include <%= cstr(jar.getCount)%>  bean in the buttons.jar </big></p>
<hr>
<p align="center">
<table>
<%for i = 0 to jar.getCount - 1%>
<%

Set objinfo = jar.getBeanInfo(i)
prop = objinfo.getPropertyDescriptors()
meth= objinfo.getMethodDescriptors()
%>

<tr><td>
      <table border="1" cellPadding="1" cellSpacing="1" width="100%">
           <tr align="center"><td> <%= jar.getName(i) %></td></tr>
           <tr><td>
                <table border="1" cellspacing="0">
                     <tr><td>Properties</td>
                          <td><table border="1" cellPadding="1" cellSpacing="0" width="100%">
                                    <%For Each o In prop%>
                                    <tr><td><%=o.getDisplayName()%></td></tr>
                                    <%next%>
                               </table>
                          </td>
                     </tr>
                     <tr><td>Methods</td>
                          <td><table border="1" cellPadding="1" cellSpacing="0" width="100%">
                                    <%For Each m In meth%>
                                    <tr><td><%=m.getDisplayName()%></td></tr>
                                    <%next%>
                               </table>
                          </td>
                     </tr>
                </table>
           </td></tr>
      </table>
</td></tr>
<%next%>
</table>
</p>
</body>
</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.