ASP > 基本


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

Top > ASP > 基本

基本
<%@ LANGUAGE = VBSCRIPT %>
<html>
<body>
<%Response.Write("Hello World")%>
</body>
</html>

変数宣言の強制
<% Option Explicit %>

ADO接続
<%
' 汎用データベース閲覧 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) & " 秒"
%>

参考Web











EOF