fso.asp

网上商城的设计与实现

<%
'//将文本文件文本写入到一变量
  Function ReadForTxtFile(File)
    Dim ObjFso,ObjFile
	Dim Result
	Result = ""
    Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
	FileName = server.MapPath(File)
	If ObjFso.FileExists(FileName) Then
	   set ObjFile = ObjFso.OpenTextFile(FileName,1,False)
	   Result = ObjFile.ReadAll()
	   ObjFile.Close()
	   Set ObjFile = Nothing
	End If
	Set ObjFso = Nothing
	ReadForTxtFile = Result
  End Function

  '//将变量s写入文本文件
  Sub WriteForTxtFile(S,File)
  Dim ObjFso,ObjFile
  Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")  
  FileName = server.MapPath(File)
  If ObjFso.FileExists(FileName) Then
       set ObjFile = ObjFso.OpenTextFile(FileName,2,True)
	   ObjFile.Write(S)
	   ObjFile.Close()
	   Set ObjFile = Nothing
  End If
    Set ObjFso = Nothing
  End Sub

%>