 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
下面这段代码能够显示，当前用户所能够看到的所有的用户和表，有爱好的， 可以把每个表的内容加上 <% 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.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" 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：在结果中搜索 下一教程: 常用EMAIL组件发送函数 您可以阅读与"在ASP中通过OO4O连接ORACLE数据库的例子"相关的教程: · 一个用asp+存取数据库的例子 · 解决使用ASP无法连接ORACLE 9I数据库的问题 · 介绍一个用ASP来压缩ACCESS数据库的例子 · 在ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP建立MYSQL数据库的连接 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
