<!-- #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
%>