<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> メッセージ全表示
トップページ>メッセージ全表示
<% dim youbi(7) dim cd dim l1 buf = server.mappath(DbName) ret = Tfc.OpenDatabase(cstr(buf)) youbi(1) = "(日)" youbi(2) = "(月)" youbi(3) = "(火)" youbi(4) = "(水)" youbi(5) = "(木)" youbi(6) = "(金)" youbi(7) = "(土)" if Trim(Request.QueryString("no"))<>"" then cd = Tfc.Tlng(Trim(Request.QueryString("no"))) else cd = 1 end if %> <% '------------------------------------------------------- タイトル表示 Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * FROM BLOGTITLE" Tfc.SqlAddBuf = " WHERE CD= " Tfc.SqlAddBuf = cd fno = Tfc.OpenRecordSet(Tfc.Sql) %>
<%= Tfc.Rs(fno, "タイトル") %>
<%= Tfc.Rs(fno, "名前") %> <%= Tfc.Tformat(Tfc.Rs(fno, "日付"),"mm月dd日") & youbi(weekday(Tfc.Rs(fno, "日付"))) & " " & Tfc.Rs(fno, "時間") %>
<% ret = Tfc.CloseRecordset(fno) %> <% '------------------------------------------------------- メッセージ表示 Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * FROM BLOGMES" Tfc.SqlAddBuf = " WHERE TCD= " Tfc.SqlAddBuf = cd Tfc.SqlAddBuf = " ORDER BY CD " fno = Tfc.OpenRecordSet(Tfc.Sql) do if Tfc.EOF(fno) then exit do if Tfc.Rs(fno,"区分") = 0 then %> <% if trim(Tfc.Rs(fno, "画像FILE"))<>"" then %> <% end if %>
<%= Tfc.Tformat(Tfc.Rs(fno, "日付"),"mm月dd日") & youbi(weekday(Tfc.Rs(fno, "日付"))) & " " & Tfc.Rs(fno, "時間") %>
<%= Tfc.Rs(fno, "本文") %>
">
 
<% else %>
コメント:<%= trim(Tfc.Rs(fno, "名前")) %> <%= Tfc.Tformat(Tfc.Rs(fno, "日付"),"mm月dd日") & youbi(weekday(Tfc.Rs(fno, "日付"))) & " " & Tfc.Rs(fno, "時間") %>
<%= convbr(trim(Tfc.Rs(fno, "本文"))) %>
 
<% end if ret = Tfc.MoveNext(fno) loop ret = Tfc.CloseRecordset(fno) %>