|
<%
' **********************************************************
' データ読出し
' **********************************************************
Function GetData( )
End Function
' **********************************************************
' 書き込み
' **********************************************************
Function WriteData( )
Dim fp
OutData = Replace( MyData("In1Text"), vbCrLf, "<br>" )
Set fp = FsWriteOpen( Server.MapPath("Data.txt") )
Call fp.WriteLine( MyData("In1Text") )
Call FsClose( fp )
End Function
' **********************************************************
' 読み込み
' **********************************************************
Function ReadData( )
Dim fp
Set fp = FsReadOpen( Server.MapPath("Data.txt") )
OutData = Replace( fp.ReadAll(), vbCrLf, "<br>" )
Call FsClose( fp )
End Function
' **********************************************************
' VIEW の編集
' **********************************************************
Function EditDataHead( )
End Function
' **********************************************************
' VIEW2 の編集
' **********************************************************
Function EditDataBody( )
End Function
%>
| |