结合实例分析ASP文件上传原理(2)

　　FormData就是文件的内容了。 中间根据需要，可进行相应的处理。最后的工作就是将文件保存了。保存的方法可以有两种：一种是利用VB或VC之类程序中的二进制文件操作方法，在工程中加入适当的类型库，最终编译成DLL文件，使用时再将该DLL文件注册就可以了。文件存贮程序如下：

　　Public Function SaveFile(Pathname As String) As String

　　Dim objContext As ObjectContext

　　Dim objRequest As Request

　　Set objContext=GetObjectContext()

　　Set objRequest=objContext("Request")

　　'以下的一段代码是进行文件存贮的有关操作

　　Dim FormData() As Byte,CLStr,DivStr

　　Dim DataStart As Long,DataSize As Long

　　DataSize=objRequest.TotalBytes

　　Redim FormData(DataSize-1)

　　FormData=objRequest.BinaryRead(DataSize)

　　CLStr=ChrB(13) & ChrB(10)

　　DataStart=InStrB(FormData,CLStr & CLStr)+4

　　DivStr=LeftB(FormData,InStrB(FormData,CLStr)-1)

　　DataSize=InStrB(DataStart+1,FormData,DivStr)-DataStart-2

　　FormData=MidB(FormData,DataStart,DataSize)

　　'创建一个二进制文件并将FormData写入其中

　　Open Pathname For Binary As 1

　　Put #1,,FormData

　　Close #1

　　SaveFile="OK!"

　　End Function

　　第二种方法是利用ADO STREAM中提供的二进制文件操作方法来完成，保存文件的语句是： StreamOBJ.SaveToFile (fileName,2)。在 这种操作中，我们可以将有关的操作存放在一个类文件中，在应用时，直接将该类文件包含在ASP程序中就可以了。具体处理方法，请参阅有关介绍。