[ホーム] -> [http://www2.fclabs.net/hizlab] |
このソースをダウンロードする。
<% Option Explicit %> <% Response.Charset= "Shift_JIS" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <title>Enquete</title> </head> <body> <% Function main() Dim Name, EMail, Indust, Job, Recommend, Know, Outher Dim AllData Dim strMessage Name = Replace(Request.Form("Name"), """", """""") EMail = Replace(Request.Form("EMail"), """", """""") Indust = Replace(Request.Form("Indust"), """", """""") Job = Replace(Request.Form("Job"), """", """""") Recommend = Replace(Request.Form("Recommend"), """", """""") Know = Replace(Request.Form("Know"), """", """""") Outher = Replace(Request.Form("Outher"), """", """""") If Name = "" Then main = """氏名""の欄に値を入力してください。" Exit Function End If AllData = """" & Name & """," AllData = AllData & """" & EMail & """," AllData = AllData & """" & Indust & """," AllData = AllData & """" & Job & """," AllData = AllData & """" & Recommend & """," AllData = AllData & """" & Know & """," AllData = AllData & """" & Outher & """" Dim strFilename Dim FS, outStream Set FS = Server.CreateObject("Scripting.FileSystemObject") strFilename = "c:\data\questionnaire.csv" On Error Resume Next Set outStream = FS.OpenTextFile (strFilename, 8, True, 0) If Err.Number <> 0 Then main = "データを保存しておくための、ファイルが開けませんでした。" Exit Function End If outStream.WriteLine AllData outStream.Close main = "アンケートにご協力いただき、ありがとうございました。" End Function %> <p align="center"> <% = main() %> </p> </body> </html>