| <%@ LANGUAGE = VBSCRIPT %> <html> <body> <%Response.Write("Hello World")%> </body> </html> |
| <% Option Explicit %> |
| <% ' 汎用データベース閲覧 Oracle版 (ADO) ' 処理時間表示機能付 ' ASPプログラミングパーツ ' http://homepage2.nifty.com/inform/asp/&br() Option Explicit Dim cn, rs, fd Dim strSQL Dim varStart, varEnd, varInterval varStart = Timer ' 接続先情報を指定します。 Const strDatabase = "NT" ' データベース名（サービス名） Const strUserID = "scott" ' ユーザID Const strPassword = "tiger" ' パスワード ' 抽出するレコードを指定します。 strSQL = "SELECT * FROM EMP" Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=MSDAORA;" & _ "Data Source=" & strDatabase & ";", strUserID, strPassword Set rs = cn.Execute(strSQL) %> <table border='0' cellspacing='1' cellpadding='4' bgcolor='#cccccc'> <tr> <% ' ヘッダ部分の出力を行います。 For Each fd In rs.Fields Response.Write "<td bgcolor='#000000'><font color='#ffffff'>" & fd.Name & "</font></td>" Next %> </tr> <% ' レコード内容を出力します。 Do While Not rs.EOF Response.Write "<tr bgcolor='#000000'>" For Each fd In rs.Fields Response.Write "<td bgcolor='#ffffff'><font size='-1'>" & fd.Value & "</font></td>" Next Response.Write "</tr>" rs.MoveNext Loop %> </table> <% ' 経過時間表示 varEnd = Timer varInterval = varEnd - varStart Response.Write "処理時間：" & CStr(varInterval) & " 秒" %> |
