案例分析(第四章AP与组件应用).doc

案例分析(第四章 ASP与组件应用) ? ??案例分析以典型示例为据，重点分析程序特点及注意事项，点击每例后的(看运行结果)可以在本环境中显示结果，增强了案例的直观性。本部分重点介绍了以下几个案例：在线个人主页编辑器、简单的BBS文章发布、网站广告的处理 、普通文件上传 、EMAIL发送 例4-1：创建一个文件??? ?(看运行结果) %path=server.mappath(/)filename=path/test.txt Set MyFileObject=Server.CreateObject(Scripting.FileSystemObject)Set MyTextFile=MyFileObject.CreateTextFile(filename)MyTextFile.WriteLine(我在当前的目录创建了一个叫test.txt的文件)MytextFile.Close% 例4-2：写入多行的信息?????(看运行结果)% path=server.mappath(/)filename=path/test.txt Set MyFileObject=Server.CreateObject(Scripting.FileSystemObject)Set MyTextFile=MyFileObject.CreateTextFile(filename)For i=1 to 32MyTextFile.WriteLine(Hello World!)NextMyTextFile.Close% 例4-3：读取文件的内容????(看运行结果)%path=server.mappath(/)filename=path/test.txtSet MyFileObject=Server.CreateObject(Scripting.FileSystemObject)Set MyTextFile=MyFileObject.OpenTextFile(filename)While not MyTextFile.AtEndOfStreamResponse.Write(MyTextFile.ReadLine)WendMyTextFile.Close% 例4-4：Read函数的使用?????(看运行结果)%path=server.mappath(/)filename=path/test.txtSet MyFileObject=Server.CreateObject(Scripting.FileSystemObject)Set MyTextFile=MyFileObject.OpenTextFile(filename)While NOT MyTextFile.AtEndOfLineResponse.Write(MyTextFile.Read(1))WENDMyTextFile.Close% 例4-5：写入Log文件????(看运行结果)%path=server.mappath(/)filename=path/test.logSet MyFileObject=Server.CreateObject(Scripting.FileSystemObject)Set MyTextFile=MyFileObject.OpenTextFile(filename,8,TRUE)MyTextFile.WriteLine(Request.ServerVariables(HTTP_USER_AGENT))MyTextFile.Close% 例4-6：操作文件?????(看运行结果)%创建一个FileSystemObject的事例Set MyFileObject=Server.CreateObject(Scripting.FileSystemObject)创建一个要进行操作的文件Set MyFile=MyFileObject.CreateTextFile(c:\test.txt)MyFile.WriteLine(Hello)MyFile.Close复制文件操作MyFileObject.CopyFile c:\test.txt,c:\test2.txt移动文件操作MyFileObject.MoveFile c:\test.txt, c:\test3.txt删除这些文件MyFileObject.DeleteFile c:\test.txtMyFileObject.DeleteFile c:\test3.txt% 例4-7：使用File对象??????(看运行结果)%创建一个FileSystemObject对象的事例Set MyFileObject=Server.Create