http://otn.oracle.com/software/content.html 需注册
default.asp
-----------------------------------------------------------------
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>资料库连结</title>
</head>
<body>
<h3 align="left">资料库连结测试</h3>
<form method="post" action="connection.asp">
<p>资料库名称：<input type="text" name="database" size="20"></p>
<p>使用者名称：<input type="text" name="name" size="20"></p>
<p>使用者密码：<input type="password" name="password" size="20"></p>
<p><input type="submit" value="确定"> <input type="reset" value="取消"></p>
</form>
</body>
</html>
connection.asp
-----------------------------------------------------------------------------
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=big5">
<title>资料库连结结果</title>
</head>
<body>
<p>测试结果如下：</p>
<%
on error resume next
连结资料库
set orasession = createobject("oracleinprocserver.xorasession")
set oradatabase = orasession.dbopendatabase( _
request("database"),request("name")&"/"&request("password"),0)
if err.number > 0 then
判断是否发生错误
response.write "<h4>asp的错误控制</h4>"
response.write "asp 的错误来源:" & err.source & "<br>"
response.write "asp 的的错误代码:" & err.number & "<br>"
response.write "asp 的的错误说明:" & err.description & "<br>"
err.clear
response.write "<h4>oracle ole 的错误控制</h4>"
response.write "oracle ole的错误代码:" & orasession.lastservererr &"<br>"
response.write "oracle ole的错误说明:" & orasession.lastservererrtext &"<br>"
else
response.write "<center><h3>资料库成功连结</center>"
关闭资料库
oradatabase.close
free session物件
set orasession = nothing
end if
%>
</body>
</html>
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
