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