<!-- #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
Set db = Server.CreateObject("ADODB.Connection")
db.Open SQLConn
Dim ii
Dim fso, fw, fr
Set fso = CreateObject("Scripting.FileSystemObject")
Dim HtmlAll, HtmlRow, bFalse, HtmlFalse, WriteRow
Dim ScriptFalse1, ScriptFalse2, ScriptFalse3, ScriptFalse4
Dim bTableFalseFlg
Dim xtypes
xtypes = Array("D", "F", "P", "PK", "TR")
For ii = 0 To UBound(xtypes)
WriteRow = ""
Query = "SELECT name FROM sysobjects"
Query = Query & " WHERE (status >= 0)"
Query = Query & " AND (xtype = '" & xtypes(ii) & "')"
Query = Query & " AND (name <> 'DF__dtpropert__versi__278EDA44')"
Query = Query & " AND (name <> 'pk_dtproperties')"
Query = Query & " ORDER BY xtype, name"
Set Content = OpenQuery(Query)
Set fr = fso.OpenTextFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & "system\objectlist" & xtypes(ii) & ".txt", 1, True)
bTableFalseFlg = 0
Do While Not(Content.BOF Or Content.EOF)
Dim name , tmp2
name = Content.Fields("name")
bTableFalseFlg = 0
tmp2 = ""
bFalse = 0
If fr.AtEndOfStream = false Then
tmp2 = fr.ReadLine
End If
If tmp2 <> name Then
bFalse = 1
End If
HtmlRow = "<tr><td>" & tmp2 & "</td><td>" & name & "</td></tr>"
If bFalse = 1 Then
HtmlFalse = HtmlFalse & HtmlRow
End If
HtmlAll = HtmlAll & HtmlRow
WriteRow = WriteRow & name & vbCrLf
Content.MoveNext
Loop
If Request("w") = "1" Then
Set fw = fso.OpenTextFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & "system\objectlist" & xtypes(ii) & ".txt", 2, True)
fw.Write WriteRow
End If
Next
%>
<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 align=""center"">正しいオブジェクトデザイン</td>")
Response.Write("<td 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 align=""center"">正しいオブジェクトデザイン</td>")
Response.Write("<td align=""center"">現在のオブジェクトデザイン</td>")
Response.Write("</tr>")
Response.Write(HtmlAll)
Response.write("</table>")
%>
</body>
<%
End Sub
%>
</html>