ASP OpenAsTextStream ·½·¨

¶¨ÒåºÍÓ÷¨

OpenAsTextStream ·½·¨´ò¿ªÖ¸¶¨µÄÎļþ£¬²¢·µ»ØÒ»¸ö¹©·ÃÎÊ´ËÎļþµÄ TextStream ¶ÔÏó¡£

Óï·¨£º

FileObject.OpenAsTextStream(mode,format)
²ÎÊý ÃèÊö
mode ¿ÉÑ¡µÄ¡£ÈçºÎ´ò¿ªÎļþ£¨ÊäÈë/Êä³öģʽ£©¡£
  • 1 = ForReading - ÒÔÖ»¶Áģʽ´ò¿ªÎļþ¡£²»ÄܶԴËÎļþ½øÐÐд²Ù×÷¡£
  • 2 = ForWriting - ÒԿɶÁдģʽ´ò¿ªÎļþ¡£Èç¹ûÒÑ´æÔÚͬÃûµÄÎļþ£¬Ôò¸²¸Ç¾ÉµÄÎļþ¡£
  • 8 = ForAppending - ´ò¿ªÎļþ²¢ÔÚÎļþĩβ½øÐÐд²Ù×÷¡£
format ¿ÉÑ¡µÄ¡£ÒÔºÎÖÖ¸ñʽ´ò¿ªÎļþ¡£ºöÂԴ˲ÎÊý£¬ÔòÎļþÒÔ ASCII ¸ñʽ´ò¿ª¡£
  • 0 = TristateFalse - ĬÈÏ¡£ÒÔ ASCII ¸ñʽ´ò¿ªÎļþ¡£
  • -1 = TristateTrue - ÒÔ Unicode Îļþ´ò¿ªÎļþ¡£
  • -2 = TristateUseDefault - ʹÓÃϵͳĬÈϸñʽ´ò¿ªÎļþ¡£

ʵÀý

<%
dim fs,f,ts
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFile("c:\test.txt")
Set ts=f.OpenAsTextStream(ForWriting)
ts.Write("Hello World!")
ts.Close

Set ts=f.OpenAsTextStream(ForReading)
Response.Write(ts.ReadAll)
ts.Close
set ts=nothing
set f=nothing
set fs=nothing
%>

Êä³ö£º

Hello World!
VUE