主题：复制文章时同时下载图片到服务器插件

Function saveimage(from)
    Dim geturl,objStream,imgs
    geturl=trim(from)
 Dim from_filename
 from_filename=Split(geturl,"/")
    imgs=getHTTPPage1(geturl) '取得图片的具休内容的过程
    Set objStream = Server.CreateObject("ADODB.Stream") '建立ADODB.Stream对象，必须要ADO 2.5以上版本
    objStream.Type =1 '以二进制模式打开
    objStream.Open
    objstream.write imgs '将字符串内容写入缓冲
    objstream.SaveToFile server.mappath(Createurlnewfile(from_filename(UBound(from_filename)))),2 '-将缓冲的内容写入文件
    objstream.Close()'关闭对象
    Set objstream=Nothing
End Function

Function getHTTPPage1(url)
    on error resume next
    Dim http
    Set http=server.createobject("MSXML2.XMLHTTP") ' 使用xmlhttp的方法来获得图片的内容
    Http.open "GET",url,false
    Http.send()
    If Http.readystate<>4 then
    Exit Function
    End If
    getHTTPPage1=Http.responseBody
    Set http=Nothing
    If err.number<>0 Then err.Clear
End Function
Function getHTTPPage(url)
    Dim Http
    Set Http=server.createobject("MSXML2.XMLHTTP")
    Http.open "GET",url,False
 On Error Resume Next
    Http.send()
    If Http.readystate<>4 Then
        Exit Function
    End if
    getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
    Set http=Nothing
    If err.number<>0 Then err.Clear
End Function
Function CreatePath(PathValue)
 Dim objFSO,Fsofolder,uploadpath
 '以年月创建上传文件夹，格式：2003－8
 uploadpath = year(now) & "-" & month(now)
 If Right(PathValue,1)<>"/" Then PathValue = PathValue&"/"
 On Error Resume Next
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(Server.MapPath(PathValue & uploadpath))=False Then
   objFSO.CreateFolder Server.MapPath(PathValue & uploadpath)
  End If
  If Err.Number = 0 Then
   CreatePath = PathValue & uploadpath & "/"
  Else
   CreatePath = PathValue
  End If
 Set objFSO = Nothing
End Function

'为使文件不重名，用系统时间+随机数，作为文件名  
Function Createurlnewfile(filename)
 Dim ranNum,CreateName
 Randomize
    ranNum=int(999*rnd)  
    CreateName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum  
 Createurlnewfile= CreatePath("uploadfile")&CreateName&filename
 all_pic_local=all_pic_local&Createurlnewfile&"|||"
End Function
'--------------------牛头增加发帖下载远程图片插件函数结束------------------------------