该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

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")

If str=strA then

strTmp = strTmp & "" & strA & ""

Else

strTmp = strTmp & "" & strA & ""

End if

objRs.MoveNext

Wend

Set objRs = Nothing

getTableList = strTmp

End Function

% >

if tblname<>"" then

strSql = "Select * from " & tblname

Set Rs = objOraDb.DbCreateDynaset(strSql,0)

Response.Write "

"

for i=0 to rs.Fields.count-1

Response.Write "

" & rs.fields(i).name & ""

next

Response.Write "

"

While  Not Rs.Eof

Response.Write "

"

for i=0 to  rs.fields.count -1

Response.Write "

" & Rs.Fields(i).Value & ""

next

Response.Write "

"

Rs.MoveNext

Wend

Set Rs = Nothing

end if

% >

本文转载于:http://bbs.9te.cn