<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> 地域プロバイダ COKKY-NET <% dim youbi(7) dim cd dim l1 dim dtnew dim dtup buf = server.mappath("_count/log.mdb") ret = Tfc.OpenDatabase(cstr(buf)) Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT MAX(CD) FROM ACCESSLOG" fno = Tfc.OpenRecordSet(Tfc.Sql) l1 = Tfc.Rs(fno,0) + 1 ret = Tfc.CloseRecordset(fno) Tfc.Table = "ACCESSLOG" Tfc.Where = "CD=" & l1 Ret = Tfc.Dput(l1, "CD") Ret = Tfc.Dput("TOPPAGE08","PAGE") Ret = Tfc.Dput(Tfc.Tformat(date, "yyyy/mm/dd"),"日付") Ret = Tfc.Dput(Tfc.Tformat(time,"hh:mm"), "時間") Ret = Tfc.Dput(request.ServerVariables("HTTP_REFERER"),"直前URL") Ret = Tfc.Dput(request.ServerVariables("REMOTE_ADDR"),"IP") Ret = Tfc.WriteRecord 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 if Trim(Request.Form("it01"))<>"" and Trim(Request.Form("it02"))<>"" then ret = DataWrite() %>
         
新潟県村上市の地域プロバイダ”COKKY−NET”
パソコンサポート・修理、パソコン教室、ソフト・WEB製作
パソコンのことならなんでもおまかせ!!
どうぞよろしく (^o^)/
yahoo japan Google Goo
このメッセージを全て表示  
 
 
神林カントリー農園
新潟県岩船産コシヒカリや梅干、おもちなど
自然の恵みを製造・販売
久二越後味噌 奈良橋醸造
地元越後味噌・醤油・麹加工品を
製造・販売
菜の花畑
村上市の住宅街にある、かわいいお店です。
ハンドメイド雑貨・アメリカン雑貨など販売
漁師五右衛門
新潟県岩船の漁師さん
天然岩牡蠣などを直販
割烹千渡里
村上市のおいしいお食事
「だーまた丼」が有名
紙ヒコーキ。
コッキーネットのカレのHP
<% '------------------------------------------------------- メッセージタイトル一覧表示 Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * FROM BLOGTITLE" Tfc.SqlAddBuf = " WHERE CD=1 " fno = Tfc.OpenRecordSet(Tfc.Sql) %> <% if Tfc.Rs(fno, "コメント数") > 0 then %> <% end if %>
<%= Tfc.Tformat(Tfc.Rs(fno, "日付"),"mm月dd日") & youbi(weekday(Tfc.Rs(fno, "日付"))) & " " & Tfc.Rs(fno, "時間") %> <% dtnew = DateDiff("d",Tfc.Rs(fno, "作成日付"),date) dtup = DateDiff("d",Tfc.Rs(fno, "日付"), date) if dtnew <= 3 then %> <% end if if dtnew > 3 and dtup <= 3 then %> <% end if %>
"><%= Tfc.Rs(fno, "タイトル") %>
<% if DateDiff("d",Tfc.Rs(fno, "コメント日付"),date) = 0 then %> <% end if %> コメント(<%= 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 BLOGTITLE" Tfc.SqlAddBuf = " WHERE 削除FLG=0 " Tfc.SqlAddBuf = " AND CD>1 " Tfc.SqlAddBuf = " ORDER BY 日付 & 時間 DESC" fno = Tfc.OpenRecordSet(Tfc.Sql) do if Tfc.EOF(fno) then exit do %> <% if Tfc.Rs(fno, "コメント数") > 0 then %> <% end if %>
<%= Tfc.Tformat(Tfc.Rs(fno, "日付"),"mm月dd日") & youbi(weekday(Tfc.Rs(fno, "日付"))) & " " & Tfc.Rs(fno, "時間") %> <% dtnew = DateDiff("d",Tfc.Rs(fno, "作成日付"),date) dtup = DateDiff("d",Tfc.Rs(fno, "日付"), date) if dtnew <= 3 then %> <% end if if dtnew > 3 and dtup <= 3 then %> <% end if %>
"><%= Tfc.Rs(fno, "タイトル") %>
<% if DateDiff("d",Tfc.Rs(fno, "コメント日付"),date) = 0 then %> <% end if %> コメント(<%= Tfc.Rs(fno, "コメント数") %>) <%= Tfc.Tformat(Tfc.Rs(fno, "コメント日付"),"mm/dd") & youbi(weekday(Tfc.Rs(fno, "コメント日付"))) %>
<%= Tfc.Rs(fno, "説明") %>
<% ret = Tfc.MoveNext(fno) loop ret = Tfc.CloseRecordset(fno) %>
<% '------------------------------------------------------- タイトル表示 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 MAX(CD) FROM BLOGMES" Tfc.SqlAddBuf = " WHERE TCD= " Tfc.SqlAddBuf = cd Tfc.SqlAddBuf = " AND 区分=0 " fno = Tfc.OpenRecordSet(Tfc.Sql) l1 = Tfc.Rs(fno, 0 ) ret = Tfc.CloseRecordset(fno) '------------------------------------------------------- 最新のメッセージ表示 Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * FROM BLOGMES" Tfc.SqlAddBuf = " WHERE TCD= " Tfc.SqlAddBuf = cd Tfc.SqlAddBuf = " AND CD>= " Tfc.SqlAddBuf = l1 fno = Tfc.OpenRecordSet(Tfc.Sql) %> <% if trim(Tfc.Rs(fno, "画像FILE"))<>"" then %> <% end if %>
<%= Tfc.Rs(fno, "本文") %>
">
<% '------------------------------------------------------- コメント表示 ret = Tfc.MoveNext(fno) do if Tfc.EOF(fno) then exit do %>
 
コメント:<%= trim(Tfc.Rs(fno, "名前")) %> <%= Tfc.Tformat(Tfc.Rs(fno, "日付"),"mm月dd日") & youbi(weekday(Tfc.Rs(fno, "日付"))) & " " & Tfc.Rs(fno, "時間") %>
<%= convbr(trim(Tfc.Rs(fno, "本文"))) %>

<% ret = Tfc.MoveNext(fno) loop ret = Tfc.CloseRecordset(fno) %>

<% function DataWrite( ) dim tcd dim l1 dim imgfile dim dt(4) if MesCheck(Trim(Request.Form("it02")))=false then exit function '英文メッセージのカット '----------------------------------------------------------------------- コメント書き込み Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT MAX(CD) FROM BLOGMES" fno = Tfc.OpenRecordSet(Tfc.Sql) l1 = Tfc.Rs(fno,0) + 1 ret = Tfc.CloseRecordset(fno) Tfc.Table = "BLOGMES" Tfc.Where = "CD=" & l1 Ret = Tfc.Dput(l1, "CD") Ret = Tfc.Dput(cd,"TCD") Ret = Tfc.Dput(1, "区分") Ret = Tfc.Dput(Trim(Request.Form("it01")),"名前") Ret = Tfc.Dput(Trim(Request.Form("it02")),"本文") Ret = Tfc.Dput(Tfc.Tformat(date, "yyyy/mm/dd"),"日付") Ret = Tfc.Dput(Tfc.Tformat(time,"hh:mm"), "時間") Ret = Tfc.Dput(request.ServerVariables("REMOTE_ADDR"),"IP") Ret = Tfc.WriteRecord '----------------------------------------------------------------------- コメント数更新 Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * FROM BLOGTITLE" Tfc.SqlAddBuf = " WHERE CD=" Tfc.SqlAddBuf = cd fno = Tfc.OpenRecordSet(Tfc.Sql) l1 = Tfc.Rs(fno,"コメント数") + 1 ret = Tfc.CloseRecordset(fno) Tfc.Table = "BLOGTITLE" Tfc.Where = "CD=" & cd Ret = Tfc.Dput(l1, "コメント数") Ret = Tfc.Dput(Tfc.Tformat(date, "yyyy/mm/dd"),"コメント日付") Ret = Tfc.Dput(Tfc.Tformat(time,"hh:mm"), "コメント時間") Ret = Tfc.WriteRecord '----------------------------------------------------------------------- メール送信 if Tfc.Tformat(time,"hh:mm") > "21:00" then exit function set basp = server.createobject("basp21") 'フリーコンポーネント buf = request.form("it01") & vbCrLf buf = buf & request.form("it02") & vbCrLf dt(0) = "www.cokky.ne.jp/mail.cokky.ne.jp:25:60" ' ドメイン名 + SMTP サーバマシン名 + PORT + TIMEOUT 変更必要 dt(1) = "" ' 宛先 変更必要 dt(2) = "" ' 差出し人 dt(3) = "コメント入った!" ' 件名 dt(4) = buf ' 本文 改行は、vbCrLfで buf = basp.SendMail(dt(0),dt(1),dt(2),dt(3),dt(4),"" ) dt(1) = "" ' 宛先 変更必要 buf = basp.SendMail(dt(0),dt(1),dt(2),dt(3),dt(4),"" ) end function Function MesCheck(dt) Dim ln Dim i Dim chk_jp Dim chk_en ln = Len(dt) chk_jp = 0 chk_en = 0 For i = 1 To ln If Asc(Mid(dt, i, 1)) < 0 Or Asc(Mid(dt, i, 1)) > 255 Then chk_jp = chk_jp + 1 else chk_en = chk_en + 1 End If Next if chk_jp/ln > 0.6 then MesCheck = True else MesCheck = False End Function %>