<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> メッセージ書き込み
<% dim gid dim sid dim dt(10) dim formdt dim kbn dim account dim passwd buf = server.mappath(DbName) ret = Tfc.OpenDatabase(cstr(buf)) if left(request.ServerVariables("CONTENT_TYPE"),19) = "multipart/form-data" then set basp = server.createobject("basp21") 'フリーコンポーネント formdt = Request.BinaryRead(Request.TotalBytes) '送られたデータを受け取る kbn = basp.form(formdt,"it00") account = basp.form(formdt,"it01") passwd = basp.form(formdt,"it02") else kbn = Trim(Request.Form("it00")) account = Trim(Request.Form("it01")) passwd = Trim(Request.Form("it02")) end if gid = 1 sid = "" '----------------------------------------------------- 前処理 select case kbn case "LOGIN" sid = AccountCheck( account,passwd ) if sid = "0" then gid = 1 else gid = 2 case "LIST" sid = SIDCheck( account,passwd ) if sid = "0" then gid = 1 else gid = 3 case "DEL" sid = SIDCheck( account,passwd ) ret = DataDelete() if sid = "0" then gid = 1 else gid = 2 case "INPUT" sid = SIDCheck( account,passwd ) ret = DataWrite() if sid = "0" then gid = 1 else gid = 2 end select '----------------------------------------------------- 画面選択 select case gid case 1:ret = login_form( ) case 2:ret = list_form( ) case 3:ret = input_form( ) end select %>
<% function login_form( ) %>
COKKY-NETのユーザーさんなら誰でもメッセージを入れることができます。
メールアドレスの@の前のところだけとパスワードをいれてください。
ユーザーじゃない方は、まずCOKKY-NETのユーザーになりましょう。

<% if kbn = "LOGIN" then %> メールアドレスかパスワードがちがいます。もう一度正しく入力してください。
<% end if %>  
 
メールアドレス @cokky.ne.jp
パスワード
 
   
<% end function %> <% function list_form( ) %>
<%= account %>@cokky.ne.jp さんのメッセージ一覧
<% '------------------------------------------------------- メッセージタイトル一覧表示 Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * FROM BLOGTITLE" Tfc.SqlAddBuf = " WHERE MAIL=" Tfc.SqlAddStr = account Tfc.SqlAddBuf = " AND 削除FLG=0 " Tfc.SqlAddBuf = " ORDER BY CD" fno = Tfc.OpenRecordSet(Tfc.Sql) do if Tfc.EOF(fno) then exit do %> <% ret = Tfc.MoveNext(fno) loop ret = Tfc.CloseRecordset(fno) %>
新しいメッセージ  
<%= Tfc.Rs(fno,"タイトル") %> ')"> ')">
<% end function %> <% function input_form( ) '------------------------------------------------------- メッセージタイトル一覧表示 dim cd cd = Tfc.Tlng(Trim(Request.QueryString("ID"))) Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * FROM BLOGTITLE" Tfc.SqlAddBuf = " WHERE CD=" Tfc.SqlAddBuf = cd fno = Tfc.OpenRecordSet(Tfc.Sql) if not Tfc.EOF(fno) then dt(3) = Tfc.Rs(fno,"タイトル") dt(4) = Tfc.Rs(fno,"名前") dt(5) = Tfc.Rs(fno,"説明") end if ret = Tfc.CloseRecordset(fno) %>
タイトル
お名前
このメッセージの説明
本文
画像ファイル
 
<% end function %> <% function DataWrite( ) dim tcd dim cd dim imgfile dim flg dim dt(4) '----------------------------------------------------------------------- タイトル書き込み tcd = Tfc.Tlng(Trim(Request.QueryString("ID"))) flg = false if tcd = 0 then Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT MAX(CD) FROM BLOGTITLE" fno = Tfc.OpenRecordSet(Tfc.Sql) tcd = Tfc.Rs(fno,0) + 1 ret = Tfc.CloseRecordset(fno) flg = true end if Tfc.Table = "BLOGTITLE" Tfc.Where = "CD=" & tcd Ret = Tfc.Dput(tcd, "CD") Ret = Tfc.Dput(basp.form(formdt,"it03"),"タイトル") Ret = Tfc.Dput(basp.form(formdt,"it04"),"名前") Ret = Tfc.Dput(basp.form(formdt,"it05"),"説明") Ret = Tfc.Dput(Tfc.Tformat(date, "yyyy/mm/dd"),"日付") Ret = Tfc.Dput(Tfc.Tformat(time,"hh:mm"), "時間") if flg = true then Ret = Tfc.Dput(Tfc.Tformat(date, "yyyy/mm/dd"),"作成日付") Ret = Tfc.Dput(Tfc.Tformat(time,"hh:mm"), "作成時間") end if Ret = Tfc.Dput(request.ServerVariables("REMOTE_ADDR"),"IP") Ret = Tfc.Dput(basp.form(formdt,"it01"),"MAIL") Ret = Tfc.Dput(0, "削除FLG") Ret = Tfc.Dput(0, "コメント数") Ret = Tfc.WriteRecord '----------------------------------------------------------------------- メッセージ書き込み Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT MAX(CD) FROM BLOGMES" fno = Tfc.OpenRecordSet(Tfc.Sql) cd = Tfc.Rs(fno,0) + 1 ret = Tfc.CloseRecordset(fno) Tfc.Table = "BLOGMES" Tfc.Where = "CD=" & cd Ret = Tfc.Dput(cd, "CD") Ret = Tfc.Dput(tcd, "TCD") Ret = Tfc.Dput(0, "区分") Ret = Tfc.Dput(basp.form(formdt,"it04"),"名前") Ret = Tfc.Dput(basp.form(formdt,"it06"),"本文") imgfile = Gfname(basp.FormFileName(formdt,"it07")) if imgfile <> "" then imgfile = basp.form(formdt,"it01") & "_" & imgfile Ret = Tfc.Dput(imgfile, "画像FILE") 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 '----------------------------------------------------------------------- 画像ファイルの保存 if imgfile <>"" then buf = server.mappath( "/blogimages/" & imgfile ) ret = basp.FormSaveAs( formdt, "it07", buf ) '画像ファイルを保存する end if '----------------------------------------------------------------------- メール送信 if Tfc.Tformat(time,"hh:mm") > "21:00" then exit function set basp = server.createobject("basp21") 'フリーコンポーネント buf = basp.form(formdt,"it03") & vbCrLf buf = buf & basp.form(formdt,"it04") & 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 DataDelete( ) dim tcd dim cd dim imgfile '----------------------------------------------------------------------- タイトル書き込み tcd = Tfc.Tlng(Trim(Request.QueryString("ID"))) Tfc.Table = "BLOGTITLE" Tfc.Where = "CD=" & tcd Ret = Tfc.Dput(1, "削除FLG") 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.Dput(account, "MAIL") Ret = Tfc.WriteRecord end function Function Gfname( dt ) dim buf dim i buf = dt do i = instr(1,buf,"\") if i = 0 then exit do buf = mid(buf,i + 1 ) loop Gfname = buf End Function %>