<% main() Sub main() Dim Query, Content, Rs Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name" Set db = Server.CreateObject("ADODB.Connection") db.Open SQLConn Dim ii Set Content = OpenQuery(Query) Dim fso, fw, fr Set fso = CreateObject("Scripting.FileSystemObject") Set fr = fso.OpenTextFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & "system\fieldlist.txt", 1, True) Response.Write("") 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") bTableFalseFlg = 0 Response.Write("bcp sj4webdb.dbo." & name & " out " & name & ".csv /e " & name & "_in_err.txt /c /t ::: /r ;;;\n /S localhost /U sj3user /P sj3") Response.Write("
" & vbCrLf) Content.MoveNext Loop If Request("w") = "1" Then Set fw = fso.OpenTextFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & "system\fieldlist.txt", 2, True) fw.Write WriteRow End If %> <% If Request("w") = "1" Then %> <% Else %> <% End If %> <% Response.Write("現在のデータベースとインストールされているシステムが求めているデータベースの違い") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write(HtmlFalse) Response.write("
正しいテーブルデザイン現在のテーブルデザイン
") Response.write("
") Response.write("
") Response.Write("すべて") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write(HtmlAll) Response.write("
正しいテーブルデザイン現在のテーブルデザイン
") Response.Write("") Response.write(ScriptFalse1) Response.write("GO
") Response.write(ScriptFalse2) Response.write("GO
") Response.write(ScriptFalse3) Response.write("GO
") Response.write(ScriptFalse4) Response.write("GO
") Response.Write("
") %> <% End Sub %>