ASP动态网页制作中连接Oracle数据库的例子

时间:2008-10-07 12:14:08  来源:第二电脑网上收集  作者:

  第二电脑网导读:() '连接数据库  On Error Resume Next strDbUser  = "tmpUser"     '连接用户名 strDbPwd  = "rt45ps1w"    '用户密码 strDbConn = "sun450"       '连接字符串 Set objOraSession  = Server.Creat...
  正文:

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

<%
Dim objOraSession,objOraDb
Dim strDbUser,strDbPwd,strDbConn
Call ConnectDB()
Sub ConnectDB()
 '连接数据库
 On Error Resume Next
 strDbUser  = "tmpUser"     '连接用户名
 strDbPwd  = "rt45photoshop/ target=_blank class=infotextkey>ps1w"    '用户密码
 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/ target=_blank class=infotextkey>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>

ASP动态网页制作中连接Oracle数据库的例子》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/3242.html


关键字:

关于《ASP动态网页制作中连接Oracle数据库的例子》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td