在ASP中通过oo4o连接Oracle数据库的例子

熏衣草1995

熏衣草1995

2016-01-29 18:45

在ASP中通过oo4o连接Oracle数据库的例子,在ASP中通过oo4o连接Oracle数据库的例子
 

下面这段代码能够显示,当前用户所能够看到的所有的用户和表,有兴趣的, 可以把每个表的内容加上

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)

<%
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.Number0 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

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/) 
展开更多 50%)
分享

猜你喜欢

在ASP中通过oo4o连接Oracle数据库的例子

ASP
在ASP中通过oo4o连接Oracle数据库的例子

在JAVA中连接Oracle数据库(例子)

编程语言 网络编程
在JAVA中连接Oracle数据库(例子)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

在ASP中使用Oracle数据库

ASP
在ASP中使用Oracle数据库

3.3 在ASP中使用Oracle数据库

Web开发
3.3 在ASP中使用Oracle数据库

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

在ASP中使用Oracle数据库技巧

ASP
在ASP中使用Oracle数据库技巧

在Oracle中实现数据库的复制

编程语言 网络编程
在Oracle中实现数据库的复制

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

asp中对ip进行过滤限制函数

asp中对ip进行过滤限制函数

演绎精彩:两招实用远程控制技巧

演绎精彩:两招实用远程控制技巧
下拉加载更多内容 ↓