フォームの値をHTMLファイルに出力したい

質問

「1.htm」で入力された値を
「2.asp」でCドライブにHTMLファイルとして出力したいと考えています。
しかし、うまく出力されません。
どなたかご教授お願いします。

***1.htm***
<form method="POST" action="2.asp">
<input name="text1" type="text">
</form>

***2.asp***
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.htm",8,True)
strWriteText = FormatDateTime( Now , vbGeneralDate ) & _
Request.Form("text1") & _
↑ここが表示されない。タグの表示方法もわかりません。
%>

回答No.3

blackpocke · ベストアンサー

> strWriteText = ts.WriteLine "<table>"
WriteLineメソッドには戻り値がないので、結果を変数に代入することはできません。

> ts.write strWriteText
ts.write strWriteText で一度に出力するのであれば、あらかじめ
strWriteTextに改行コードを含む全ての文字列を格納しておく必要があります。

色々な書き方がありますが、下記にサンプルを記しておきます。

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.htm",8,True)
strWriteText = FormatDateTime( Now , vbGeneralDate ) & _
Request.Form("text1")
ts.WriteLine "<table>"
ts.WriteLine "<tr><td>テスト</td></tr>"
ts.WriteLine "<tr><td>" & strWriteText & "</td></tr>"
ts.WriteLine "</table>"
ts.Close
%>

回答No.2

blackpocke

Writeメソッドの引数に出力したい文字列を指定するだけです。
改行を入れたいのであれば、WriteLineメソッドを使うと良いでしょう。

ts.WriteLine "<table>"
ts.WriteLine "<tr><td>テスト</td></tr>"
ts.WriteLine "<tr><td>" & strWriteText & "</td></tr>"
ts.WriteLine "</table>"

お礼

回答ありがとうございます。
以下のようにしましたが、うまく出力できません。
どこがおかしいのでしょうか。

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.htm",8,True)

strWriteText = ts.WriteLine "<table>"
ts.WriteLine "<tr><td>テスト</td></tr>"
ts.WriteLine "<tr><td>" & strWritetext1 & "</td></tr>"
ts.WriteLine "</table>"

ts.write strWriteText
ts.Close

よろしければご教授ください。

回答No.1

blackpocke

2.aspで表示するのではなく、別ファイルに出力するのですか？
それなら、

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.htm",8,True)
strWriteText = FormatDateTime( Now , vbGeneralDate ) & _
Request.Form("text1")
ts.write strWriteText

で、出力できます。(インターネットゲストアカウントに書き込み権限が必要です。)

2.aspで出力するなら
response.write strWriteText
で表示できます。

お礼

回答ありがとうございます。
文章がわかりにくくて申し訳ありません。
別ファイルで出力させたいと思っています。
教えていただいたようにやったらうまくできました。
ありがとうございました。
また、別ファイルですが、以下のように出力したいと考えています。
「text1」以外の部分はどのように、
記述したらいいのかわかりません。
よろしければご教授ください。
宜しくお願いします。

<table>
<tr><td>テスト</td></tr>
<tr><td>"text1"</td></tr>
</table>