82 lines
1.7 KiB
Plaintext
82 lines
1.7 KiB
Plaintext
<%@ LANGUAGE = VBScript %>
|
|
<% Option Explicit %>
|
|
|
|
<HTML>
|
|
|
|
<HEAD>
|
|
<TITLE>Query to Fill HTML Table (using ADO Table Component)</TITLE>
|
|
</HEAD>
|
|
|
|
|
|
<BODY bgcolor="white" topmargin="10" leftmargin="10">
|
|
|
|
<!-- Display Header -->
|
|
|
|
<font size="4" face="Arial, Helvetica">
|
|
<b>Query to Fill HTML Table</b>
|
|
</font>
|
|
<br>
|
|
<hr size="1" color="#000000">
|
|
|
|
<%
|
|
Dim oConn
|
|
Dim oRs
|
|
Dim curDir
|
|
Dim nIndex
|
|
Dim varTemp
|
|
dim nFieldCount
|
|
nFieldCount = 0
|
|
|
|
Set oConn = Server.CreateObject("ADODB.Connection")
|
|
|
|
oConn.Open "Provider=WMIOLEDB;Data Source=Root/CIMV2"
|
|
|
|
Set oRs = Server.CreateObject("ADODB.Recordset")
|
|
|
|
Set oRS.ActiveConnection = oConn
|
|
oRs.CursorType = 0
|
|
oRs.LockType = 1
|
|
|
|
oRs.Open "Win32_LogicalDisk", , ,,2
|
|
|
|
nFieldCOunt = oRs.Fields.Count
|
|
|
|
response.write "<TABLE border = 2>"
|
|
|
|
nIndex = 0
|
|
|
|
Response.Write "<b>"
|
|
while nIndex < nFieldCount
|
|
Response.write "<TD VAlign=top><b>" & CStr(oRs(nIndex).Name) & "</b></TD>"
|
|
nIndex = nIndex + 1
|
|
Wend
|
|
Response.Write "</b>"
|
|
|
|
Response.write "</tr>"
|
|
|
|
while( oRs.Eof <> True)
|
|
nIndex = 0
|
|
while nIndex < nFieldCount
|
|
varTemp = oRs(nIndex).Value
|
|
If( IsArray(varTemp) = True) then
|
|
Response.write "<TD VAlign=top>" & "*ARRAY" & "</TD>"
|
|
Else
|
|
If ( IsNull(varTemp) = True) then
|
|
Response.write "<TD VAlign=top>" & "**NULL" & "</TD>"
|
|
Else
|
|
Response.write "<TD VAlign=top>" & CStr(varTemp) & "</TD>"
|
|
End If
|
|
End If
|
|
nIndex = nIndex + 1
|
|
wend
|
|
oRs.MoveNext
|
|
Response.write "</tr>"
|
|
wend
|
|
|
|
Response.Write "<br>"
|
|
Response.Write " *ARRAY - Property is of type Array<br>"
|
|
Response.Write "**NULL - Property Value is NULL<br>"
|
|
|
|
|
|
%>
|