こんなページを作っておくとデバッグ時に有効。 <% 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>
