home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / USERONLN.AP_ / USERONLN.AP
Text File  |  1998-04-01  |  3KB  |  119 lines
  1. <[
  2. // Virtual Name Server - Online Users
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION webUserDirOpen( session, path )
  6.  
  7.     local dbname, dbindex, db
  8.  
  9.     dbname = fileFixPath( path + '\userdir.db' )
  10.     if ( ! fileExists( dbname ) )
  11.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  12.         return(0)
  13.     end
  14.  
  15.     db = dbuse( dbname, "users", 1 )
  16.     if ( ! db )
  17.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  18.         return(0)
  19.     end
  20.         
  21.     dbindex = fileFixPath( path + '\userdir.dx' )
  22.        if ( ! fileExists( dbindex ) )
  23.            users->dbClose( )
  24.         session.error(  "Unable to open " + dbindex + " index file.", "FFFFFF", "000000" )
  25.         return(0)
  26.        end
  27.  
  28.        users->dbOpenIndex( dbindex )
  29.        users->dbOrder( 1 )
  30.  
  31.     return( db )
  32. END
  33.  
  34. // Main code
  35.  
  36.     _apGenerate( )
  37.  
  38.     websrvr = 0 + param( 1 )
  39.     sessionId = 0 + param( 2 )
  40.  
  41.     session = new( "session", websrvr, sessionId )
  42.  
  43.     if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) )
  44.         return( 0 )
  45.     end
  46.  
  47.     dir_name = vnsTitle( websrvr )
  48.  
  49. ]>
  50. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  51. <!-- SmartDesk Active Page, www.smartdesk.com -->
  52. <HTML>
  53. <HEAD>
  54. <TITLE><[ ! dir_name ]> Directory</TITLE>
  55. </HEAD>
  56. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  57.  
  58. <TABLE BORDER=0 WIDTH=600>
  59.  <TR>
  60.   <TD VALIGN="top" WIDTH=159>
  61.    <CENTER>
  62.    <FONT COLOR="#FFFF00"><B>Online Systems</B></FONT><BR>
  63.    <A HREF="userdir.htm"><IMG SRC="/image/ws.jpg" BORDER=0 WIDTH=159 HEIGHT=300></A><BR>
  64.    <FONT COLOR="#FFFFFF" SIZE=1>
  65.    <P><FONT COLOR="#00FFFF">©Copyright 1997-98</FONT><BR>by SmartDesk, Inc.<BR>All Rights Reserved</P>
  66.    </FONT>
  67.  
  68.    </CENTER>
  69.   </TD>
  70.   <TD WIDTH=30>
  71.    <FONT SIZE=5 COLOR="#000000">.</FONT>
  72.   </TD>
  73.   <TD WIDTH=410 VALIGN="top">
  74.  
  75.    <BR>
  76.    <CENTER>List of User Systems Currently Online at:<BR>
  77.    <FONT SIZE=6 COLOR="#00FFFF"><[ ! dir_name ]></FONT><BR></CENTER>
  78.  
  79.    <CENTER>
  80.     <TABLE BORDER=0 WIDTH=380>
  81.      <TR>
  82.       <TD WIDTH=160><FONT COLOR="#000000">.</FONT></A></TD>
  83.       <TD WIDTH=220><FONT COLOR="#000000">.</FONT></A></TD>
  84.      </TR>
  85. <[
  86.     users->dbGoTop( )
  87.     while ( ! users->dbEOF( ) )
  88.         if ( ! strempty( users->goto_url ) && ! users->dbIsDeleted( ) )
  89.             ! "     <TR>"
  90.             ! "   <TD><A HREF=\"contact.htm?" + ( users->recno( ) + 16384 ) + "\">" + rtrim( users->lname ) + ", " + rtrim( users->fname ) + "</A></TD>"
  91.             ! "   <TD><A HREF=\"contact.htm?" + ( users->recno( ) + 16384 ) + "\">" + rtrim( users->c_title ) + "</A></TD>"
  92.             ! "  </TR>"
  93.         end
  94.         users->dbSkip( )
  95.     end
  96.     users->dbClose( )
  97. ]>
  98.     </TABLE>
  99.  
  100.    <P><BR></P>
  101.  
  102.    <CENTER>
  103.    <FONT SIZE=2>
  104.    <A HREF="usersrch.htm">Search</A> | 
  105.    <A HREF="userdir.htm">Directory</A> |
  106.    <A HREF="useradmn.htm">Administration</A> |
  107.    <A HREF="/index.htm">Home</A>
  108.    </FONT><BR>
  109.    <BR>
  110.    </CENTER>
  111.  
  112.   </TD>
  113.  </TR>
  114. </TABLE>
  115.  
  116. </BODY>
  117. </HTML>
  118.  
  119.