下面这段代码能够显示，当前用户所能够看到的所有的用户和表，有兴趣的， 可以把每个表的内容上。
<%
Dim objOraSession,objOraDb
Dim strDbUser,strDbPwd,strDbConn
Call ConnectDB()
Sub ConnectDB()
'连接数据库
On Error Resume Next
strDbUser = \\"tmpUser\\" '连接用户名
strDbPwd = \\"rt45ps1w\\" '用户密码
strDbConn = \\"sun450\\" '连接字符串
Set objOraSession = Server.CreateObject(\\"OracleInProcServer.XOraSession\\")
Set objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & \\"/\\" & strDbPwd,0)
If Err.Number>0 then
Response.Write \\"<font color=red>错误 ：\\" & err.description & \\"</font>\\"
response.end
End if
End Sub
Sub EndDB()
Set objOraDB = Nothing
Set objOraSession = Nothing
End Sub
Function getTableList(str)
Dim strSql,strTmp
Dim objRs
strSql = \\"Select at.table_name as tname,au.username as uname from all_tables at,all_users au Where au.username=at.owner order by au.username\\"
Set objRs = objOraDb.DbCreateDynaset(strSql,0)
While Not objRs.Eof
strA = objRs(\\"uname\\") & \\".\\" & objRs(\\"tname\\")
If str=strA then
strTmp = strTmp & \\"<option selected>\\" & strA & \\"</option>\\"
Else
strTmp = strTmp & \\"<option>\\" & strA & \\"</option>\\"
End if
objRs.MoveNext
Wend
Set objRs = Nothing
getTableList = strTmp
End Function
%>
<form name=form1 action=\\"index.asp\\" method=POST target=\\"main\\">
<table width=\\"100%\\" border=0 align=\\"center\\">
<tr><td>
All Tables : <select name=\\"tb\\">
<%=getTableList(tblName)%>
</select>
<input type=hidden name=\\"submitc\\" value=\\"view\\">
<input type=submit name=\\"submit\\" value=\\"View Data\\"> <font color=red>(<%=strDbUser & \\"/\\" & strDbPwd & \\"@\\" & strDbConn%>)</font>
</td></tr>
</table>
</form>
站长排行
学院
新闻
专栏
盈利
如果你有站长界人事变动、重组并购、变革技术出现，以及产品投诉等重要新闻线索，请告诉我们，我们会给予特别关注。
0631-3653338
站长中国编辑部
站长中国24小时新闻热线： 13256307008
收藏本文
打印本文
告诉好友
投稿邮箱
