strJS = strJS & "parent.document.myform.DefaultPicUrl.value='"&"http://"&SiteUrl&"/"& fileName & "';" & vbCrLf
添加 并合成完整网址
strJS = strJS & "parent.document.myform.DefaultPicUrl.value='"&"http://"&SiteUrl&"/"& fileName & "';" & vbCrLf
添加 并合成完整网址