< % Response.CharSet="gb2312" tblname=request("tb") Dim objOraSession,objOraDb Dim strDbUser,strDbPwd,strDbConn Call ConnectDB() Sub ConnectDB() '连接数据库 On Error Resume Next strDbUser = "liujincai" '连接用户名 strDbPwd = "ljc1001" '用户密码 strDbConn = "hp1" '连接字符串 Set objOraSession = Server.CreateObject("OracleInProcServer.XOraSession") Set objOraDB = objOraSession.OpenDatabase(strDbConn,strDbUser & "/" & strDbPwd,0) If Err.Number>0 then Response.Write "错误 ：" & err.description & "" 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")