<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>
|