ASP连接Oracle数据库的例子
时间:2007-10-02 12:44:00
ASP * 页制作中连接Oracle数据库的例子,下面这段代码能够显示,当前用户所能够看到的所有的用户和表,有兴趣的, 可以把每个表的内容上。
<%
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>
标签:
0
投稿
猜你喜欢
科讯CMS 5.0 模板标签清单列表
2008-12-04 13:18:00
WEB页面工具语言XML支持的工具之运用
2008-05-29 10:55:00
网页设计求职全攻略
2008-07-09 18:56:00
提高MySQL查询效率的三个技巧
2009-02-11 13:19:00
SQL Server修改标识列方法 如自增列的批量化修改
2012-06-06 19:42:35
asp获取软件下载的真实地址!再谈获取Response.redirect重定向的URL!
2010-03-10 22:03:00
border-radius与圆角
2008-12-29 14:05:00
Mysql导入TXT文件
2012-01-05 19:01:10
PSD to CSS —— CSS布局实战新概念系列教程
2009-05-30 16:40:00
MySQL Create Database 创建数据库
2011-09-10 16:04:51
教你快速实现 MySQL查询结果的分页显示
2008-11-27 16:17:00
ASP的数据命名有什么规则吗?
2009-10-28 18:23:00
怎么让别人看不到网页源代码
2008-03-21 13:06:00
Frontpage轻松下载网页或站点
2007-10-22 13:14:00
Oracle 数据显示 横表转纵表
2009-07-26 08:57:00
保护MySQL数据库中重要数据的注意事项
2009-01-19 11:55:00
关于JS中的事件--Event对象
2008-03-16 14:22:00
用ASP和SQL实现基于Web日历源码
2010-04-24 15:52:00
用于分页的两个Asp函数
2007-09-07 10:09:00
ASP利用Google实现在线翻译功能
2010-03-07 17:28:00