上传图片到服务器如何写代码?答:' 上传组件开关 ' 参数:IsOpenUpLoad,1 = 打开,0 = 关闭 Const IsOpenUpLoad = 1 If IsOpenUpLoad <> 1 Then Exit Sub ' --- Dim RequestBinData, sSpace, bCrLf, sInfo, iInfoStart, iInfoEnd, tStream, iStart, oFileInfo Dim iFileSize, sFilePath, sFileType, sFormValue, sFi...