こんなページを作っておくとデバッグ時に有効。
<%
Dim CMD
Dim adoCmd ‘ADOオブジェクト
Dim commandText
Dim strMessageONOFF
CMD = Request("CMD")
Call main
Sub main()
‘on error resume next
If fncChkSession(1,"") <> 0 Then
‘不正の場合は終了
Exit Sub
End If
IF CMD="ON" THEN
commandText = "alter session set sql_trace=true"
strMessageONOFF =commandText & "を実行しました<BR>目的のページを実行後、必ずこのページに戻りOFFにして下さい<BR>OFFにしない場合、サーバーに負荷がかかり続けます<BR>"
ELSEIF CMD="OFF" THEN
commandText = "alter session set sql_trace=false"
strMessageONOFF =commandText & "を実行しました<BR><A href=""\localhost\c$\oracle\admin\ORCL\udump"">トレースファイル</A>を確認してください。<BR>"
ELSE
strMessageONOFF=""
END IF
IF strMessageONOFF <> "" THEN
Session(pcSconDBConn).Execute commandText
END IF
if err.number<>0 then
response.write("err!")
end if
End Sub
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja"><head><meta content="text/html; charset=Shift_JIS" http-equiv="content-type"><title></title></head><body>
<div style="position: absolute; width: 449px; height: 122px; top: 50px; left: 34px;">
<%=strMessageONOFF %>
<form method="get" action="sqltrace.asp" name="FORM">
<div style="text-align: center;"><input name="CMD" value="ON" type="radio">ONにする <input name="CMD" value="OFF" type="radio">OFFにする<br>
<br>
<br>
</div>
<div style="text-align: center;"><input type="submit"></div>
</form>
</div>
</body></html>