<%
を追加します
。
薄暗い objOraSession、objOraDb
ディム strDbUser、strDbPwd、strDbConn
CallConnectDB()
サブコネクトDB()
'データベースに接続します
エラー時は次へ再開
strDbUser = "tmpUser" '接続ユーザー名
strDbPwd = "rt45ps1w" 'ユーザーパスワード
strDbConn = "sun450" '接続文字列
Set objOraSession = Server.CreateObject("OracleInProcServer.XOraSession")
objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0) を設定します。
Err.Number>0 の場合
Response.Write "<font color=red>エラー:" & err.description & "</font>"
応答.終了
次の場合に終了
エンドサブ
サブエンドDB()
objOraDB = なしを設定します
objOraSession = なしを設定します
エンドサブ
関数 getTableList(str)
ディム strSql、strTmp
薄暗いオブジェクト
strSql = "at.table_name を tname、au.username を uname として all_tables at,all_users au から選択します。au Where au.username=at.owner order by au.username"
objRs = objOraDb.DbCreateDynaset(strSql,0) を設定します。
objRs.Eof ではない間
strA = objRs("uname") & "." & objRs("tname")
str=strA の場合
strTmp = strTmp & "<選択されたオプション>" & strA & "</option>"
それ以外
strTmp = strTmp & "<オプション>" & strA & "</option>"
次の場合に終了
objRs.MoveNext
ウェン
objRs = なしを設定します
getTableList = strTmp
終了機能
%>
<form name=form1 action="index.asp" method=POST target="main">
<table width="100%" border=0 align="center">
<tr><td>
すべてのテーブル: <select name="tb">
<%=getTableList(tblName)%>
</選択>
<input type=hidden name="submitc" value="view">
<input type=submit name="submit" value="データの表示"> <font color=red>(<%=strDbUser & "/" & strDbPwd & "@" & strDbConn%>)</font>
</td></tr>
</テーブル>
</form>