完善Easp.Http.SaveStringImgTo

Easp.Http.SaveStringImgTo在处理含有本地图片地址的html代码串的时候，会报错，
更改如下即可解决：
```
Public Function SaveStringImgTo(ByVal s, ByVal p)
  Dim a,b, path, i, img, ht, tmp, src
  path = Easp.Str.GetName(s_url, "?")
  path = Left(path, InStrRev(path,"/"))
  '取得图片地址
  a = GetImg(s, False)
  'Easp.Console GetImg(s, False)
  '取得图片标签
  b = GetImg(s, True)
  If Easp.Has(a) Then
    For i = 0 To Ubound(a)
      If Easp.Has(a(i)) Then
        If Instr(a(i),"http://") > 0 or Instr(a(i),"https://") > 0 Then
          If SaveRandom Then
            'img = Easp.Date.Format(Now,"ymmddhhiiss"&Easp.RandStr("5:0123456789")) & Mid(a(i),InstrRev(a(i),"."))
            If Instr(a(i),".")>0 Then
              img = Easp.NewID() & Mid(a(i),InstrRev(a(i),"."))
            Else
              img = Easp.NewID() & ".jpg"
            End If
          Else
            img = Mid(a(i),InstrRev(a(i),"/")+1)
          End If
          Set ht = Easp.Http.New
          On Error Resume Next
          ht.Get "UTF-8>" & TransPath(s_url, a(i))
          If Err.Number = 0 Then
            tmp = Easp.Fso.SaveAs(p & img, ht.Body)
          End If
          Set ht = Nothing
          If tmp Then
            src = Easp.Str.ReplacePart(b(i), "<img[^>]*?\s+src\s*=\s*((?:"")([^""]+)(?:"")|(?:')([^']+)(?:')|([^\s>]+))[^>]*>", "$1", """" & p & img & """")
            s = Replace(s, b(i), src)
          End If
        Else
          src = Easp.Str.ReplacePart(b(i), "<img[^>]*?\s+src\s*=\s*((?:"")([^""]+)(?:"")|(?:')([^']+)(?:')|([^\s>]+))[^>]*>", "$1", """" & a(i) & """")
          s = Replace(s, b(i), src)
        End If
      End If
    Next
  End If
  SaveStringImgTo = s
End Function
```

coldstone/easyasp

内容风险标识

评论 (1)

coldstone/easyasp .gitee-modal { width: 500px !important; }

内容风险标识