View Source Code

SourceFileName = "samples/chat/webchat.asp"

C:\inetpub\wwwroot\aspsample\samples\chat\webchat.asp

<%
 Select Case Request.QueryString("ACT")
    Case "WRITE"
       If Request.Form("NAME") & Request.Form("R1") <> "" Then
          Response.Cookies("userid-chat")("name") = Request.Form("NAME")
          Response.Cookies("userid-chat")("iro") = Request.Form("R1")
          Response.Cookies("userid-chat").Expires = Date + 30 '<-- クッキーの有効期限 (例は30日後)
       End if
 End Select
%>
<!-- 下記のuseridの部分をお客様のユーザーIDと置き換えて下さい。-->
<!-- 実行には、この「webchat.asp」の他に「read.stm」と「default.htm」「write.htm」も必要となります。 -->
<HTML>
<BODY BGCOLOR="#FEFFC1">
<%
log_file = "/userid/_exc/webchat.txt"
log_num = 30

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
LogFile = Server.MapPath(log_file)

NAME = Request.Form("NAME")
MESS = Request.Form("MESS")
IRO =  Request.Cookies("userid-chat")("iro")
If NAME = "" Or MESS = "" Then
              'Response.Write NAME & MESS & IRO
Response.Write "<FONT SIZE=6 COLOR=RED>全て入力して下さい。</FONT>"
Response.End
Else
NAME = Replace(NAME, "<", "<")
NAME = Replace(NAME, ">", ">")
MESS = Replace(MESS, "<", "<")
MESS = Replace(MESS, ">", ">")

nnow = now()
nHour = Hour(nnow)
nYear = Year(Now)
nMonth = Month(Now)
nDay = Day(Now)
If nHour < 10 Then nHour = "0" & nHour
nMinute = Minute(nnow)
nSecond = Second(nnow)
If nMinute < 10 Then nMinute = "0" & nMinute
DateTime = "　<i><font size=2>(" & Fnz(nYear,4) & "/" & Fnz(nMonth,2) & "/" & Fnz(nDay,2) & " " & Fnz(nHour,2) & ":" & Fnz(nMinute,2) & ":" & Fnz(nSecond,2) & ") </font></i>"
If MESS <> "(HR)" Then
  Wbuf = "<font size=3><font color='#" & IRO & "'><B>" & NAME & "　</B></font>" & MESS & "</font>" & DateTime & "<BR>" & vbNewLine
Else
  Wbuf = "<HR>"
End if
Set InStream = FileObject.OpenTextFile(LogFile, 1, False, False)
For i = 1 To log_num
If InStream.AtEndOfStream Then Exit For
Wbuf = Wbuf & InStream.ReadLine & vbNewLine
Next
Set InStream = Nothing
Set OutStream = FileObject.CreateTextFile(LogFile, True)
OutStream.WriteLine Wbuf
Set OutStream = Nothing
Response.Write "<FORM METHOD=POST ACTION='webchat.asp'><CENTER>"
Response.Write "<H3>WebChat ASP ver1.0</H3>"
Response.Write "<INPUT TYPE=HIDDEN NAME='NAME' VALUE=" & NAME & ">"
Response.Write "<TABLE BORDER=0><TR><TD ALIGN=LEFT>名前</TD><TD ALIGN=LEFT>メッセージ</TD></TR><TR>"
Response.Write "<TD ALIGN=LEFT>" & NAME & "</TD>"
Response.Write "<TD ALIGN=LEFT COLSPAN=2><INPUT NAME='MESS' SIZE=50 MAXLENGTH=200></TD></TR></TABLE><BR>"
Response.Write "<INPUT TYPE=SUBMIT VALUE='送信'>"
Response.Write "<INPUT TYPE=RESET VALUE='リセット'>"
Response.Write "</FORM>"
End If
%>
<DIV ALIGN=RIGHT>
<FONT SIZE=2>
<% Rem <B>WebChat ASP ver1.0</B> Copyright(C) 1998 <A HREF="http://www.forestnet.co.jp">Forest Co.,Ltd.</A>　Arrenged 2000 K.Nakajima %>
</FONT>
</DIV>
</BODY>
</HTML>


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

Function Fnz(iii,zzz)
If iii="" Then
   iii=0
End if
If zzz="" Then
   zzz=8
End if

Fnz = Mid(Cstr(10^zzz+iii),2,zzz)

End Function
</script>