図2.3
２．２ 新規投稿画面の表示
■新規投稿画面の作成
新規投稿画面を表示するaspファイルを作成します（リスト2.2）。
リスト2.2 new1.asp
<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>new1.asp</TITLE>
</HEAD>
<BODY>
【新規記事】<BR>
<FORM ACTION="input1.asp" METHOD="post" TARGET="LIST">
<TABLE BORDER=0>
<TR>
<TD ALIGN="right">氏名</TD>
<TD ALIGN="left">
<INPUT NAME="name" SIZE=15>
</TD>
</TR>
<TR>
<TD ALIGN="right">標題</TD>
<TD ALIGN="left">
<INPUT NAME="title" SIZE=50>
</TD>
</TR>
<TR>
<TD ALIGN="right">内容</TD>
<TD ALIGN="left">
<TEXTAREA COLS=50 ROWS=4 NAME="message"></TEXTAREA>
</TD>
</TR>
<TR>
<TD></TD>
<TD>
<INPUT TYPE="submit" VALUE="送信">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
"new1.asp"ファイルに直接アクセスしてみます。図2.3のように表示されます。
図2.3
■「新規投稿」メニューの作成
フレーム"LIST"に「新規投稿」メニューを表示し、そこをクリックすると、同じくフレーム"LIST"に図2.3の"new1.asp"が表示されるようにします。
リスト2.3 list2.asp
<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>list2.asp</TITLE>
</HEAD>
<BODY>
【メニュー】
<A HREF="new1.asp" TARGET="LIST">新規投稿</A>
<BR><HR>
</BODY>
</HTML>
list2.aspファイルをフレーム"LIST"に初期表示するために、リスト2.2の"index1.asp"をリスト2.4の"index2.asp"に書き換えます。
リスト2.4 index2.asp
<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>index2.asp</TITLE>
</HEAD>
<FRAMESET ROWS="50%,50%">
<FRAME NAME="LIST" SRC="list2.asp">
<FRAME NAME="VIEW" SRC="view1.asp">
</FRAMESET>
</HTML>
"index2.asp"にアクセスすると図2.4が表示されます。
図2.4
「新規投稿」メニューをクリックすると、図2.5のように上段のフレーム"LIST"に新規投稿画面が表示されます。
図2.5
