|
<%
Dim Query, Content, Rs
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name"
' Query = "SELECT name FROM sysobjects WHERE (status >= 0) ORDER BY name"
Set db = Server.CreateObject("ADODB.Connection")
db.Open SQLConn
Dim ii
Set Content = OpenQuery(Query)
Dim HtmlAll, HtmlRow, bFalse, HtmlFalse, WriteRow
Dim ScriptFalse1, ScriptFalse2, ScriptFalse3, ScriptFalse4
Dim bTableFalseFlg
bTableFalseFlg = 0
Do While Not(Content.BOF Or Content.EOF)
Dim name
name = Content.Fields("name")
Query = "SELECT * FROM " & name & " WHERE 1 = 0 "
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Query,db,3,1
Dim FieldsLists
FieldsLists = ""
For ii = 0 To Rs.Fields.Count - 1
If FieldsLists <> "" Then
FieldsLists = FieldsLists & ","
End If
FieldsLists = FieldsLists & Rs.Fields(ii).Name
Next
Response.Write("INSERT INTO " & name & "(")
Response.Write(FieldsLists)
Response.Write(")")
Response.Write(" " & vbCrLf) Response.Write("SELECT ") Response.Write(FieldsLists) Response.Write(" FROM " & name) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Content.MoveNext Loop %> |