。%'引入所需的NameSpace%>
。%@ Import Namespace="System.IO" %>
。%
Response.write("將內容寫入aspnet.txt文件中
")
'聲明一個StreamWriter對象
Dim strwriterobj As StreamWriter
'新建一個文本文件,賦值給StreamWriter對象
strwriterobj= File.CreateText("c:\aspnet.txt")
'向文件中寫內容
strwriterobj.WriteLine( "歡迎加入ASP.NET 開發的隊伍!" )
'關閉對象
strwriterobj.Close
Response.write("文件成功寫入")
%>
2、讀文件readfile.aspx
。%@ Import Namespace="System.IO" %>
。%
Response.write("讀取asp.net文件中的內容
")
'聲明一個StreamReader對象
Dim streamreaderobj As StreamReader
'聲明一個變量保存讀出的內容
Dim filecont As String
'打開文件賦值到StreamReader對象
streamreaderobj = File.OpenText( "c:\aspnet.txt" )
'按行循環讀取文件內容
Do
filecont = streamreaderobj.ReadLine()
If filecont="" Then
Response.Write( filecont )
Else
Response.Write( filecont amp; "
" )
End If
Loop Until filecont = ""
'關閉StreamReader對象
streamreaderobj.Close
Response.write("已經讀完aspnet.txt文件的內容")
%>
3、刪除文件Filedelete.aspx
。%@ Import Namespace="System.IO" %>
。%
'刪除文件
File.Delete("c:\aspnet.txt" )
Response.write("aspnet文件被成功刪除!" )
%>

延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/