asp oracle存储过程,asp使用存储过程连接oracle

我们已经讨论了如何在ASP中访问Oracle数据库，所有的SQL语句都可以嵌入在ASP网页中。如果在ASP中使用存储过程，将更能够更有效地处理数据。我建议读者除在ASP中嵌入SQL语句外，还应当使用PL/SQL存储过程。在Oracle数据库中创建存储过程已经超出了本文章的范围，在这里就不再进行介绍了。

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 "错误 ：" & 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

%>

all tables : ()