问:空间里USER目录里有个上传组件文件名“upload_5xsoft.inc”,该文件上传到空间后内容立即被清空。造成整站程序相应功能无法运行。请告知原因。谢谢!—–upload_5xsoft.inc 文件内容—<%dim Data_5xsoft
Private Sub Class_Initialize dim ,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile dim ,sFilePath,sFileType,sFormValue,sFileName dim ,iFindEnd dim ,iFormEnd,sFormName Version=\”化境HTTP上传程序 2.0\” set objForm=server=demo(\”Scripting.Dictionary\”) set objFile=server=demo(\”Scripting.Dictionary\”) if Request.TotalBytes<1 then Exit Sub set = server=demo(\”adodb.stream\”) set Data_5xsoft = server=demo(\”adodb.stream\”) Data_5xsoft.Type = 1 Data_5xsoft.Mode =3 Data_5xsoft.Open Data_5xsoft.Write Request.BinaryRead(Request.TotalBytes) Data_5xsoft.Position=0 =Data_5xsoft.Read
= 1 = LenB(RequestData) = chrB(13) & chrB(10) = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1) = LenB (sStart) iFormStart=iFormStart iStart 1 while (iFormStart 10) < = InStrB(iFormStart,RequestData,vbCrlf & vbCrlf) 3 tStream.Type = 1 tStream.Mode =3 tStream.Open Data_5xsoft.Position = Data_5xsoft.CopyTo ,tart tStream.Position = 0 tStream.Type = 2 tStream.Charset =\”\” sInfo = tStream.ReadText tStream.Close \’取得表单项目名称 = InStrB(iInfoEnd,RequestData,sStart) = InStr(22,sInfo,\”name=\”\”\”,1) 6 = InStr(iFindStart,sInfo,\”\”\”\”,1) = lcase(Mid (sinfo,iFindStart,tart)) \’如果是文件 if InStr (45,sInfo,\”filename=\”\”\”,1) > 0 then set theFile=new \’取得文件名 = InStr(iFindEnd,sInfo,\”filename=\”\”\”,1) 10 = InStr(iFindStart,sInfo,\”\”\”\”,1) = Mid (sinfo,iFindStart,tart) theFile.FileName=getFileName(sFileName) theFile.FilePath=getFilePath(sFileName) \’取得文件类型 = InStr(iFindEnd,sInfo,\”Content-Type: \”,1) 14 = InStr(iFindStart,sInfo,vbCr) theFile.FileType =Mid (sinfo,iFindStart,tart) theFile.FileStart =iInfoEnd theFile.FileSize = -iInfoEnd -3 theFile.FormName=sFormName if not objFile.Exists(sFormName) then objFile.add ,theFile end if else \’如果是表单项目 tStream.Type =1 tStream.Mode =3 tStream.Open Data_5xsoft.Position = Data_5xsoft.CopyTo ,iFnd-3 tStream.Position = 0 tStream.Type = 2 tStream.Charset =\”\” = tStream.ReadText tStream.Close if objForm.Exists(sFormName) then objForm(sFormName)=objForm(sFormName)&\”, \”& else objForm.Add ,sFormValue end if end if iFormStart=iFormStart iStart 1 wend RequestData=\”\” set =nothingEnd Sub
Private Sub Class_Terminate if Request.TotalBytes>0 then objForm.RemoveAll objFile.RemoveAll set objForm=nothing set objFile=nothing Data_5xsoft.Close set Data_5xsoft =nothing end ifEnd Sub function GetFilePath(FullPath) If <> \”\” Then = left(FullPath,InStrRev(FullPath, \”\\\”)) Else = \”\” End If End function GetFileName(FullPath) If <> \”\” Then = mid(FullPath,InStrRev(FullPath, \”\\\”) 1) Else = \”\” End If End Class
Class dim ,FileName,FilePath,FileSize,FileType,FileStart Sub Class_Initialize = \”\” = \”\” = 0 FileStart= 0 = \”\” = \”\” End Sub function SaveAs(FullPath) dim dr,ErrorChar,i SaveAs=true if trim(fullpath)=\”\” or FileStart=0 or FileName=\”\” or right(fullpath,1)=\”/\” then exit set dr=CreateObject(\”Adodb.Stream\”) dr.Mode=3 dr.Type=1 dr.Open Data_5xsoft.position=FileStart Data_5xsoft.copyto dr,FileSize dr.SaveToFile ,2 dr.Close set dr=nothing SaveAs=false end End Class%>结束,空间里目录里有个上传组件文件名
答:您好,
非常感谢您对我司的支持,谢谢!
西部数码(west.cn)是经工信部、ICANN、CNNIC认证审批,持有ISP、云牌照、IDC、CDN、顶级域名注册商等全业务资质的正规老牌服务商,自成立至今20余年专注于域名注册、虚拟主机、云服务器、企业邮箱、企业建站等互联网基础服务!
截止目前,已经为超过2000万个域名提供了注册、解析等服务,是中国五星级域名注册注册商!已为超过50万个网站提供了高速稳定的云托管服务,获评中国最受用户喜欢云主机服务商。
西部数码提供全方位7X24H专业售后支撑,域名注册特价1元起,高速稳定云主机45元起,更多详情请浏览西部数码官网:https://www.west.cn/