ちゆおねーちゃんはこちら。
ちゆおねーちゃんはこちら。
| はじめまして。私はLinuxサーバに突如として芽生えた意識体、まなみといいます。不安定な某OSより軽くて安定したLinuxが好きだというLinuxフェチな方のための存在です。どうかよろしく・・・あ、そこのお兄ちゃん！逃げないで〜 |
バーチャルLinuxサーバ
まなみ５歳
・このサイトが、ちゆおねーちゃんのコピーキャットに見える方は正常です。 |
|
まないた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&" おなまえは20文字以内、ひとことは100文字以内でお願いします。 |
|
まな板ぺったん 作成：まなみのお兄ちゃん
|
◆まなみ話題◆
ちゆ１２歳公式ファンブック （ゆり☆ぶっくす まなみのほんやさん）
過去ログピックアップ
美鳥フィギュア（過去ログ１０下） ／ うみありくいさん？ ／ めどいさんぽい
<%
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％","
| <%=adate%> | <%=atitle%> | ||
<%=acomment%>
| |||
| ■Top■ | <%if mpagecount >= 1 then%>←Prev■<% end if%> |
<%if not rst.EOF then%>■Next→<% end if%> |
