在ASP.NET中操作文件的例子
利用SYSTEM.IO 名空间中的STREAMWRITER,STREAMREADER及FILE类,完成文件读、写、删除的操作。
--------------------------------------------------------------------------------
1、写文件
writefile.aspx
<%@ Import Namespace="System.IO" %> '引入所需的NameSpace
<%
Response.write("Writing the content into Text File in ASP.NET <BR>")
Dim strwriterobj As StreamWriter '声明一个StreamWriter对象
strwriterobj= File.CreateText("c:\aspnet.txt") '新建一个文本文件,赋值给StreamWriter对象
strwriterobj.WriteLine( "Welcome to wonderfull world of ASP.NET Programming" )
'向文件中写内容
strwriterobj.Close '关闭对象
Response.write("Done with the creation of text file and writing content into it")
%>
2、读文件
readfile.aspx
<%@ Import Namespace="System.IO" %>
<%
Response.write("Reading the content from the text file ASPNET.TXT
")
Dim streamreaderobj As StreamReader '声明一个StreamReader对象
Dim filecont As String '声明一个变量保存读出的内容
streamreaderobj = File.OpenText( "c:\aspnet.txt" ) '打开文件赋值到StreamReader对象
Do '按行循环读取文件内容
filecont = streamreaderobj.ReadLine()
Response.Write( filecont & "
" )
Loop Until filecont = ""
streamreaderobj.Close '关闭StreamReader对象
Response.write("
Done with reading the content from the file aspnet.txt")
%>
3、删除文件
Filedelete.aspx
<%@ Import Namespace="System.IO" %>
<%
File.Delete("c:\aspnet.txt" ) '删除文件
Response.write("The File aspnet is deleted successfully !!!" )
%>
--------------------------------------------------------------------------------
1、写文件
writefile.aspx
<%@ Import Namespace="System.IO" %> '引入所需的NameSpace
<%
Response.write("Writing the content into Text File in ASP.NET <BR>")
Dim strwriterobj As StreamWriter '声明一个StreamWriter对象
strwriterobj= File.CreateText("c:\aspnet.txt") '新建一个文本文件,赋值给StreamWriter对象
strwriterobj.WriteLine( "Welcome to wonderfull world of ASP.NET Programming" )
'向文件中写内容
strwriterobj.Close '关闭对象
Response.write("Done with the creation of text file and writing content into it")
%>
2、读文件
readfile.aspx
<%@ Import Namespace="System.IO" %>
<%
Response.write("Reading the content from the text file ASPNET.TXT
")
Dim streamreaderobj As StreamReader '声明一个StreamReader对象
Dim filecont As String '声明一个变量保存读出的内容
streamreaderobj = File.OpenText( "c:\aspnet.txt" ) '打开文件赋值到StreamReader对象
Do '按行循环读取文件内容
filecont = streamreaderobj.ReadLine()
Response.Write( filecont & "
" )
Loop Until filecont = ""
streamreaderobj.Close '关闭StreamReader对象
Response.write("
Done with reading the content from the file aspnet.txt")
%>
3、删除文件
Filedelete.aspx
<%@ Import Namespace="System.IO" %>
<%
File.Delete("c:\aspnet.txt" ) '删除文件
Response.write("The File aspnet is deleted successfully !!!" )
%>