<% 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>
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
