<%
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) & "')"
If xtypes(ii) = "P" Then
Query = Query & " AND (name LIKE '[0-9A-Z][0-9A-Z][0-9A-Z]%')"
Else
Query = Query & " AND (name LIKE '___[0-9A-Z][0-9A-Z][0-9A-Z]%')"
End If
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 = "| " & tmp2 & " | " & name & " |
"
If bFalse = 1 Then
' If 1 = 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
%>
<% If Request("w") = "1" Then %>
<% Else %>
<% End If %>
<%
Response.Write("")
Response.Write("")
Response.Write("| 正しいオブジェクトデザイン | ")
Response.Write("現在のオブジェクトデザイン | ")
Response.Write("
")
Response.Write(HtmlFalse)
Response.write("
")
If HtmlFalse = "" Then
Response.Write("問題ありません")
End If
%>
<%
End Sub
%>