View Source Code

View Source Code

SourceFileName = "samples/banana.asp"

C:\inetpub\wwwroot\aspsample\samples\banana.asp




<%
Moji0 = " "
Moji00 = " "
Moji = Request.Form("moji")
If Moji = "" Or Moji0 = "" Then
   Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=x-sjis'>"
   Response.Write "<title>ＷｅｂＢａＮａＮａ</title></head><body>"
   Response.Write "<p><big><big><strong>ＷｅｂＢａＮａＮａ</strong></big></big></p>"
   Response.Write "前にここに来た人が残した下の言葉から、あなたが連想した言葉を<br>書いて下さい。書かないと、全部見れませんよ！<br><br>"
' 入力フォーム始まり
   Call MaeMoji0
   Response.Write "<FONT SIZE=5 COLOR=#FF0000>" & Session("Moji0") & "</FONT>といったら"
   Response.Write "<form action='banana.asp' method='POST'><input type='text' name='moji' size='40'>"
   Response.Write "<p><input type='submit' value='書き込みする' name='Go'> <input type='reset' value='消去'><br></p></form></body></html>"
' 入力フォーム終わり
Else
   Set objFile = Server.CreateObject("Scripting.FileSystemObject")
   LogFile = Server.MapPath("_exc\banana.txt")
   FormFile = Server.MapPath("banana.asp")
   Set InStream = objFile.OpenTextFile(LogFile, 1, False)
   DupFlg = 0
   Do While InStream.AtEndOfLine<>True
     Edate1 = InStream.ReadLine
     buf1 = InStream.ReadLine
     Rem Response.Write buf1 & "/" & moji & "/" & (moji = buf1) & "<BR>"
     If moji = buf1 Then
       DupFlg = 1
       Exit Do
     End if
   Loop
   InStream.Close
   If DupFlg = 1 Then
     Response.Write "<big><big>WebMasterに突っ込まれました！</big></big><BR><BR>前にあなたと同じような発想をした人がいるようです。発想し直してください。<BR>"
   Else
     Call MaeMoji00
     If Session("Moji0") <> Session("Moji00") Then
       Response.Write "<big><big>WebMasterに突っ込まれました！</big></big><BR><BR>残念、タイムオーバーです。すでに、誰かが連想してしまったようです。一度戻って，再読み込みを行ってください。<BR>"
     Else
       Response.Write "<html><head><title>連想してくれてありがとう！</title></head><body bgcolor='#FFFFFF'><p>　</p><p>連想してくれてありがとう！</p><p>あなたの連想に至った経緯をご覧ください。見終わったら、<A HREF='http://www3.cnet.ne.jp/userid/banana.asp'>ここをクリックする</A>ことで前のページに戻ります。あなたの言葉から何が連想されていくのか、たまに見に来てください。</p>"

       Call Write
       Call Disp
       Response.Write "</body></html>"
     End if
   End if
End if

%>

<script LANGUAGE="VBScript" RUNAT="Server">

Sub MaeMoji0

   Set objFile = Server.CreateObject("Scripting.FileSystemObject")
   LogFile = Server.MapPath("_exc\banana.txt")
   FormFile = Server.MapPath("banana.asp")

   On Error Resume Next

   Set InStream = objFile.OpenTextFile(LogFile, 1, False)

   If Err <> 0 Then
     Select Case Err
       Case 53
         Set InStream = objFile.CreateTextFile(LogFile,False,False)
           InStream.WriteLine FormatDateTime(now(), vbShortDate)
           InStream.WriteLine "バナナ"
           InStream.Close
           Set InStream = objFile.OpenTextFile(LogFile, 1, FALSE)
           Err.Clear
       Case Else
       Response.Write("エラー元: " & Err.Source & "<BR>")
         Response.Write("エラー番号: " & Err.Number & "<BR>")
       Response.Write("エラーの説明: " & Err.Description & "<BR>")
           Err.Clear
     End Select
   End if

   Edate0 = InStream.ReadLine
   Moji0 = InStream.ReadLine
   Session("Moji0") = Moji0
   InStream.Close

End Sub

Sub MaeMoji00

   Set objFile = Server.CreateObject("Scripting.FileSystemObject")
   LogFile = Server.MapPath("_exc\banana.txt")
   FormFile = Server.MapPath("banana.asp")
   Set InStream = objFile.OpenTextFile(LogFile, 1, False)
   Edate00 = InStream.ReadLine
   Moji00 = InStream.ReadLine
   Session("Moji00") = Moji00
   InStream.Close

End Sub

Sub Write
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
LogFile = Server.MapPath("_exc\banana.txt")
FormFile = Server.MapPath("banana.asp")
EDate = FormatDateTime(now(), vbShortDate)

Set InStream = objFile.OpenTextFile(LogFile, 1, False)
sOldLog = InStream.ReadAll
iNo = InStream.line
InStream.Close

Set fs = CreateObject("Scripting.FileSystemObject")
Set OutStream = fs.CreateTextFile("c:\InetPub\wwwroot\userid\_exc\banana.txt", True)
OutStream.WriteLine Edate
OutStream.WriteLine Moji
OutStream.Write sOldLog
OutStream.Close

End Sub

Sub Disp

Set objFile = Server.CreateObject("Scripting.FileSystemObject")
LogFile = Server.MapPath("_exc\banana.txt")
FormFile = Server.MapPath("banana.asp")
Set InStream = objFile.OpenTextFile(LogFile, 1, False)

'Response.Write buf & "<HR>"
Edate0 = InStream.ReadLine
buf0 = InStream.ReadLine
maxline=100
linecount = 1
Do While InStream.AtEndOfLine<>True
  if linecount>=maxline then
   exit Do
  end if
  Edate1 = InStream.ReadLine
  buf1 = InStream.ReadLine
  ' 下の2行で、HTML文の投稿をHTMLとして動作させない様にできる。
  buf1 = Replace(buf1, "<" , "<")
  buf1 = Replace(buf1, ">" , ">")
  Response.Write "<FONT SIZE=4 COLOR=#FF0000>" & Edate1 & "</FONT>　<FONT SIZE=4 COLOR=#0000FF>" & buf1 & "</FONT>　といったら　<FONT SIZE=4 COLOR=#0000FF>" & buf0 & "</FONT><HR>" & Chr(13) & Chr(10)
  buf0 = buf1
  linecount = linecount+1
Loop
InStream.Close

End Sub
</script>