求一个ASP连接到ORACLE数据库的样本程序（200分）
-------------现有环境-----------------------------本人已经安装好如下环境：XP上的IISXP上已经装好了ORACLE客户端TNS...
-------------现有环境-----------------------------
本人已经安装好如下环境：
XP上的IIS
XP上已经装好了ORACLE 客户端
TNSNAMES为：orclcong
通过SQLPLUS到远程数据库的连接串为：conn tantan/oracle@orclcong
数据库服务器的信息如下：
数据库版本：10201
IP地址为：192.168.6.129
用户名和密码为：tantan/oracle
---------------最后实现----------------------------
最后的代码文件包含如下两个文件：
conn.asp 和index.asp
当运行index.asp时就显示出数据库种test表的记录。
试用期 二级(342) |这里有300多分，但是百度财富里居然只有120分。。郁闷死
百度什么时候把差的分还我哦 展开
本人已经安装好如下环境：
XP上的IIS
XP上已经装好了ORACLE 客户端
TNSNAMES为：orclcong
通过SQLPLUS到远程数据库的连接串为：conn tantan/oracle@orclcong
数据库服务器的信息如下：
数据库版本：10201
IP地址为：192.168.6.129
用户名和密码为：tantan/oracle
---------------最后实现----------------------------
最后的代码文件包含如下两个文件：
conn.asp 和index.asp
当运行index.asp时就显示出数据库种test表的记录。
试用期 二级(342) |这里有300多分，但是百度财富里居然只有120分。。郁闷死
百度什么时候把差的分还我哦 展开
2个回答
展开全部
1、连入SQL*Plus
以system/manager用户登录，
SQL> conn system/manager
创建新的用户：如user1/pass1，赋予connect,resource权限。
SQL> grant connect,resource to user1 identified by pass1;
SQL> conn user1/pass1
SQL> create table test(a date);
Oracle数据库的实例名，本例：oradb
Oracle用户名，本例：user1
Oracle主机字符串：oradb
tnsnames.ora文件中
ORADB =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 192.1.1.1)(PORT = 1521))
)
(CONNECT_DATA =
(SERVICE_NAME = oradb)
)
)
2、在IIS默认WWW目录下创建test.asp，用notebook编辑，输入以下代码
<%
set conn=server.createobject("adodb.connection")
dns="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=user1;Password=pass1;Data Source=oradb"
conn.Open dns
SQL="insert into test(a) values(sysdate)"
set rs=conn.execute(SQL)
set rs=nothing
conn.close
set conn=nothing
%>
<%
set conn=server.createobject("adodb.connection")
dns="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=user1;Password=pass1;Data Source=oradb"
conn.Open dns
SQL="select to_char(a,'hh24:mi:ss') from test"
set rs=conn.execute(SQL)
do while (not rs.eof)
%>
<table border=1>
<tr><td><%=rs.fields(0).value%></font></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
以system/manager用户登录，
SQL> conn system/manager
创建新的用户：如user1/pass1，赋予connect,resource权限。
SQL> grant connect,resource to user1 identified by pass1;
SQL> conn user1/pass1
SQL> create table test(a date);
Oracle数据库的实例名，本例：oradb
Oracle用户名，本例：user1
Oracle主机字符串：oradb
tnsnames.ora文件中
ORADB =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 192.1.1.1)(PORT = 1521))
)
(CONNECT_DATA =
(SERVICE_NAME = oradb)
)
)
2、在IIS默认WWW目录下创建test.asp，用notebook编辑，输入以下代码
<%
set conn=server.createobject("adodb.connection")
dns="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=user1;Password=pass1;Data Source=oradb"
conn.Open dns
SQL="insert into test(a) values(sysdate)"
set rs=conn.execute(SQL)
set rs=nothing
conn.close
set conn=nothing
%>
<%
set conn=server.createobject("adodb.connection")
dns="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=user1;Password=pass1;Data Source=oradb"
conn.Open dns
SQL="select to_char(a,'hh24:mi:ss') from test"
set rs=conn.execute(SQL)
do while (not rs.eof)
%>
<table border=1>
<tr><td><%=rs.fields(0).value%></font></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
参考资料： http://topic.csdn.net/t/20020708/16/858756.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
IP地址为：192.168.6.129，这个是静态IP吗？配置TNSNAMES时端口号是多少？
我这里不能访问这个IP，既然你的本机可以访问这个IP，并且TNSNAMES已经测试成功，那我给你个客户端的解决方案吧。
请制作以下两个文件，登录后输入【select * from test t】即可查询到数据，应该没问题，不通hi我
----------------------------------------
global.asa
<OBJECT RUNAT="Server" SCOPE="Application" ID="OraSession" PROGID="OracleInProcServer.XOraSession">
</OBJECT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
'Option Explicit
Sub Application_OnStart()
OraSession.CreateDatabasePool 2, 40, 200, "orclcong", "tantan/oracle", 0
End Sub
Sub Session_OnStart()
End Sub
Sub Session_OnEnd()
End Sub
Sub Application_OnEnd()
OraSession.DestroyDatabasePool
End Sub
</SCRIPT>
----------------------------------------
index.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>华升系统数据查询</title>
</head>
<body bgcolor="669966">
<table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF">
<form name="name" action="<%=Request.ServerVariables("Path_Info")%>" method="post">
<%SQL = Request("SQL")%>
<tr bgcolor="#EEEEEE">
<td width="30">SQL:</td>
<td><textarea name="SQL" cols="120" rows="3"><%=SQL%></textarea></td>
<td><input type="submit" value="查询"></td>
<td width="100%"></td>
</tr>
</form>
</table>
<hr>
<%
If SQL<>"" Then
Set conn = OraSession.GetDatabaseFromPool(10)
Set rs = conn.CreateDynaset(SQL, 12)
Set Cols= rs.Fields
%>
<table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<% For i = 0 to Cols.Count - 1 %>
<td bgcolor="CCFFCC"><b><% = Cols(i).Name %><b></td>
<% Next %>
</tr>
<% while NOT rs.EOF %>
<tr>
<% For x = 0 to Cols.Count - 1 %>
<td>
<%
if isnull(Cols(x)) then
response.write(" ")
else
response.write Cols(x)
end if
%>
</td>
<% Next %>
</tr>
<% rs.MoveNext %>
<% Wend %>
</table>
<%
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</body>
</html>
----------------------------------------
我这里不能访问这个IP，既然你的本机可以访问这个IP，并且TNSNAMES已经测试成功，那我给你个客户端的解决方案吧。
请制作以下两个文件，登录后输入【select * from test t】即可查询到数据，应该没问题，不通hi我
----------------------------------------
global.asa
<OBJECT RUNAT="Server" SCOPE="Application" ID="OraSession" PROGID="OracleInProcServer.XOraSession">
</OBJECT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
'Option Explicit
Sub Application_OnStart()
OraSession.CreateDatabasePool 2, 40, 200, "orclcong", "tantan/oracle", 0
End Sub
Sub Session_OnStart()
End Sub
Sub Session_OnEnd()
End Sub
Sub Application_OnEnd()
OraSession.DestroyDatabasePool
End Sub
</SCRIPT>
----------------------------------------
index.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>华升系统数据查询</title>
</head>
<body bgcolor="669966">
<table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF">
<form name="name" action="<%=Request.ServerVariables("Path_Info")%>" method="post">
<%SQL = Request("SQL")%>
<tr bgcolor="#EEEEEE">
<td width="30">SQL:</td>
<td><textarea name="SQL" cols="120" rows="3"><%=SQL%></textarea></td>
<td><input type="submit" value="查询"></td>
<td width="100%"></td>
</tr>
</form>
</table>
<hr>
<%
If SQL<>"" Then
Set conn = OraSession.GetDatabaseFromPool(10)
Set rs = conn.CreateDynaset(SQL, 12)
Set Cols= rs.Fields
%>
<table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<% For i = 0 to Cols.Count - 1 %>
<td bgcolor="CCFFCC"><b><% = Cols(i).Name %><b></td>
<% Next %>
</tr>
<% while NOT rs.EOF %>
<tr>
<% For x = 0 to Cols.Count - 1 %>
<td>
<%
if isnull(Cols(x)) then
response.write(" ")
else
response.write Cols(x)
end if
%>
</td>
<% Next %>
</tr>
<% rs.MoveNext %>
<% Wend %>
</table>
<%
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</body>
</html>
----------------------------------------
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
