<!-- #include file="../include.asp" -->
<%
main()
Sub main()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="robots" content="all">
<title><% = AppTitle %></title>
</head>
<body onLoad="forceclose3()">
<% If Request("r") <> "1" THen %>
<% If Request("w") = "1" Then %>
以下のオブジェクトを削除しました。<br><br>
<% Else %>
以下のオブジェクトを削除する事が出来ます。<br><br>
<% End If %>
もしタイムアウトなどの理由により、この処理が正しく出来なかった場合は、<br>
<a href="deleteobjects.asp?r=1" target="_brank">ここ</a>をクリックし、<br>
新しく出てくるウィンドウのテキストをクエリアナライザに貼り付け、<br>
実行してください。<br>
<br>
それが問題なく終わったら、このウィンドウを閉じてください。<br>
インストール・バージョンアップを続行します。<br><br><br>
<% End If %>
<font size="1">
USE sj4webdb<br>
<%
Dim cmds
Dim Query, Content, Content1
Query = "SELECT parent_sysobjects.name AS parent, sysobjects.name, sysobjects.xtype, sysusers.name as owner"
Query = Query & " FROM sysobjects"
Query = Query & " LEFT OUTER JOIN sysusers ON sysobjects.uid = sysusers.uid"
Query = Query & " LEFT OUTER JOIN sysobjects parent_sysobjects ON sysobjects.parent_obj = parent_sysobjects.id"
Query = Query & " WHERE (sysobjects.name LIKE N'DF_T%' OR sysobjects.name LIKE N'FK_T%' OR sysobjects.name LIKE N'PK_T%' OR sysobjects.name LIKE N'S%' OR sysobjects.name LIKE N'GTR_%')"
Query = Query & " AND (sysobjects.name NOT LIKE N'sys%')"
Query = Query & " AND (sysobjects.xtype = N'D' OR sysobjects.xtype = N'F' OR sysobjects.xtype = N'PK' OR sysobjects.xtype = N'TR' OR sysobjects.xtype = N'P')"
Query = Query & " ORDER BY sysobjects.name"
Set db = Server.CreateObject("ADODB.Connection")
db.Open SQLConn
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim name, parent, cmd, xtype, owner
parent = Content.Fields("parent")
name = Content.Fields("name")
xtype = Content.Fields("xtype")
owner = Content.Fields("owner")
If xtype = "P " Then
cmd = "drop procedure " & owner & "." & name
ElseIf xtype = "TR" Then
cmd = "drop trigger " & owner & "." & name
Else
cmd = "ALTER TABLE " & owner & "." & parent & " DROP CONSTRAINT " & name
End If
If Request("w") = "1" Then
Set Content1 = OpenQuery(cmd)
End If
Response.Write(cmd)
Response.Write("<br>" & vbCrLf)
Content.MoveNext
Loop
%>
</font>
</body>
<SCRIPT LANGUAGE="JavaScript">
var busy=false
function forceclose3(){
<% If Request("w") = "1" Then %>
if(!busy){
busy=true
var w=window.window.open("","_top")
w.opener=window
w.close()
}
<% End If %>
}
</SCRIPT>
</html>
<%
End Sub
%>