ASP自动采集程序实例

=xmlhttp.ResponseBody
      If lenb(file) > allowFileSize Then
        getFile = "文件太大，不能保存！"
        Exit Function
      Else
        Set objAdostream=Server.Createobject("ADODB.Str"&"eam")
        objAdostream.Open()
        objAdostream.Type=1
        objAdostream.Write(file)
        objAdostream.SaveToFile(Server.Mappath(uploadPath & folderName &"/" & newFilePath))
        objAdostream.SetEOS
        Set objAdostream=Nothing
        getFile= "<a href="/uploadfile/201210/17/4F8524311.gif"> 
 <input type="Submit" name="Submit" value="采集 " class="button">
</form>
<%end if%>