図2.6
図2.7
２．３ 新規投稿データの受信
リスト2.4 input1.asp
<%@ LANGUAGE="VBScript" %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>input1.asp</TITLE>
</HEAD>
<BODY>
<%
Const FOR_DEBUG = "<BR>Debug(input1.asp):"
Dim lngMessageNum '記事番号
Dim dtmMessageTime '記事投稿日時
Dim strName '記事投稿者名
Dim strTitle '記事標題
Dim strMessage '記事内容
'新規投稿画面("new1.asp")からのデータ受信
strName = Request("name")
strTitle = Request("title")
strMessage = Request("message")
'受信データの確認表示
Response.Write FOR_DEBUG & "strName=" & strName & "<BR>"
Response.Write FOR_DEBUG & "strTitle=" & strTitle & "<BR>"
Response.Write FOR_DEBUG & "strMessage=" & strMessage & "<BR>"
%>
</BODY>
</HTML>
図2.6
図2.7