ASP中实现文件上传方法的研究

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程序中就可以了。具体处理方法，请参阅有关介绍。

（编辑：佛山站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!