を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>コメント入力部(入力と表示)</title>
</head>
<body>
<h2>コメント入力部(入力と表示)</h2>
<Font Color="red">ASPプログラムのコメントはRemか'シングルコーテーションです<br>
<-- XXX -->はhtmlのコメントです</font><br>
※検索で ASP コメント とすると間違ってこのページが表示されるので(笑)
<!-- コメントですよ(笑) -->
test029-1.asp<br>
<hr>
感想を書き込んでください。<br>
<FORM ACTION="test029-2.asp" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="NO" VALUE="0">
<b>メルマガ区分選択:</b><br>
<INPUT TYPE="RADIO" NAME="KUBUN" VALUE="ASP" CHECKED>ＡＳＰで遊ぶ、失敗する<br>
<INPUT TYPE="RADIO" NAME="KUBUN" VALUE="VBA" >VBAで楽しく<br>
<INPUT TYPE="RADIO" NAME="KUBUN" VALUE="GUCHI" >愚痴系メルマガ<br>
<INPUT TYPE="RADIO" NAME="KUBUN" VALUE="24H" >コンビニのオモテとウラ<br>
<b>感想:</b>
<% Randomize : zz = Chr(&h22) & "TEST DATA " & Int(Rnd * 100) & Chr(&h22) %>
<INPUT TYPE="TEXT" NAME="MEMO" SIZE=60 VALUE=<%=zz%>><br>
<br>
<INPUT TYPE="SUBMIT" VALUE="書 込">
<INPUT TYPE="RESET" VALUE="クリア">
</FORM>
<hr>
今まで書き込まれたご意見・感想<br>
<% 'ＤＢ内のデータを表示する
'ADO DB Connection オブジェクトを作成する、英文そのままじゃん
Set db=Server.CreateObject("ADODB.Connection")
'.Provider？プロバイダー？通信会社？じゃなくって
'データアクセスにはJet.OLEDB.4.0を使うことを設定
db.Provider = "Microsoft.Jet.OLEDB.4.0"
'次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す
db.ConnectionString = Server.MapPath("db029.mdb")
'やっとデータベースを開ける
db.open
'お約束のレコードセットの作成 テーブル名KANSOUから全項目（＊）を指定
Set rs = db.Execute("Select * From KANSOU ORDER BY WriteTime DESC")
'データの表示をテーブルで行う
Response.Write "<TABLE Border='1'>"
'見出しをバカっぽく、そのまま書き込む
Response.Write "<TR>"
Response.Write "<TD>日付</TD>"
Response.Write "<TD>区分</TD>"
Response.Write "<TD>NO.</TD>"
Response.Write "<TD>感想</TD>"
Response.Write "</TR>"
'お約束のＥＯＦまでループは(データが無くなるまでループ)、
Do While rs.EOF = False 'レコードセットの.EOFがFalseの間
Response.Write "<TR>" '内容を表示する、行開始のタグ＜ＴＲ＞
Response.Write "<TD>" & rs.Fields.Item("WriteTime") & "</TD>"
Response.Write "<TD>" & rs.Fields.Item("F_KUBUN") & "</TD>"
If rs.Fields.Item("F_NO") = 0 Then '0の全体かチェック
Response.Write "<TD>全体</TD>"
Else
Response.Write "<TD>" & rs.Fields.Item("F_NO") & "</TD>" 'NO表示
End If
Response.Write "<TD>" & rs.Fields.Item("F_MEMO") & "</TD>"
Response.Write "</TR>"
'次のレコードにポインタを移動する
rs.MoveNext 'これを忘れると悲惨なことに、、、
Loop
Response.Write "</TABLE>" 'テーブルは終わりです
'開いていたレコードセットを閉じる
rs.Close
'データベースも閉じようよ
db.Close
'お行儀よくオブジェクトも開放しましょう（通常は自動的に解放されるけど）
Set db = Nothing
%>
<hr>
終了です。<br>
</body>
</html>
| 最近発売の雑誌を紹介する
女性誌を紹介します。数少ない女性プログラマー向けの広告でした(笑)
- sweet (スウィート) 2008年 06月号
- JILLE (ジル) 2008年 06月号
- 私の時間 2008年 06月号
- ELLE girl (エル・ガール) 2008年 06月号
- CUTiE (キューティ) 2008年 06月号
- BAILA (バイラ) 2008年 06月号
- RUSSH JAPAN (ラッシュジャパン) 2008年 06月号
- ar (アール) 2008年 06月号
- FRaU (フラウ) 2008年 06月号
|