asp连接数据库oracle
Dim rs
set rs = server.createObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open "select empno,ename,hiredate,sal from emp where deptno=10",conn
do while not rs.EOF
Response.write("<p>" & rs.fields("empno").value & " " & rs.fields("ename").value & " " & rs.fields("hiredate").value & " " & rs.fields("sal").value & "</p>")
rs.MoveNext
loop
rs.Close
