• 惊坛一周汇总:稳定农产品价格,政府和市场谁都不能“旷课” 2019-08-17
  • 次平:年楚河的守护者 2019-08-16
  • 青海“天然林管护+生态扶贫” 5517万亩天然林得到保护 2019-08-16
  • 重庆一景区给大象包粽子,这么大的粽子怎么包呢? 2019-08-12
  • vivo NEX五大核心黑科技曝光 或售3798元 2019-07-12
  • 三沙市委书记、市长肖杰做客人民网 2019-07-04
  • 习近平在视察北部战区海军时强调 贯彻转型建设要求 锻造海上精兵劲旅 2019-07-04
  • 西北政法大学英语六级考试听力异常 回应:正调查 2019-07-03
  • 国美618小家电-热门标签-华商网数码 2019-07-03
  • 一样的端午 不一样的记忆:在校园中品悟传统文化教育变迁 2019-07-02
  • 南宁市开展国家宪法日宣传活动 2019-06-26
  • 烽火巾帼:山西妇女为抗日救国顶起“半边天” 2019-06-26
  • 省旅游集团组织集团本部全体党员瞻仰金寨红军广场 2019-06-09
  • 山东京博控股股份有限公司党委书记、董事长马韵升获第十二届人民企业社会责任奖年度人物奖 2019-06-08
  • 4月日照市启动2018年环保执法“利剑”行动 2019-06-07
  • 你现在的位置: 047期内部一肖中特 > 资讯中心 > 正文

    kindeditor远程图片本地化插件

    文章来源: 047期内部一肖中特 www.tjcvg.tw 编辑:网站管理员 发布日期: 2013-3-16 13:16:31 浏览次数:
    更多

    047期内部一肖中特 www.tjcvg.tw 实例为最新版本的kindeditor 4.1.5.

    主要程序:

    <%
    Const sFileExt="jpg|gif|bmp|png"
    Function ReplaceRemoteUrl(sHTML, sSaveFilePath, sFileExt)
         Dim s_Content
         s_Content = sHTML
         If IsObjInstalled("Microsof" & "t.X" & "MLHTTP") = False then
             ReplaceRemoteUrl = s_Content
             Exit Function
         End If     
         Dim re, RemoteFile, RemoteFileurl,SaveFileName,SaveFileType,arrSaveFileNameS,arrSaveFileName,sSaveFilePaths
         Set re = new RegExp
         re.IgnoreCase = True
         re.Global = True
         re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\){1}((\w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3})(\S*\/)((\S)+[.]{1}(" & sFileExt & ")))"
         Set RemoteFile = re.Execute(s_Content)
         For Each RemoteFileurl in RemoteFile
    		 arrSaveFileName = Split(RemoteFileurl,".")
      		 SaveFileType=arrSaveFileName(UBound(arrSaveFileName))
    		 RanNum=Int(900*Rnd)+100
             arrSaveFileName = Year(Now()) & Right("0" & Month(Now()),2)&  Right("0" & Day(Now()),2) & Right("0" & Hour(Now()),2) & Right("0" & Minute(Now()),2) & Right("0" & Second(Now()),2) &ranNum&"."&SaveFileType
      sSaveFilePaths= sSaveFilePath
             SaveFileName = sSaveFilePaths & arrSaveFileName 
    		 if SaveRemoteFile(""&SaveFileName&"",""&RemoteFileurl&"") then 
    		 response.Write ""&SaveFileName&" 图片保存成功. <br />"
    		 s_Content = Replace(s_Content,RemoteFileurl,SaveFileName)
    		 else 
    		 Response.write ""&RemoteFileurl&" 图片保存<font color='#FF0000'>失败</font>.<br />" 
    		 end if
         Next
         ReplaceRemoteUrl = s_Content
    End Function
    
    function SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl)
         Dim Ads, Retrieval, GetRemoteData
         On Error Resume Next
         Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP")
         With Retrieval
             .Open "Get", s_RemoteFileUrl, False, "", ""
             .Send
             GetRemoteData = .ResponseBody
         End With
         Set Retrieval = Nothing
         Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") 
         With Ads
             .Type = 1
             .Open
             .Write GetRemoteData
             .SaveToFile Server.MapPath(s_LocalFileName), 2
             .Cancel()
             .Close()
         End With
         Set Ads=nothing	 
    	 if err <> 0 then 
    	 SaveRemoteFile = false 
    	 err.clear 
    	 else 
    	 SaveRemoteFile = true 
    	 end if
    End Function
    Function IsObjInstalled(s_ClassString)
         On Error Resume Next
         IsObjInstalled = False
         Err = 0
         Dim xTestObj
         Set xTestObj = Server.CreateObject(s_ClassString)
         If 0 = Err Then IsObjInstalled = True
         Set xTestObj = Nothing
         Err = 0
    End Function
    %>

     

    在编辑框下加入代码:

    <input name="sSaveFileSelect" type="checkbox"  id="sSaveFileSelect" value="1">保存远程图片到本地

    提交保存代码:

    <%
    sSaveFileSelect=request.Form("sSaveFileSelect")
    sub_content=request.form("content")
    if sSaveFileSelect=1 then
    Set fso=Server.CreateObject("Scripting.FileSystemObject")
    yy=right(year(date),4)
    mm=right("00"&month(date),2)
    dd=right("00"&day(date),2)
    uploaddate=yy&mm&dd
    uploadpath="../uploadfiles/image/"&uploaddate&"/"
    If Not fso.FolderExists(Server.mappath(uploadpath)) Then
      fso.CreateFolder(Server.mappath(uploadpath))
    End If
    content=ReplaceRemoteUrl(sub_content,uploadpath,sFileExt)
    else
    content=sub_content
    end if
    %>

    程序打包下载:点此下载



    业务联系

    梁先生 Victor Leong

    8:30-17:30(周一至周六)

    0750-678 2240

    (推销和广告电话请勿打扰)

    日志分类

  • 惊坛一周汇总:稳定农产品价格,政府和市场谁都不能“旷课” 2019-08-17
  • 次平:年楚河的守护者 2019-08-16
  • 青海“天然林管护+生态扶贫” 5517万亩天然林得到保护 2019-08-16
  • 重庆一景区给大象包粽子,这么大的粽子怎么包呢? 2019-08-12
  • vivo NEX五大核心黑科技曝光 或售3798元 2019-07-12
  • 三沙市委书记、市长肖杰做客人民网 2019-07-04
  • 习近平在视察北部战区海军时强调 贯彻转型建设要求 锻造海上精兵劲旅 2019-07-04
  • 西北政法大学英语六级考试听力异常 回应:正调查 2019-07-03
  • 国美618小家电-热门标签-华商网数码 2019-07-03
  • 一样的端午 不一样的记忆:在校园中品悟传统文化教育变迁 2019-07-02
  • 南宁市开展国家宪法日宣传活动 2019-06-26
  • 烽火巾帼:山西妇女为抗日救国顶起“半边天” 2019-06-26
  • 省旅游集团组织集团本部全体党员瞻仰金寨红军广场 2019-06-09
  • 山东京博控股股份有限公司党委书记、董事长马韵升获第十二届人民企业社会责任奖年度人物奖 2019-06-08
  • 4月日照市启动2018年环保执法“利剑”行动 2019-06-07
  • 吉林时时大案 山东群英会20选5走势图 广东麻将技巧 吉林快三怎么网上购买 体彩大乐透专家预测号码 篮彩专家推荐 体彩任选9场 快乐12辽宁手机版 3d单选单复式投注表 picsart制作透扇