<%
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
aBgcolor = "#99CCFF"
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("タイトル")
aTitCol = 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 = "![](image/" & "m__" & aImage & ")
" & aImgPixelsDB & " / " & aFileSize & " | "
aRightCellVal = " width = '330'"
End If
%>
| ●<%=aTitle%>
[<%=aName%>] <%=aDate%> |
<%
rst.MoveNext
If aBgcolor = "#99CCFF" then
aBgcolor = "#ffffff"
else
aBgcolor = "#99CCFF"
End If
Cnt = Cnt + 1
Loop
%>
<%
else
%>
| 現在、この掲示板の内容は削除されているか、管理者の都合により表示できなくなっています。 |
<%
End If
'--------------------------------
If page<>0 and not rst.EOF Then
%>
<%
elseIf page<>0 Then
%>
<%
elseIf not rst.EOF Then
%>
<%
End If
rst.Close
%>
|