2_pages.html

基于vb环境开发的pos终端系统

<p><font size="-1">
  <% e = new Enumerator(Pages)
     s = ''
     c = 0
     for (; !e.atEnd(); e.moveNext())
     {
       if ((e.item().Published && e.item().CanView && e.item().Name!='Login' && e.item().Name!='UserProfile')||(Page.Name == e.item().Name))
       {
         if (c>0) s += '&nbsp;|&nbsp;'
         if (Page.Name != e.item().Name)
           s += '<a href="' + e.item().HREF + '">' + Session.Values(e.item().Name) + '</a>'
         else 
           s += '</font><b>'+Session.Values(e.item().Name)+'</b><font size="-1">'
         c++
       }
     }
     if (c>1) Response.Write(s)
%>
</font></p>
<%{ actresult=EndUser.ActResult.Value
if ((actresult!=null) && (actresult!='')) {%>
<ul><li><%=actresult%></li></ul>
<% } 
  }%>