aspÉÏ´«±£´æ·¾¶

VBScript code:

Public Function SaveAs(Fullpath)
Dim dr
SaveAs = false
If trim(fullpath) = "" Or FileStart = 0 Or FileName = "" Or right(fullpath,1) = "/" Then Exit Function

NewFileName = GetFileNameByPath(fullpath)

Set dr = CreateObject("Adodb.Stream")
dr.Mode = 3
dr.Type = 1
dr.Open
DoteyUpload_SourceData.position = FileStart
DoteyUpload_SourceData.copyto dr, FileSize
dr.SaveToFile MapPath(FullPath), 2
dr.Close
set dr = nothing
SaveAs = true
End function


ÕâÊÇASP±£´æÉÏ´«ÎļþµÄ·½·¨£¡ÄÇô˭֪µÀÎÒ¸ÃÔÚ·þÎñÆ÷ÄǸöµØ·½½¨Á¢Îļþ¼ÐÓÃÀ´±£´æÎļþ£¿£¿{{