home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 March / Dpcb0399.iso / INTERNET / IE401 / ieak4.CAB / corplist.asp < prev    next >
Text File  |  1998-02-09  |  17KB  |  457 lines
  1. <%@ LANGUAGE="VBScript" %>
  2.  
  3. <%
  4. '-------------------------------------------------------------------------------
  5. ' Microsoft Visual InterDev - Data Form Wizard
  6. ' 
  7. ' List Page
  8. '
  9. ' (c) 1997 Microsoft Corporation.  All Rights Reserved.
  10. '
  11. ' This file is an Active Server Page that contains the list view of a Data Form. 
  12. ' It requires Microsoft Internet Information Server 3.0 and can be displayed
  13. ' using any browser that supports tables. You can edit this file to further 
  14. ' customize the list view.
  15. '
  16. '-------------------------------------------------------------------------------
  17.  
  18. Dim strPagingMove
  19. Dim strDFName
  20. strDFName = "rsCorpAdminIEGroup"
  21. %>
  22.  
  23. <SCRIPT RUNAT=Server LANGUAGE="VBScript">
  24.  
  25. '---- DataTypeEnum Values ----
  26. Const adUnsignedTinyInt = 17
  27. Const adBoolean = 11
  28. Const adLongVarChar = 201
  29. Const adLongVarWChar = 203
  30. Const adBinary = 128
  31. Const adVarBinary = 204
  32. Const adLongVarBinary = 205
  33.  
  34. '-------------------------------------------------------------------------------
  35. ' Purpose:  Substitutes Empty for Null and trims leading/trailing spaces
  36. ' Inputs:   varTemp    - the target value
  37. ' Returns:    The processed value
  38. '-------------------------------------------------------------------------------
  39.  
  40. Function ConvertNull(varTemp)
  41.     If IsNull(varTemp) Then
  42.         ConvertNull = ""
  43.     Else
  44.         ConvertNull = Trim(varTemp)
  45.     End If
  46. End Function
  47.  
  48. '-------------------------------------------------------------------------------
  49. ' Purpose:  Embeds bracketing quotes around the string
  50. ' Inputs:   varTemp    - the target value
  51. ' Returns:    The processed value
  52. '-------------------------------------------------------------------------------
  53.  
  54. Function QuotedString(varTemp)
  55.     If IsNull(varTemp) Then
  56.         QuotedString = Chr(34) & Chr(34)
  57.     Else
  58.         QuotedString = Chr(34) & CStr(varTemp) & Chr(34)
  59.     End If
  60. End Function
  61.  
  62. '-------------------------------------------------------------------------------
  63. ' Purpose:  Tests string to see if it is a URL by looking for protocol
  64. ' Inputs:   varTemp    - the target value
  65. ' Returns:    True - if is URL, False if not
  66. '-------------------------------------------------------------------------------
  67.  
  68. Function IsURL(varTemp)
  69.     IsURL = True
  70.     If UCase(Left(Trim(varTemp), 6)) = "HTTP:/" Then Exit Function
  71.     If UCase(Left(Trim(varTemp), 6)) = "FILE:/" Then Exit Function
  72.     If UCase(Left(Trim(varTemp), 8)) = "MAILTO:/" Then Exit Function
  73.     If UCase(Left(Trim(varTemp), 5)) = "FTP:/" Then Exit Function
  74.     If UCase(Left(Trim(varTemp), 8)) = "GOPHER:/" Then Exit Function
  75.     If UCase(Left(Trim(varTemp), 6)) = "NEWS:/" Then Exit Function
  76.     If UCase(Left(Trim(varTemp), 7)) = "HTTPS:/" Then Exit Function
  77.     If UCase(Left(Trim(varTemp), 8)) = "TELNET:/" Then Exit Function
  78.     If UCase(Left(Trim(varTemp), 6)) = "NNTP:/" Then Exit Function
  79.     IsURL = False
  80. End Function
  81.  
  82. '-------------------------------------------------------------------------------
  83. ' Purpose:  Handles the display of a field from a recordset depending
  84. '            on its data type, attributes, and the current mode.
  85. ' Assumes:     That the recordset containing the field is open
  86. ' Inputs:   strFieldName     - the name of the field in the recordset
  87. '            avarLookup        - array of lookup values
  88. '-------------------------------------------------------------------------------
  89.  
  90. Function ShowField(strFieldName, avarLookup)
  91.     Dim intRow
  92.     Dim strPartial
  93.     Dim strBool
  94.     Dim nPos
  95.     strFieldValue = ""
  96.     nPos=Instr(strFieldName,".")
  97.     Do While nPos > 0 
  98.         strFieldName= Mid (strFieldName, nPos+1)
  99.         nPos=Instr(strFieldName,".")
  100.     Loop 
  101.     If Not IsNull(avarLookup) Then
  102.         Response.Write "<TD BGCOLOR=White NOWRAP><FONT SIZE=-1>" 
  103.         For intRow = 0 to UBound(avarLookup, 2)
  104.             If ConvertNull(avarLookup(0, intRow)) = ConvertNull(rsCorpAdminIEGroup(strFieldName)) Then
  105.                 Response.Write Server.HTMLEncode(ConvertNull(avarLookup(1, intRow)))
  106.                 Exit For
  107.             End If
  108.         Next
  109.         Response.Write "</FONT></TD>"
  110.         Exit Function
  111.     End If
  112.     
  113.     Select Case rsCorpAdminIEGroup(strFieldName).Type
  114.         Case adBoolean, adUnsignedTinyInt                'Boolean
  115.             strBool = ""
  116.             If rsCorpAdminIEGroup(strFieldName) <> 0 Then
  117.                 strBool = "True"
  118.             Else
  119.                 strBool = "False"
  120.             End If
  121.             Response.Write "<TD BGCOLOR=White ><FONT SIZE=-1>" & strBool & "</FONT></TD>"
  122.             
  123.         Case adBinary, adVarBinary, adLongVarBinary        'Binary
  124.             Response.Write "<TD BGCOLOR=White ><FONT SIZE=-1>[Binary]</FONT></TD>"
  125.             
  126.         Case adLongVarChar, adLongVarWChar                'Memo
  127.             Response.Write "<TD BGCOLOR=White NOWRAP><FONT SIZE=-1>"
  128.             strPartial = Left(rsCorpAdminIEGroup(strFieldName), 50)            
  129.             If ConvertNull(strPartial) = "" Then
  130.                 Response.Write " "
  131.             Else
  132.                 Response.Write Server.HTMLEncode(strPartial)
  133.             End If
  134.             If rsCorpAdminIEGroup(strFieldName).ActualSize > 50 Then Response.Write "..."
  135.             Response.Write "</FONT></TD>"
  136.             
  137.         Case Else
  138.             Response.Write "<TD BGCOLOR=White ALIGN=Left NOWRAP><FONT SIZE=-1>"
  139.             If ConvertNull(rsCorpAdminIEGroup(strFieldName)) = "" Then
  140.                 Response.Write " "
  141.             Else
  142.                 ' Check for special field types
  143.                 Select Case UCase(Left(rsCorpAdminIEGroup(strFieldName).Name, 4))
  144.                     Case "URL_"
  145.                         Response.Write "<A HREF=" & QuotedString(rsCorpAdminIEGroup(strFieldName)) & ">"
  146.                         Response.Write Server.HTMLEncode(ConvertNull(rsCorpAdminIEGroup(strFieldName)))
  147.                         Response.Write "</A>"
  148.                     Case Else
  149.                         If IsURL(rsCorpAdminIEGroup(strFieldName)) Then
  150.                             Response.Write "<A HREF=" & QuotedString(rsCorpAdminIEGroup(strFieldName)) & ">"
  151.                             Response.Write Server.HTMLEncode(ConvertNull(rsCorpAdminIEGroup(strFieldName)))
  152.                             Response.Write "</A>"
  153.                         Else
  154.                             Response.Write Server.HTMLEncode(ConvertNull(rsCorpAdminIEGroup(strFieldName)))
  155.                         End If
  156.                 End Select
  157.             End If
  158.             Response.Write "</FONT></TD>"
  159.     End Select
  160. End Function
  161.  
  162. </SCRIPT>
  163.  
  164. <HTML>
  165. <HEAD>
  166.     <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev">
  167.     <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
  168.     <META NAME="Keywords" CONTENT="Microsoft Data Form, IEAK CorpAdmin List">
  169.     <TITLE>IEAK CorpAdmin List</TITLE>
  170. </HEAD>
  171.  
  172. <!--------------------------- Formatting Section ------------------------------>
  173.  
  174. <BASEFONT FACE="Arial, Helvetica, sans-serif">
  175. <LINK REL=STYLESHEET HREF="./Stylesheets/Grid/Style2.css">
  176. <BODY BACKGROUND="./Images/Grid/Background/Back2.jpg" BGCOLOR=White>
  177.  
  178. <!---------------------------- Lookups Section ------------------------------->
  179.  
  180. <!---------------------------- Heading Section ------------------------------->
  181.  
  182. <% Response.Write "<FORM ACTION=CorpAdminForm.asp METHOD=""POST"">" %>
  183. <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  184.     <TR>
  185.         <TH NOWRAP BGCOLOR=Silver ALIGN=Left BACKGROUND="./Images/Grid/Navigation/Nav1.jpg" >
  186.             <FONT SIZE=6> IEAK CorpAdmin</FONT>
  187.         </TH>
  188.         <TD BGCOLOR=Silver VALIGN=Middle ALIGN=Right WIDTH=100% BACKGROUND="./Images/Grid/Navigation/Nav1.jpg">
  189.             <INPUT TYPE="Hidden" NAME="FormMode" VALUE="Edit">
  190.              <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="Form View"> 
  191.         </TD>
  192.     </TR>
  193.     <TR>
  194.         <TD BGCOLOR=#FFFFCC COLSPAN=3>
  195.             <FONT SIZE=-1>  
  196.             <% 
  197.             If IsEmpty(Session("rsCorpAdminIEGroup_Filter")) Or Session("rsCorpAdminIEGroup_Filter")="" Then
  198.                 Response.Write "Current Filter: None<BR>"
  199.             Else
  200.                 Response.Write "Current Filter: " & Session("rsCorpAdminIEGroup_FilterDisplay") & "<BR>"
  201.             End If 
  202.             %>
  203.             </FONT>
  204.         </TD>
  205.     </TR></TABLE>
  206. </FORM>
  207.  
  208. <!----------------------------- List Section --------------------------------->
  209.  
  210. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100% >
  211. <TR>
  212. <TD WIDTH=20> </TD>
  213. <TD>
  214. <TABLE CELLSPACING=1 CELLPADDING=1 BORDER=0 WIDTH=100% >
  215.     <TR BGCOLOR=SILVER VALIGN=TOP>
  216.         <TD ALIGN=Center><FONT SIZE=-1> # </FONT></TD>
  217.         <TD ALIGN=Left><FONT SIZE=-1><B>GroupID</B></FONT></TD>
  218.         <TD ALIGN=Left><FONT SIZE=-1><B>GroupName</B></FONT></TD>
  219.         <TD ALIGN=Left><FONT SIZE=-1><B>INSFile</B></FONT></TD>
  220.     </TR>
  221.  
  222. <!--METADATA TYPE="DesignerControl" startspan
  223.     <OBJECT ID="rsCorpAdminIEGroup" WIDTH=151 HEIGHT=24
  224.         CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  225.         <PARAM NAME="BarAlignment" VALUE="0">
  226.            <PARAM NAME="PageSize" VALUE="10">
  227.         <PARAM Name="RangeType" Value="2">
  228.         <PARAM Name="DataConnection" Value="DataConn">
  229.         <PARAM Name="CommandType" Value="0">
  230.         <PARAM Name="CommandText" Value="SELECT `GroupID`, `GroupName`, `INSFile` FROM `IEGroup`">
  231.         <PARAM Name="CursorType" Value="1">
  232.         <PARAM Name="LockType" Value="3">
  233.         <PARAM Name="CacheRecordset" Value="1">
  234.     </OBJECT>
  235. -->
  236.  
  237. <%
  238. fHideNavBar = False
  239. fHideNumber = False
  240. fHideRequery = False
  241. fHideRule = False
  242. stQueryString = ""
  243. fEmptyRecordset = False
  244. fFirstPass = True
  245. fNeedRecordset = False
  246. fNoRecordset = False
  247. tBarAlignment = "Left"
  248. tHeaderName = "rsCorpAdminIEGroup"
  249. tPageSize = 10
  250. tPagingMove = ""
  251. tRangeType = "Table"
  252. tRecordsProcessed = 0
  253. tPrevAbsolutePage = 0
  254. intCurPos = 0
  255. intNewPos = 0
  256. fSupportsBookmarks = True
  257. fMoveAbsolute = False
  258.  
  259. If Not IsEmpty(Request("rsCorpAdminIEGroup_PagingMove")) Then
  260.     tPagingMove = Trim(Request("rsCorpAdminIEGroup_PagingMove"))
  261. End If
  262.  
  263. If IsEmpty(Session("rsCorpAdminIEGroup_Recordset")) Then
  264.     fNeedRecordset = True
  265. Else
  266.     If Session("rsCorpAdminIEGroup_Recordset") Is Nothing Then
  267.         fNeedRecordset = True
  268.     Else
  269.         Set rsCorpAdminIEGroup = Session("rsCorpAdminIEGroup_Recordset")
  270.     End If
  271. End If
  272.  
  273. If fNeedRecordset Then
  274.     Set DataConn = Server.CreateObject("ADODB.Connection")
  275.     DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
  276.     DataConn.CommandTimeout = Session("DataConn_CommandTimeout")
  277.     DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword")
  278.     Set cmdTemp = Server.CreateObject("ADODB.Command")
  279.     Set rsCorpAdminIEGroup = Server.CreateObject("ADODB.Recordset")
  280.     cmdTemp.CommandText = "SELECT `GroupID`, `GroupName`, `INSFile` FROM `IEGroup`"
  281.     cmdTemp.CommandType = 1
  282.     Set cmdTemp.ActiveConnection = DataConn
  283.     rsCorpAdminIEGroup.Open cmdTemp, , 1, 3
  284. End If
  285. On Error Resume Next
  286. If rsCorpAdminIEGroup.BOF And rsCorpAdminIEGroup.EOF Then fEmptyRecordset = True
  287. On Error Goto 0
  288. If Err Then fEmptyRecordset = True
  289. If fNeedRecordset Then
  290.     Set Session("rsCorpAdminIEGroup_Recordset") = rsCorpAdminIEGroup
  291. End If
  292. rsCorpAdminIEGroup.PageSize = tPageSize
  293. fSupportsBookmarks = rsCorpAdminIEGroup.Supports(8192)
  294.  
  295. If Not IsEmpty(Session("rsCorpAdminIEGroup_Filter")) And Not fEmptyRecordset Then
  296.     rsCorpAdminIEGroup.Filter = Session("rsCorpAdminIEGroup_Filter")
  297.     If rsCorpAdminIEGroup.BOF And rsCorpAdminIEGroup.EOF Then fEmptyRecordset = True
  298. End If
  299.  
  300. If IsEmpty(Session("rsCorpAdminIEGroup_PageSize")) Then Session("rsCorpAdminIEGroup_PageSize") = tPageSize
  301. If IsEmpty(Session("rsCorpAdminIEGroup_AbsolutePage")) Then Session("rsCorpAdminIEGroup_AbsolutePage") = 1
  302.  
  303. If Session("rsCorpAdminIEGroup_PageSize") <> tPageSize Then
  304.     tCurRec = ((Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * Session("rsCorpAdminIEGroup_PageSize")) + 1
  305.     tNewPage = Int(tCurRec / tPageSize)
  306.     If tCurRec Mod tPageSize <> 0 Then
  307.         tNewPage = tNewPage + 1
  308.     End If
  309.     If tNewPage = 0 Then tNewPage = 1
  310.     Session("rsCorpAdminIEGroup_PageSize") = tPageSize
  311.     Session("rsCorpAdminIEGroup_AbsolutePage") = tNewPage
  312. End If
  313.  
  314. If fEmptyRecordset Then
  315.     fHideNavBar = True
  316.     fHideRule = True
  317. Else
  318.     tPrevAbsolutePage = Session("rsCorpAdminIEGroup_AbsolutePage")
  319.     Select Case tPagingMove
  320.         Case ""
  321.             fMoveAbsolute = True
  322.         Case "Requery"
  323.             rsCorpAdminIEGroup.Requery
  324.             fMoveAbsolute = True
  325.         Case "<<"
  326.             Session("rsCorpAdminIEGroup_AbsolutePage") = 1
  327.         Case "<"
  328.             If Session("rsCorpAdminIEGroup_AbsolutePage") > 1 Then
  329.                 Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") - 1
  330.             End If
  331.         Case ">"
  332.             If Not rsCorpAdminIEGroup.EOF Then
  333.                 Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") + 1
  334.             End If
  335.         Case ">>"
  336.             If fSupportsBookmarks Then
  337.                 Session("rsCorpAdminIEGroup_AbsolutePage") = rsCorpAdminIEGroup.PageCount
  338.             End If
  339.     End Select
  340.     Do
  341.         If fSupportsBookmarks Then
  342.             rsCorpAdminIEGroup.AbsolutePage = Session("rsCorpAdminIEGroup_AbsolutePage")
  343.         Else
  344.             If fNeedRecordset Or fMoveAbsolute Or rsCorpAdminIEGroup.EOF Then
  345.                 rsCorpAdminIEGroup.MoveFirst
  346.                 rsCorpAdminIEGroup.Move (Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * tPageSize
  347.             Else
  348.                 intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize
  349.                 intNewPos = ((Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * tPageSize) + 1
  350.                 rsCorpAdminIEGroup.Move intNewPos - intCurPos
  351.             End If
  352.             If rsCorpAdminIEGroup.BOF Then rsCorpAdminIEGroup.MoveNext
  353.         End If
  354.         If Not rsCorpAdminIEGroup.EOF Then Exit Do
  355.         Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") - 1
  356.     Loop
  357. End If
  358.  
  359. Do
  360.     If fEmptyRecordset Then Exit Do
  361.     If tRecordsProcessed = tPageSize Then Exit Do
  362.     If Not fFirstPass Then
  363.         rsCorpAdminIEGroup.MoveNext
  364.     Else
  365.         fFirstPass = False
  366.     End If
  367.     If rsCorpAdminIEGroup.EOF Then Exit Do
  368.     tRecordsProcessed = tRecordsProcessed + 1
  369. %>
  370. <!--METADATA TYPE="DesignerControl" endspan-->
  371.  
  372.     <TR VALIGN=TOP>
  373.         <TD BGCOLOR=White><FONT SIZE=-1>
  374.         <%
  375.         If tPageSize > 0 Then
  376.             tCurRec = ((Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * tPageSize) + tRecordsProcessed
  377.         Else
  378.             tRecordsProcessed = tRecordsProcessed + 1
  379.             tCurRec = tRecordsProcessed
  380.         End If
  381.         Response.Write "<A HREF=" & QuotedString("CorpAdminAction.asp?Bookmark=" & tCurRec & "&DataAction=Find") & ">" & tCurRec & "</A>"
  382.         %>
  383.  
  384.         </FONT></TD>
  385.         <%
  386.         ShowField "GroupID", Null
  387.         ShowField "GroupName", Null
  388.         ShowField "INSFile", Null
  389.         fHideRule = True
  390.         %>
  391.     </TR>
  392.  
  393. <!--METADATA TYPE="DesignerControl" startspan
  394.     <OBJECT ID="DataRangeFtr1" WIDTH=151 HEIGHT=24
  395.         CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  396.     </OBJECT>
  397. -->
  398. <%
  399. Loop
  400. If tRangeType = "Table" Then Response.Write "</TABLE>"
  401. If tPageSize > 0 Then
  402.     If Not fHideRule Then Response.Write "<HR>"
  403.     If Not fHideNavBar Then
  404.         %>
  405.         <TABLE WIDTH=100% >
  406.         <TR>
  407.             <TD WIDTH=100% >
  408.                 <P ALIGN=<%= tBarAlignment %> >
  409.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  410.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  411.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  412.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  413.                     <% If fSupportsBookmarks Then %>
  414.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  415.                     <% End If %>
  416.                     <% If Not fHideRequery Then %>
  417.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  418.                     <% End If %>
  419.                 </FORM>
  420.                 </P>
  421.             </TD>
  422.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  423.                 <FONT SIZE=2>
  424.                 <%
  425.                 If Not fHideNumber Then
  426.                     If tPageSize > 1 Then
  427.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  428.                     Else
  429.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  430.                     End If
  431.                 End If
  432.                 %>
  433.                 </FONT>
  434.             </TD>
  435.         </TR>
  436.         </TABLE>
  437.     <%
  438.     End If
  439. End If
  440. %>
  441. <!--METADATA TYPE="DesignerControl" endspan-->
  442.  
  443. <!---------------------------- Footer Section -------------------------------->
  444.  
  445. <% 
  446. ' TEMP: cache here until CacheRecordset property is implemented in
  447. '         data range
  448. If fNeedRecordset Then
  449.     Set Session("rsCorpAdminIEGroup_Recordset") = rsCorpAdminIEGroup
  450. End If 
  451. %>
  452.  
  453. </TD></TR></TABLE>
  454. </BODY>
  455. </HTML>
  456.  
  457.