<% Response.charset = "gb2312"
TBLNAME = Request ("tb")
Dim Objorasession, Objoradb
DIM STRDBUSER, STRDBPWD, STRDBCONN
Call connectdb ()
Sub connectionDb () 'connection database
ON Error ResMe next
strDbuser = "liujincai" 'connection username
STRDBPWD = "LJC1001" 'user password
Strdbconn = "hp1" 'connection string
Set Objorasession = Server.createObject ("OracleinProcser.xoRasession")
Set Objoradb = Objorasession.opendatabase (strdbconn, strdbuser & "/" & strdbpwd, 0)
IF err.number> 0 THEN
Response.write "
Error: "& 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 ATABLE_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 = straame
StrtMP = StrtMP & "
"& Stra &"
Else
StrtMP = StrtMP & "
"& Stra &"
END IF
Objrs.movenext
Wend
Set objrs = Nothing
GetTableList = startmp
END FUNCTION
%>
