>  'response.Write err.Description
  End Function
  
  Function GetFileName(str)
  '-------------------------本函数为合格化的文件名函数-------------------
  str = Replace(lcase(str),"http://","")
  str = Replace(lcase(str),"//","/")
  str = Replace(str,"/","")
  str = replace(str,vbcrlf,"")
  GetFileName = str
  End Function
  
  sub SaveFile(str,fName)
  '-------------------------本函数为将流内容存盘的函数-------------------
  'on error resume next
  Set objStream = Server.CreateObject("ADODB.Stream")
  '--------------建立ADODB.Stream对象，必须要ADO 2.5以上版本---------
  objStream.Type = adTypeBinary
  '-------------以二进制模式打开-------------------------------------
  objStream.Open
  objstream.write str
  '--------------------将字符串内容写入缓冲--------------------------
  'response.Write fname
  objstream.SaveToFile "c:\inetpub\myweb\uploadfile\cache\" & fName,adSaveCreateOverWrite
  '--------------------将缓冲的内容写入文件--------------------------
  'response.BinaryWrite objstream.Read
  objstream.Close()
  set objstream = nothing
  '-----------------------关闭对象，释放资源-------------------------
  'response.Write err.Description
  End sub
  %>

上一页  [1] [2] [3] 

在google里搜索更多远程获取内容，并将内容存在本地电脑上，包括任何文件

	Web www.51ec.org

上一篇信息学院： 使用NextRecordset通过一个Connection输出多个select查询

下一篇信息学院： 一个分页存储过程