代码改成
Dim str As String = "http://127.0.0.1/images/新建文件夹/啊啊啊.jpg"
str = UrlEncode(str)
str = str.Replace("%3a", ":").Replace("%2f", "/")
msgbox(str)
-------------------
If dr.IsNull("附件") = False Then
With .AddUploader("up1","附件",True)
.AllowAdd = False '关闭文件上传功能
For Each sst As String In dr.Lines("附件")
sst = "http://61.128.254.170:20200/d:/ftp" & sst
sst = sst.Replace("\\","/")
sst = sst.Replace("\","/")
str = UrlEncode(sst)
str = str.Replace("%3a", ":").Replace("%2f", "/")
.AddImage(str, str)
Next
End With
End If
加好友 
发短信
Post By：2017/7/13 12:18:00 [只看该作者]
