|
|
DateAdd を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはDateAdd です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>DateAdd関数を使用して３日前までのデータ表示</title>
</head>
<body>
<h2>DateAdd関数を使用して３日前までのデータ表示</h2>
test031-2.asp<br>
<hr>
<%
Call TEST_PRINT() '関数にまとめた。
%>
<HR>
終了です。<br>
</body>
</html>
<% '３日前を条件にして、ＳＱＬを発行
Sub TEST_PRINT()
'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
'SQL文を作る
strSQL = "Select * From KANSOU " '感想(KANSOU)テーブルから全項目(*)セレクト
strSQL = strSQL & "WHERE WriteTime >= #" & DateAdd("d",-3, Date) & "# "
strSQL = strSQL & "ORDER BY WriteTime DESC" '並べ替えは時間の降順
'オマケで画面にデータ表示
Response.Write "<hr>発行する（した）ＳＱＬ文は<br><B><font color='green'>"
Response.Write strSQL & "</font></B><br>です<hr>"
'お約束のレコードセットの作成 SQL文の発行
Set rs = db.Execute(strSQL)
'データの表示をテーブルで行う
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
End Sub
%>
| 商品:時計関係を紹介(広告)
時計 →の人気
-
最凶正規認定店４店舗別注モデル!! フランク三浦 初号機(世界平和) F 2月1日 最近販売
-
[フルーコ]FLUCO 時計バンドベルト アメリカ 20mm グリーン 2月1日 伸び率UP
-
時計工具シリーズ バネ棒 6mm~22mm → 1月31日 最近販売
-
ジーエスエックス GSX スターウォーズ R2-D2 SMART Sty 1月31日 伸び率UP
-
[ベルエア]Bel Air 立体ベゼル＆ラバーベルトのビッグフェイス腕時 1月30日 最近販売
-
[ベルエア]Bel Air 裏蓋スケルトン自動巻き腕時計・AC-W-BC 1月30日 伸び率UP
-
タイメックス TIMEX メンズ 腕時計 ウィークエンダー セントラルパ 1月29日 最近販売
-
フランク三浦X カリスマ金宅(キム・タク)禁断のコラボ！ブラジリアンイエ 1月29日 伸び率UP
続き(一覧)を見る
|