下面这段代码能够显示，当前用户所能够看到的所有的用户和表，有兴趣的， 可以把每个表的内容加上
<%
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
收藏本文
打印本文
告诉好友
投稿邮箱
