<%
'连接数据库
dim conn
dim connstr
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Driver={Microsoft ODBC for Oracle};server=mysw;uid=system;pwd=system;"
startime=timer()
%>
<!--#include file="common/conn.asp"-->
<HTML>
<TITLE>测试</TITLE>
<BODY>
<%
Conn.open Connstr
RS=Conn.Execute("SELECT * FROM CTXSYS.TEST")
Response.Write(RS("NAME"))
Set RS=nothing
Conn.Close
%>
</body>
</html>
<%
sql="select distinct product_kindnum from GSCOTT.product_info_table"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,connstr,1,1
do while not rs.eof
%>