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

test-asp/ado2.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>ADO 2</title>
  </head>
  <body>
<%
  Dim adoConnection, adoRecordset
  Set adoConnection = Server.CreateObject("ADODB.Connection")
  adoConnection.Open "INETDB", "www", "www"
  Set adoRecordset = adoConnection.Execute("SELECT * FROM INET_PROFILE ORDER BY CODE")
%>
    <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 adoRecordset.EOF
        %>
        <tr align="left">
          <td nowrap align="right"><% = adoRecordset("CODE") %></td>
          <td nowrap><% = adoRecordset("NAME"     ) %></td>
          <td nowrap><% = adoRecordset("EMAIL"    ) %></td>
          <td nowrap><% = adoRecordset("PSEUDONYM") %></td>
          <td nowrap><% = adoRecordset("PROFILE"  ) %></td>
          <td nowrap><% = adoRecordset("EDITDATE" ) %></td>
        </tr>
        <%
            adoRecordset.MoveNext
          Loop
        %>
      </table>
    </div>
  </body>
</html>
戻る