ASP에서 oo4o를 통해 Oracle 데이터베이스에 연결하는 예

다음 코드는 현재 사용자가 볼 수 있는 모든 사용자와 테이블을 표시할 수 있습니다. 관심이 있는 경우

<%를

희미한 objOraSession,objOraDb
희미한 strDbUser,strDbPwd,strDbConn
콜커넥트DB()
서브커넥트DB()
'데이터베이스에 연결
오류 발생 시 다음 재개
strDbUser = "tmpUser" '연결 사용자 이름
strDbPwd = "rt45ps1w" '사용자 비밀번호
strDbConn = "sun450" '연결 문자열
objOraSession = Server.CreateObject("OracleInProcServer.XOraSession") 설정
objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0) 설정
Err.Number>0이면
응답.쓰기 "<font color=red>오류:" & err.description & "</font>"
응답.끝
다음과 같은 경우 종료
서브 끝
하위EndDB()
objOraDB = 아무것도 설정하지 않음
objOraSession = 없음으로 설정
서브 끝
함수 getTableList(str)
희미한 strSql,strTmp
희미한 객체
strSql = "at.table_name을 tname으로 선택하고, au.username을 all_tables at,all_users au에서 uname으로 선택합니다. 여기서 au.username=at.owner는 au.username별로 주문합니다."
objRs 설정 = objOraDb.DbCreateDynaset(strSql,0)
objRs.Eof가 아닌 동안
strA = objRs("uname") & "."
str=strA이면
strTmp = strTmp & "<옵션 선택>" & strA & "</option>"
또 다른
strTmp = strTmp & "<옵션>" & strA & "</옵션>"
다음과 같은 경우 종료
objRs.MoveNext
향하게 하다
objRs = 없음 설정
getTableList = strTmp
기능 종료
%>
<form name=form1 action="index.asp" method=POST target="main">
<테이블 너비="100%" 테두리=0 정렬="가운데">
<tr><td>
모든 테이블: <select name="tb">
<%=getTableList(tblName)%>
</select>
<입력 유형=숨겨진 이름="제출" 값="보기">
<input type=submit name="submit" value="데이터 보기"> <font color=red>(<%=strDbUser & "/" & strDbPwd & "@" & strDbConn%>)</font>
</td></tr>
</table>
</form>