<!-- #include file="../include.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="robots" content="all">
<title><% = AppTitle %></title>
</head>
<%
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("<!--" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "system\fieldlist.txt" & "-->")
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("<br>" & 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
%>
<SCRIPT LANGUAGE="JavaScript">
var busy=false
function forceclose3(){
if(!busy){
busy=true
var w=window.window.open("","_top")
w.opener=window
w.close()
}
}
</SCRIPT>
<% If Request("w") = "1" Then %>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onLoad="forceclose3()">
<% Else %>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" topmargin="0" leftmargin="0" >
<% End If %>
<%
Response.Write("現在のデータベースとインストールされているシステムが求めているデータベースの違い")
Response.Write("<table border=""1"" style=""font-size: 12px;"">")
Response.Write("<tr>")
Response.Write("<td colspan=""6"" align=""center"">正しいテーブルデザイン</td>")
Response.Write("<td colspan=""6"" align=""center"">現在のテーブルデザイン</td>")
Response.Write("</tr>")
Response.Write(HtmlFalse)
Response.write("</table>")
Response.write("<br>")
Response.write("<br>")
Response.Write("すべて")
Response.Write("<table border=""1"" style=""font-size: 12px;color: #888888"">")
Response.Write("<tr>")
Response.Write("<td colspan=""6"" align=""center"">正しいテーブルデザイン</td>")
Response.Write("<td colspan=""6"" align=""center"">現在のテーブルデザイン</td>")
Response.Write("</tr>")
Response.Write(HtmlAll)
Response.write("</table>")
Response.Write("<font size=""1"">")
Response.write(ScriptFalse1)
Response.write("GO<br>")
Response.write(ScriptFalse2)
Response.write("GO<br>")
Response.write(ScriptFalse3)
Response.write("GO<br>")
Response.write(ScriptFalse4)
Response.write("GO<br>")
Response.Write("</font>")
%>
</body>
<%
End Sub
%>
</html>