111 lines
3.0 KiB
Plaintext
111 lines
3.0 KiB
Plaintext
|
<HTML>
|
|||
|
|
<HEAD>
|
|||
|
|
<TITLE>Document</TITLE>
|
|||
|
|
</HEAD>
|
|||
|
|
|
|||
|
|
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
|
|||
|
|
<FORM ACTION=DynamicTableResults.asp METHOD=Post>
|
|||
|
|
<TABLE BORDER='1'>
|
|||
|
|
<TR>
|
|||
|
|
<TD BGCOLOR=#EEEEEE COLSPAN=3>
|
|||
|
|
Get table Data and Column Headers From A Table
|
|||
|
|
</TD>
|
|||
|
|
</TR>
|
|||
|
|
<TR>
|
|||
|
|
<TD>Enter The Table Name:</TD>
|
|||
|
|
<TD><INPUT TYPE=Text Name=Table SIZE=25></TD>
|
|||
|
|
</TR>
|
|||
|
|
<TR>
|
|||
|
|
<TD>Enter The DSN:</TD>
|
|||
|
|
<TD><INPUT TYPE=Text NAME=DSN SIZE=25></TD>
|
|||
|
|
</TR>
|
|||
|
|
</TABLE><BR>
|
|||
|
|
<INPUT TYPE=Submit VALUE=Submit> <INPUT TYPE=Reset VALUE=Reset>
|
|||
|
|
</FORM>
|
|||
|
|
</BODY>
|
|||
|
|
</HTML>
|
|||
|
|
|
|||
|
|
|
|||
|
|
Here is the code that does all the work.
|
|||
|
|
|
|||
|
|
<%@ LANGUAGE="VBSCRIPT" %>
|
|||
|
|
<%
|
|||
|
|
Option Explicit
|
|||
|
|
'---------------------- WEB SITE: -----------------------
|
|||
|
|
' File Name: DynamicTableResults.asp
|
|||
|
|
'
|
|||
|
|
' Purpose: This will take a table name from DynamicTable.asp
|
|||
|
|
' (you must specify the DSN also)
|
|||
|
|
' and list all the data and table column names.
|
|||
|
|
' Good to see what's in a table when you forgot or don't know.
|
|||
|
|
'Dim and Construct the SQL Query notice the request.form entry
|
|||
|
|
'To get a table name entered by the user
|
|||
|
|
Dim strSQL
|
|||
|
|
strSQL = "SELECT * FROM " & Request.Form("Table") & ""
|
|||
|
|
|
|||
|
|
'This will display the SQL string on the page,
|
|||
|
|
'i use it to check for errors
|
|||
|
|
Response.Write strSQL
|
|||
|
|
|
|||
|
|
'Dim and create a connection object, notice the request.form to get
|
|||
|
|
'a DSN entered by the user in the objConn.Open line. You must have
|
|||
|
|
'a DSN created for the database on your machine and know it's name.
|
|||
|
|
Dim objConn
|
|||
|
|
Set objConn = Server.CreateObject("ADODB.Connection")
|
|||
|
|
objConn.Open "DSN=" & Request.Form("DSN") & ""
|
|||
|
|
|
|||
|
|
'Dim and create a recordset object
|
|||
|
|
Dim objRS
|
|||
|
|
Set objRS = Server.CreateObject("ADODB.Recordset")
|
|||
|
|
objRS.Open strSQL, objConn
|
|||
|
|
|
|||
|
|
Dim fCount, i
|
|||
|
|
fCount = objRS.Fields.Count - 1
|
|||
|
|
|
|||
|
|
Response.Write "<table border=1><tr bgcolor='#EEEEEE'>"
|
|||
|
|
|
|||
|
|
for i=0 to fCount
|
|||
|
|
Response.Write "<th>" & objRS(i).name & "</th>"
|
|||
|
|
next
|
|||
|
|
Response.Write "</tr>"
|
|||
|
|
While Not objRS.EOF
|
|||
|
|
Response.Write "<tr>"
|
|||
|
|
for i=0 to fCount
|
|||
|
|
Response.Write "<td> " & objRS(i).value & "</td>"
|
|||
|
|
next
|
|||
|
|
Response.Write "</tr>"
|
|||
|
|
objRS.MoveNext
|
|||
|
|
Wend
|
|||
|
|
Response.Write "</table>"
|
|||
|
|
|
|||
|
|
'Close and dereference
|
|||
|
|
objRS.Close
|
|||
|
|
Set objRS = Nothing
|
|||
|
|
objConn.Close
|
|||
|
|
Set objConn = Nothing
|
|||
|
|
|
|||
|
|
'-----
|
|||
|
|
' Begin HTML output
|
|||
|
|
%>
|
|||
|
|
|
|||
|
|
<HTML>
|
|||
|
|
<HEAD>
|
|||
|
|
<TITLE>Untitled</TITLE>
|
|||
|
|
</HEAD>
|
|||
|
|
|
|||
|
|
<BODY>
|
|||
|
|
|
|||
|
|
</BODY>
|
|||
|
|
</HTML>
|
|||
|
|
<%
|
|||
|
|
'----------------------------------------------------------------------
|
|||
|
|
' End HTML Output
|
|||
|
|
'----------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
'----------------------------------------------------------------------
|
|||
|
|
' All ASP post processing code goes here, as well as
|
|||
|
|
' sub routines and functions
|
|||
|
|
'----------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
|
|||
|
|
%>
|