「ASP/基本」の編集履歴(バックアップ)一覧はこちら
「ASP/基本」(2012/04/23 (月) 18:51:39) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
&topicpath()
基本
|<%@ LANGUAGE = VBSCRIPT %>&br()<html>&br()<body>&br()<%Response.Write("Hello World")%>&br()</body>&br()</html>|
変数宣言の強制
|<% Option Explicit %>|
ADO接続
|<%&br()' 汎用データベース閲覧 Oracle版 (ADO)&br()' 処理時間表示機能付&br()' ASPプログラミングパーツ&br()' http://homepage2.nifty.com/inform/asp/&br()&br()Option Explicit&br()&br()Dim cn, rs, fd&br()Dim strSQL&br()&br()Dim varStart, varEnd, varInterval&br()varStart = Timer&br()&br()' 接続先情報を指定します。&br()Const strDatabase = "NT" ' データベース名(サービス名)&br()Const strUserID = "scott" ' ユーザID&br()Const strPassword = "tiger" ' パスワード&br()&br()' 抽出するレコードを指定します。&br()strSQL = "SELECT * FROM EMP"&br()&br()Set cn = Server.CreateObject("ADODB.Connection")&br()&br()cn.Open "Provider=MSDAORA;" & _&br() "Data Source=" & strDatabase & ";", strUserID, strPassword&br()&br()Set rs = cn.Execute(strSQL)&br()&br()%>&br()<table border='0' cellspacing='1' cellpadding='4' bgcolor='#cccccc'>&br()<tr>&br()<%&br()' ヘッダ部分の出力を行います。&br()For Each fd In rs.Fields&br() Response.Write "<td bgcolor='#000000'><font color='#ffffff'>" & fd.Name & "</font></td>"&br()Next&br()%>&br()</tr>&br()<%&br()' レコード内容を出力します。&br()Do While Not rs.EOF&br() Response.Write "<tr bgcolor='#000000'>"&br() For Each fd In rs.Fields&br() Response.Write "<td bgcolor='#ffffff'><font size='-1'>" & fd.Value & "</font></td>"&br() Next&br() Response.Write "</tr>"&br() rs.MoveNext&br()Loop&br()%>&br()</table>&br()<%&br()' 経過時間表示&br()varEnd = Timer&br()varInterval = varEnd - varStart&br()Response.Write "処理時間:" & CStr(varInterval) & " 秒"&br()%>|
参考Web
-[[ASP/VBScript講座>>http://www.site-cooler.com/kwl/asp/]]
-[[汎用データベース閲覧 Oracle版(ADO)>>http://homepage2.nifty.com/inform/asp/oraviewer_ado.htm]]
-[[ASP デバッグ環境の構築>>http://d.hatena.ne.jp/moodymann/20080325/1206464393]]
#amazon2(468x60)
EOF