用ASP实现多图片上传到指定目录并存储数据库

核心提示： else mFormValue="" end if form.Add mFormName,mFormValue end if iFormStart=iformEnd+iDivLen iFormEnd=inString(iformStart,strDiv)-1 wend End Sub P

　　　　　 else
　　　　　　mFormValue="" 
　　　　　 end if
　　　　　 form.Add mFormName,mFormValue
　　　　　end if
　　　　
　　　　　iFormStart=iformEnd+iDivLen
　　　　　iFormEnd=inString(iformStart,strDiv)-1
　　　　wend
End Sub

Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_5xSoft_Stream.Position=theStart-1
stemp=""
for i=1 to theLen
　 if upfile_5xSoft_Stream.EOS then Exit for
　 c=ascB(upfile_5xSoft_Stream.Read(1))
　 If c > 127 Then
　　if upfile_5xSoft_Stream.EOS then Exit for
　　stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
　　i=i+1
　 else
　　stemp=stemp&Chr(c)
　 End If
Next
subString=stemp
End function

Private Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to upfile_5xSoft_Stream.Size-theLen
　 if i>upfile_5xSoft_Stream.size then exit Function
　 upfile_5xSoft_Stream.Position=i-1
　 if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then
　　InString=i
　　for j=2 to theLen
　　　if upfile_5xSoft_Stream.EOS then 
　　　　inString=0
　　　　Exit for
　　　end if
　　　if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then
　　　　InString=0
　　　　Exit For
　　　end if
　　next
　　if InString<>0 then Exit Function
　 end if
next
End Function

Private Sub Class_Terminate　
　form.RemoveAll
　file.RemoveAll
　set form=nothing
　set file=nothing
　upfile_5xSoft_Stream.close
　set upfile_5xSoft_Stream=nothing
End Sub
　 

Private function GetFilePath(FullPath)
　If FullPath <> "" Then
　 GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
　Else
　 GetFilePath = ""
　End If
End　function

Private function GetFileName(FullPath)
　If FullPath <> "" Then
　 GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
　Else
　 GetFileName = ""