を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>感想をテキストファイルに書き込む</title>
</head>
<body>
<h2>感想をテキストファイルに書き込む</h2>
test022-1.asp<br>
<hr>
<% Call DATA_WRITE() %>
<hr>
<h3>感想記入どうもです</h3>
test022.txtへ書き込み終了です。<br>
<A HREF="test022.txt" TARGET="_blank">test022.txtを見る</A><br>
</body>
</html>
<% '気分で関数化して、外側に出してみた
Sub DATA_WRITE()
'未記入でデータが送られて来たかチェックする
If IsEmpty(Request.Form("t-kanso")) = True Then
Exit Sub '関数を抜ける
End If
'感想そのままでボタンが押されたか？を左６文字が"ここにご意見"で判断
If Left(Request.Form("t-kanso"),6) = "ここにご意見" Then
Exit Sub '関数を抜ける
End If
'FileSystemObjectを生成します
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'test022.txt を追加モードで開く
Set ts = objFS.OpenTextFile(Server.MapPath("test022.txt"), 8, True)
'ファイルにデータを書き込む
ts.write Now & "," '時刻
ts.write Left(Request.Form("kakushi"),8) & "," '隠し項目の入力場所を書く
ts.write Left(Request.Form("t-name"),8) & "," '名前を書く
'感想の改行を<BR>に置換える
Dim strKANSO
'受け取ったt-kanso内の改行を<br>に置換える
strKANSO = Replace(Request.Form("t-kanso"), chr(13) & chr(10), "<br>")
' / と . を消す(宣伝書き込みが多いので、/と.をつぶす)
strKANSO = Replace(strKANSO, "/", "")
strKANSO = Replace(strKANSO, ".", "")
strKANSO = Replace(strKANSO, "http:", "")
strKANSO = Replace(strKANSO, "<", "")
strKANSO = Replace(strKANSO, ">", "")
ts.write strKANSO '変換した感想を書く
ts.write chr(13) & chr(10) '改行する
'使ったファイルは閉じようよ
ts.close
End Sub
%>
| 最近発売の雑誌を紹介する
パソコン雑誌です。息抜きや空いた時間に読んで見ては？
- DTP WORLD (ディーティーピー ワールド) 2008年 06月号
- Windows 100% 2008年 06月号
- 日経 PC (ピーシー) ビギナーズ 2008年 06月号
- PC Japan (ジャパン) 2008年 06月号
- Software Design (ソフトウエア デザイン) 2008年 06月号
- Web Designing (ウェブデザイニング) 2008年 06月号
- I/O (アイオー) 2008年 06月号
- 月刊 COMPUTERWORLD (コンピュータワールド) 2008年 07月号
|