図2.12
２．６ 記事リストの一覧表示
リスト2.6 list3.asp
<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>list3.asp</TITLE>
</HEAD>
<BODY>
【メニュー】
<A HREF="new1.asp" TARGET="LIST">新規投稿</A>
<BR><HR>
<%
Const FOR_DEBUG = "<BR>Debug(input3.asp):"
Const DATASOURCE = "aspZADO"
Dim objConn,objRst,strSQL
'データベースへ接続します
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open DATASOURCE
strSQL = "SELECT * FROM tblBBS ORDER BY ID DESC;"
Set objRst = objConn.Execute(strSQL)
If NOT objRst.BOF Then
'記事がある
Do While NOT objRst.EOF
%>
[<%=objRst("messageNum")%>]
<A HREF='view2.asp?ID=<%=objRst("ID")%>'
TARGET="VIEW"><%=objRst("title")%></A>
<B>[<%=objRst("name")%>]</B>
(<%=objRst("messageTime")%>)<BR>
<%
objRst.MoveNext
Loop
Else
'記事がない
%>
投稿記事はありません<BR>
<%
End If
objRst.Close
objConn.Close
%>
</BODY>
</HTML>
図2.12