body{margin:0;padding-left:2px}<%Response.Charset="gb2312"Response.Buffer=TrueResponse.ExpiresAbsolute=Now()-1Response.Expires=0Response.CacheControl="no-cache"Response.AddHeader"Pragma","No-Cache"dimoUpFileStreamClassupload_file dimForm,File,Version PrivateSubClass_Initialize '定义变量 dimRequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo dimiFileSize,sFilePath,sFileType,sFormvalue,sFileName dimiFindStart,iFindEnd dimiFormStart,iFormEnd,sFormName '代码开始 Version="无组件上传类Version0.96" setForm=Server.CreateObject("Scripting.Dictionary") setFile=Server.CreateObject("Scripting.Dictionary") ifRequest.TotalBytes&l