[ホーム] -> [http://www2.fclabs.net/hizlab]

test-asp/oracle.asp

ソース

このソースをダウンロードする。 

<% Option Explicit %>
<% Response.Charset= "Shift_JIS" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
 "http://www.w3.org/TR/html4/strict.dtd">
<html>
  <head>
    <title>Oracle</title>
  </head>
  <body>
<%
  Dim oraSession, oraDatabase, oraDynaset
  Set oraSession  = Server.CreateObject("OracleInProcServer.XOraSession")
  Set oraDatabase = oraSession.OpenDatabase("inetdb", "www/www", 0)
  Set oraDynaset  = oraDatabase.CreateDynaset("SELECT * FROM INET_PROFILE ORDER BY CODE", 0)
%>
    <div align="center">
      <table border="1" cellspacing="1" cellpadding="1">
        <tr align="center">
          <th nowrap>コード</th>
          <th nowrap>名前</th>
          <th nowrap>E-Mail</th>
          <th nowrap>ペンネーム</th>
          <th nowrap>備考</th>
          <th nowrap>入力日</th>
        </tr>
        <%
          ' On Error Resume Next
          Do While Not oraDynaset.EOF
        %>
        <tr align="left">
          <td nowrap align="right"><% = oraDynaset("CODE") %></td>
          <td nowrap><% = oraDynaset("NAME"     ) %></td>
          <td nowrap><% = oraDynaset("EMAIL"    ) %></td>
          <td nowrap><% = oraDynaset("PSEUDONYM") %></td>
          <td nowrap><% = oraDynaset("PROFILE"  ) %></td>
          <td nowrap><% = oraDynaset("EDITDATE" ) %></td>
        </tr>
        <%
            oraDynaset.MoveNext
          Loop
        %>
      </table>
    </div>
  </body>
</html>
戻る