test-asp/response.asp

ソース

このソースをダウンロードする。
<% 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>
戻る