|
u p d a t e h i s t o r y
<< 2002 update history
<%
Response.ExpiresAbsolute = Now() - 1
dim whichfile
dim fs
dim rekishi
dim thisline
dim i
' whichfile=Server.MapPath("rekishi.txt")
whichfile="/home/users/a/ayashi.net-36084/public_html/rekishi.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set rekishi = fs.OpenTextFile(whichfile, 1, False)
do while not rekishi.AtEndOfStream
i=1
do while i>0
thisline=rekishi.readline
if (instr(thisline,"--")=1) then
i=0
end if
select case i
case 0
response.write "" & chr(13)
response.write "
" & chr(13)
case 1
response.write "" & thisline & "" & chr(13)
response.write "" & chr(13)
i=i+1
case else
response.write thisline & "
" & chr(13)
i=i+1
end select
loop
loop
rekishi.close
set fs=nothing
%>
<< 2002 update history
| |
|
<% if jp then %>
<% else %>
<% end if %>