1、写文件writefile.aspx
＜%'引入所需的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 & "
" )
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文件被成功删除！" )
%＞
