<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> ぷにぺたこむ

元祖ちゆ12歳
ちゆおねーちゃんはこちら。

はじめまして。私はLinuxサーバに突如として芽生えた意識体、まなみといいます。不安定な某OSより軽くて安定したLinuxが好きだというLinuxフェチな方のための存在です。どうかよろしく・・・あ、そこのお兄ちゃん!逃げないで〜

バーチャルLinuxサーバ

まなみ5歳

・このサイトが、ちゆおねーちゃんのコピーキャットに見える方は正常です。
・基本的に静岡県中部のローカルネタがひしめきますので、理解に苦しむかと。

・MSNメッセンジャーは「ecoicemini○hotmail.com」です。お兄ちゃんと共有してます。




<% ref = Request.ServerVariables("HTTP_REFERER") ref_chk ="" if instr(ref,"search.yahoo.co.jp") > 1 then ref_chk =1 end if if ref_chk = "" then %>
まないたmini

 おなまえ ひとこと
 文字色    墨色  みかん  藤の花  青空  お茶
  駿河湾
※注意:ここに書き込んでも地獄少女には連絡できません。地獄流し依頼はおやめください。

<% set obj = server.createobject("basp21") set objtxt = CreateObject("Scripting.FileSystemObject") filename = Server.MapPath("manaita/bbsview.asp") if objtxt.FileExists(filename) = False then objtxt.CreateTextFile(filename) End If Set bbstxt = objtxt.OpenTextFile(filename, 1, True) Do Until bbstxt.AtEndOfStream = True txt = bbstxt.ReadLine Response.Write(" "&txt&"
"&VbCrLf) Loop Set bbstxt = Nothing set obj = Nothing set objtxt = Nothing %>

おなまえは20文字以内、ひとことは100文字以内でお願いします。
タグは通りません。 文字色の名前はキニシナイ方向で。15件くらい表示します。
いたずら書き、イミフメイな書き込みは消去します。

まな板ぺったん 作成:まなみのお兄ちゃん 
<% end if %>


◆まなみ話題◆


ちゆ12歳公式ファンブック
 (ゆり☆ぶっくす まなみのほんやさん

過去ログピックアップ
美鳥フィギュア(過去ログ10下) / うみありくいさん? / めどいさんぽい


<% imgdir ="./blogimg/" imgsdir = "./blogimg/s" Set objb=server.CreateObject("basp21") mpagecount = Request("cpage") mmID = Request("mmID") mpage = 3 '一度に表示できる件数 mcount = 0 if isnumeric(mpagecount) then mpagestep = mpage * mpagecount end if Set cn=server.CreateObject("ADODB.Connection") cn.Open "manablogsrc" 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 if not gnr.EOF then ggenre = gnr.GetRows() '配列に読み込む end if gnr.close Set rst = Server.CreateObject("ADODB.Recordset") if mmID = "" or not isnumeric(mmID) then SQL = "SELECT * FROM blog where fflag = '1' ORDER BY fdate DESC;" else SQL = "SELECT * FROM blog where mmID = '" & mmID & "' AND fflag = '1';" end if rst.Open SQL ,cn,0,1 If not rst.EOF Then rst.Move mpagestep Do While not rst.EOF aid = rst.Fields("fid") oid = rst.Fields("foid") ammID = rst.Fields("mmID") atitle = rst.Fields("ftitle") adate = rst.Fields("fdate") acomment = rst.Fields("fcomment") agenre = rst.Fields("fgenre") Set rst2 = Server.CreateObject("ADODB.Recordset") SQL2 = "SELECT * FROM photo where mmID = '" & ammID & "' ORDER BY PNo;" rst2.open SQL2 ,cn,0,1 If not rst2.EOF Then Do While not rst2.EOF PNo = rst2.Fields("pno") Fname = rst2.Fields("fname") furl = rst2.Fields("furl") if acomment <> "" then acomment = Replace(acomment,"%%" & Pno & "%","") acomment = Replace(acomment,"%%" & Pno & "C%","

") acomment = Replace(acomment,"%%L" & Pno & "%","") end if rst2.movenext loop end if ' 記事の処理 if acomment <>"" then 'acomment = objb.Replace("s/(http:[A-Za-z0-9_\-#&?=\/.~]+)/$1<\/a>/kg",acomment) acomment = Replace(acomment,"%1","") acomment = Replace(acomment,"%3","") acomment = Replace(acomment,"[c]","
") acomment = Replace(acomment,"[/c]","
") acomment = Replace(acomment,VbCrLf,"
" & VbCrLf) acomment = Replace(acomment,"%%*%","") rgenre = ggenre(1,agenre-1) end if %>

<%=adate%> <%=atitle%>

<%=acomment%>
◆<%=rgenre%>

◆この記事へのリンク◆

<% rst.movenext mcount = mcount + 1 if mcount > mpage -1 then exit do end if loop %>
  ■Top■
<%if mpagecount >= 1 then%>←Prev■<% end if%>
<%if not rst.EOF then%>■Next→<% end if%>
<% else %>

 

記事が存在しません


トップページに戻る

<% end if %>


[EOF]

日記のようなモノ生成スクリプト(仮) by punipeta.com