無題非標準ページ

<% 'くっきー処理 mdelpass = Request.Cookies("manaita")("delpass") mname = Request.Cookies("manaita")("mname") setdelid = "" mpagecount = Request("cpage") mpage = 10 '一度に表示できる件数 mcount = 0 mpagestep = mpage * mpagecount Set cn=server.CreateObject("ADODB.Connection") cn.Open "manaitasrc" setgenre ="" Set gnr = Server.CreateObject("ADODB.Recordset") SQLg = "SELECT * FROM genre ORDER BY mmid;" 'gnr.Open SQLg ,cn,2,3 gnr.Open SQLg ,cn,3,1 ggenre = gnr.GetRows() '配列に読み込む for i=0 to UBound(ggenre,2) setgenre = setgenre + "" next gnr.close 'spam対策 set obj = server.CreateObject("basp21") text_base = "あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわおん" text_count = len(text_base) randomize text = mid(text_base,int(rnd * text_count)+1,1) session("image_text") = text if session("image_text") ="" then response.write"クッキーを有効にしてください
" end if MD5SUM = left(obj.MD5(now),5) %> 無題非標準ページ

まないたれぼりゅーしょん

名前	※任意
題名:	※任意
コメント
画像ファイル
画像ジャンル	※任意選択
削除パス	4-6桁の半角数字で（空欄のまま投稿すると自動生成されます）
認証コード（必須）	→ 左に表示されたひらがな一文字を入力
	送信するには画像、コメントのどちらかが必要です。
	・ブラウザがクッキーを受け付ける場合、名前と削除パスが記憶されます。・添付できる画像ファイルは500KBまでのJPG,GIF,PNGです。・ジャンル別閲覧もできるサムネイル表示機能搭載。・レスにも画像を添付できます。・元記事を消去するとレスもすべて消えます。・管理人の判断により記事の消去、投稿規制を行う場合もあります。

<% 'Set cn=server.CreateObject("ADODB.Connection") 'cn.Open "manaitasrc" Set rst = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM data1 where foid = 0 ORDER BY fid DESC;" 'rst.Open SQL ,cn,2,3 rst.Open SQL ,cn,0,1 If not rst.EOF Then rst.Move mpagestep Do While not rst.EOF aid = rst.Fields("fid") setdelid = setdelid & "" aName = rst.Fields("fname") if aName = "まなみ５歳" then aName = aName & "＠管理" end if aTitle = rst.Fields("ftitle") afname = rst.Fields("ffname") adate = rst.Fields("fdate") acomment = rst.Fields("fcomment") agenre = rst.Fields("fgenre") if agenre ="0" then agenre="" asize = rst.Fields("fsize") asize = Split(asize,",") afnames = "./imgs/s" & afname afnamel = "./img/" & afname acomment = Replace(acomment,"<","＜") 'タグを潰す acomment = Replace(acomment,",","、") '半角カンマを全角に acomment = Replace(acomment,vbCR,",") '改行を半角カンマに acount = 0 '仮想文字カウンタ brcount = 0 '改行までの文字数 alength = len(acomment) '文字列の長さ acomout = "" '最終的な文字列出力 '改行を３０文字分として全体の文字数を割り出して切り詰める '改行があったらカウンタをリセットして次の改行までの文字数をカウントする '改行改行なら３０という具合 '改行と改行の間に文字が１０含まれていた場合、改行がきたら１０差し引いて仮想文字カウンタに２０ '改行なして３０文字を超えたら行をまたいだとみなして仮想文字カウンタ＋３０、改行までのカウンタリセットしてまた数えなおす 'なんかややこしい（お '要するに３０文字の列が３０行分 '画像が無ければもっと表示してもいいかなと思ってみる for i=1 to alength moji = mid(acomment ,i ,1) if moji = "," then acount = acount + (20 - brcount) brcount = 0 else brcount = brcount +1 acount = acount +1 end if if brcount > 20 then 'acount = acount + 20 brcount =0 end if if acount < 200 then acomout = acomout + moji end if next acomout = Replace(acomout,",","
")'半角カンマをｂｒタグに '書き込みが指定文字数超えたら省略されたことを告げる if acount > 200 then acomout = acomout + "
・・・省略されました。" Set cmt = Server.CreateObject("ADODB.Recordset") cmtsql = "SELECT * FROM data1 where foid = " & aid & " ORDER BY fid DESC;" cmt.Open cmtsql ,cn,1,1 cmtcount = cmt.Recordcount cmt.close %>

<%if afname <>"" then %> <%else%> <% end if %>

■題名：<%= aTitle %>

■名前：<%= aName %>

<%= afname%> size <%= int(asize(0)/1024)%>KB

■コメント

<%= acomout %>

■No：<%= aid %>■<%= adate%>
■ジャンル　<% if agenre <>"" then %> <%=ggenre(1,agenre-1)%> <%else %> 　なし <% end if%>　

■コメント

<%= acomout %>

■No<%= aid %>　■<%= adate%>

コメント<%=cmtcount%>件　■コメント読むor返信■

<% 'レスの表示 'Set rst10=Server.CreateObject("ADODB.Recordset") %>

<% rst.MoveNext mcount =mcount + 1 if mcount = mpage then Exit Do End If Loop %>

<%if mpagecount >= 1 then%> ←Prev■ <% end if%>

↑Top　画像index

<%if not rst.EOF then%> ■Next→ <% end if%>

- script written by punipeta.com - Ver.050618

<% rst.close cn.close End if %>