rothen ecotronics Bern: ASP-Skript "ASP nützliche Routinen: Zweidimensionalen Array mit beliebig vielen Spalten als Tabelle anzeigen"

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next

'*****************************************************************
'Variablendeklarationen
Dim arrvar(3,3)

'*****************************************************************
'Variableninitialisierung
arrvar(0,0) = 3
arrvar(1,0) = 2
arrvar(2,0) = 1

arrvar(0,1) = "A"
arrvar(1,1) = "D"
arrvar(2,1) = "C"

arrvar(0,2) = DateValue("1.7.61")
arrvar(1,2) = DateValue("20.6.59")
arrvar(2,2) = DateValue("1.1.98")

'*****************************************************************
'Lokale Prozeduren und Funktionen

'Zeigt zweidimensionalen Array mit beliebig vielen Spalten als Tabelle an
Sub procshowarrayastable(ByVal arrvar)
  Dim intcounter
  Dim intinnercounter

  Response.Write("<table border=""1"">" & vbCrLf)
  For intcounter = 0 to UBound(arrvar,1) - 1
    Response.Write("  <tr>" & vbCrLf)
    For intinnercounter = 0 to UBound(arrvar,2) - 1
      Response.Write("    <td>" & arrvar(intcounter,intinnercounter) & "</td>" & vbCrLf)
    Next
    Response.Write("  </tr>" & vbCrLf)
  Next
  Response.Write("</table>" & vbCrLf)
End Sub

'*****************************************************************
'Anfang <html>
%>

<html>
  <head>
    <title>ASP nützliche Routinen: Zweidimensionalen Array mit beliebig vielen Spalten als Tabelle anzeigen</title>
    <meta name="description" content="" />
    <meta name="keywords" content="" />

  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
Response.Write("<p><b>Zweidimensionalen Array mit beliebig vielen Spalten als Tabelle anzeigen</b></p>")
call procshowarrayastable(arrvar)
%>

</body>
</html>

Demo: beispiele/070arraytotable.asp

Letzter Update: 26.12.2021 17:48

Zurück zur Liste mit ASP-Beispielen auf www.ecotronics.ch