- ベストアンサー
フォームの値をHTMLファイルに出力する方法について
- 「1.htm」で入力された値を「2.asp」でCドライブにHTMLファイルとして出力する方法について教えてください。
- 現在、出力がうまく行っていない状況です。
- また、タグの表示方法もわかりません。
- smorgas030
- お礼率85% (231/269)
- Microsoft ASP
- 回答数3
- ありがとう数2
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
> 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 %>
その他の回答 (2)
- blackpocke
- ベストアンサー率100% (1/1)
Writeメソッドの引数に出力したい文字列を指定するだけです。 改行を入れたいのであれば、WriteLineメソッドを使うと良いでしょう。 ts.WriteLine "<table>" ts.WriteLine "<tr><td>テスト</td></tr>" ts.WriteLine "<tr><td>" & strWriteText & "</td></tr>" ts.WriteLine "</table>"
- blackpocke
- ベストアンサー率100% (1/1)
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>
お礼
回答ありがとうございます。 以下のようにしましたが、うまく出力できません。 どこがおかしいのでしょうか。 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 よろしければご教授ください。