まな板

■表示行数

-page<%=page+1%>-

<%if w_mode = 1 then %>

ご来場記念、感想、ネタなど書き込んでくださいませ～。urlは文中にそのまま記載していただければ自動でリンクします。jpg形式の写真を１枚だけ添付できます。投稿されたメッセージは管理者が確認するまで表示されません。予めご了承ください。なお、公序良俗に反する書き込み、えっちでよくない写真等は断り無く削除しますよー。

★題　名 (必須）

★名　前（必須。ハンドルでおっけーです。）

★メール
※管理者にのみ通達されます。書かなくてもおっけーです。

★画像ファイル
※1枚のみ.jpg形式の画像だけ添付できます。

★メッセージ
（必須）

投稿された記事は管理者が内容を確認するまで表示されません。

<%else%> 現在読み取り専用モードに設定されています。こちらをご利用ください <% end if%>

画像をクリックすると元のイメージが表示されます。表示されている画像はプレビューです。

" aRightCellVal = " width = '330'" End If aMess = rst.Fields("メッセージ") aMess = Replace(aMess,vbCR,"
") set objBasp = server.createobject("basp21") aNewMess = aMess '--- mailto: aNewMess = objBasp.Replace("s/([A-Za-z0-9_\-.]+@[A-Za-z0-9_\-.]+)/$1<\/a>/kg",aNewMess) '--- http: aNewMess = objBasp.Replace("s/(http:[A-Za-z0-9_\-#&?=\/.~]+)/$1<\/a>/kg",aNewMess) '--- ftp: aNewMess = objBasp.Replace("s/(ftp:[A-Za-z0-9_\-#&?=\/.~]+)/$1<\/a>/kg",aNewMess) %>

<% Set cn=server.CreateObject("ADODB.Connection") cn.Open "manamibbssrc" Set rst = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM manamibbs WHERE 削除 = '0' AND フラグ = '0' ORDER BY コード DESC;" rst.Open SQL ,cn,2,3 If not rst.EOF Then page = Cint(Request("page")) Line = page * aColCnt rst.Move Line Cnt = 0 Do While not rst.EOF If Cnt = aColCnt Then Exit Do aId = rst.Fields("ID") aCode = rst.Fields("コード") aDate = rst.Fields("日付") aTime = rst.Fields("時間") aTitle = rst.Fields("タイトル") aName = rst.Fields("投稿者") aFileSize = rst.Fields("サイズ") aImgPixelsDB = rst.Fields("ピクセル") aImage = rst.Fields("イメージ") If aImage = "" Or IsNull(aImage) Or IsEmpty(aImage) Then aDipImage = "" else aDipImage = "