テキストファイル


  model.inc



  
<%
' **********************************************************
' データ読出し
' **********************************************************
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

%>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ