爬求ASP图片上传代码及详细解释

网上搜一下，太多了。

这是我自己按无惧改的，只能上传jpg的，你可以改
<%
If Request.TotalBytes < 1 Then '如果没有数据上传
response.write "请先选择你要上传的文件！"
response.End()
End If
If Request.TotalBytes > 1024*1024 Then
response.write "你上传的文件总大小超出了最大限制（1M）"
response.End()
End If

call upload

sub upload()
dim bCrLf,sSpace,iStart ,iInfoEnd,iFormStart,iFindStart ,iFindEnd,sFileName,FileName,FilePath, FileExt
Set tStream = Server.CreateObject ("ADODB.Stream")
Set oUpFileStream = Server.CreateObject ("ADODB.Stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead (Request.TotalBytes)
oUpFileStream.Position = 0
RequestBinData = oUpFileStream.Read
iFormEnd = oUpFileStream.Size'所有读取的数据大小
bCrLf = ChrB (13) & ChrB (10)'取得每个项目之间的分隔符
sSpace = MidB (RequestBinData,1, InStrB (1