Rev 2 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| Computer List |'| |'=====================================================%><%Option explicitResponse.Expires = 0%><!--#include file="common/globals.asp"--><!--#include file="common/config.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/_computer_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ VARIABLE DEFINITION -------------Dim rsUser'------------ CONSTANTS DECLARATION -----------'------------ VARIABLE INIT -------------------'------------ CONDITIONS ----------------------'----------------------------------------------%><%'------------ RUN BEFORE PAGE RENDER ----------'----------------------------------------------%><html><head><title>Access Manager</title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="scripts/access_manager.css" rel="stylesheet" type="text/css"></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0"><!-- HEADER ++++++++++++++++++++++ --><!--#include file="_header.asp"--><!-- +++++++++++++++++++++++++++++ --><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" valign="top" background="images/bg_bage_pane.gif"><!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ --><!--#include file="_treeNavigator.asp"--><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --></td><td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td><td width="100%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="9"><form name="FormName" method="post" action="<%=SCRIPT_NAME%>"><tr><td background="images/bg_drk_bage_pane.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td nowrap class="body_txt"><!-- BUTTONS CONTROL +++++++++++++++++++ --><!-- +++++++++++++++++++++++++++++++++++ --></td><td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td></tr></table></td></tr><tr><td><%Dim startPosition, pageNumber, navigator, totalRecords, lastRecordConst MAX_ROWS = 50 ' Maximum number of rows displayed'--- Set filters ---If Request("filter") <> "" ThenOraDatabase.Parameters.Add "CLIENT_IP", Request("filter") &"%", ORAPARM_INPUT, ORATYPE_VARCHAR2ElseOraDatabase.Parameters.Add "CLIENT_IP", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2End IfSet rsUser = OraDatabase.DbCreateDynaset( GetQuery ("ComputerList.sql") , ORADYN_DEFAULT )'--- Get page number ---pageNumber = 0If Request("pg") <> "" ThenpageNumber = CInt(Request("pg"))End If'--- Set Cursor start position ---startPosition = pageNumber * MAX_ROWS + 1If (NOT rsUser.BOF) AND (NOT rsUser.EOF) ThenrsUser.MoveTo ( startPosition ) ' Set starting cursor pointEnd If'--- Construct Navigatornavigator = ""If (NOT rsUser.BOF) AND (NOT rsUser.EOF) ThentotalRecords = rsUser.RecordCount ' Get total number of records'--- Create "Previous" linkIf pageNumber > 0 Thennavigator = navigator &"<a href='"& SCRIPT_NAME &"?pg="& pageNumber - 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Previous Page'>« Previous</a>"End If'--- Create "Next" linkIf ( startPosition + MAX_ROWS ) < totalRecords Thennavigator = navigator &" <a href='"& SCRIPT_NAME &"?pg="& pageNumber + 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Next Page'>Next »</a>"End IfEnd If'--- Calculate Last Record ---If totalRecords > 0 ThenlastRecord = ( startPosition - 1 + MAX_ROWS ) _+ ( CInt( ( startPosition - 1 + MAX_ROWS )/totalRecords > 1) ) * ( ( startPosition - 1 + MAX_ROWS ) - totalRecords )End If%><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr align="left"><td colspan="2" class="body_row"> </td></tr><tr><td align="left" class="body_row"><%If totalRecords > 0 ThenResponse.write "Showing "& startPosition &" - "& lastRecord &" of "& totalRecordsElseResponse.write "No Results."End If%></td><td align="right" class="body_scol"><%=navigator%></td></tr></table><!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><table width="100%" border="0" cellspacing="3" cellpadding="0"><tr><td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td><td width="30%" background="images/bg_table_border.gif"><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Remote Address (IP)</td></tr></table></td><td width="70%" align="right" nowrap background="images/bg_table_col.gif" class="body_col"></td></tr><%'--- Render rows ---Do While (NOT rsUser.BOF) AND (NOT rsUser.EOF)If rsUser.RowPosition => (startPosition + MAX_ROWS) Then Exit Do ' Limit the number of rows displayed%><tr><td align="center"><input type="checkbox" name="client_ip" value="" disabled></td><td nowrap class="body_row"><a href="Computer_Users.asp?client_ip=<%=Server.URLEncode ( rsUser("client_ip") )%>&<%=objPMod.ComposeURL%>" class="body_link"><%=LIMG_COMPUTERS & rsUser("client_ip")%></a></td><td ></td></tr><%rsUser.MoveNext%><%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%><tr><td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td></tr><%End If%><%LoopOraDatabase.Parameters.Remove "CLIENT_IP"rsUser.Close()Set rsUser = Nothing%><tr><td colspan="3" background="images/bg_table_border.gif"><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td></tr></table></td></tr></table><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td align="right" class="body_scol"><%=navigator%></td></tr></table><br></td></tr><%=objPMod.ComposeHiddenTags()%><input type="hidden" name="action" value="true"></form></table></td></tr></table><!-- FOOTER ++++++++++++++++++++++ --><!--#include file="_footer.asp"--><!-- +++++++++++++++++++++++++++++ --></body></html><%'------------ RUN AFTER PAGE RENDER -----------'----------------------------------------------%><!--#include file="common/globals_destructor.asp"-->