問:空間里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%>結束,空間里目錄里有個上傳組件文件名
答:您好,
非常感謝您對我司的支持,謝謝!
三五互聯(35.com)是經工信部、ICANN、CNNIC認證審批,持有ISP、云牌照、IDC、CDN、頂級域名注冊商等全業務資質的正規老牌服務商,自成立至今20余年專注于域名注冊、虛擬主機、云服務器、企業郵箱、企業建站等互聯網基礎服務!
截止目前,已經為超過2000萬個域名提供了注冊、解析等服務,是中國五星級域名注冊注冊商!已為超過50萬個網站提供了高速穩定的云托管服務,獲評中國最受用戶喜歡云主機服務商。
三五互聯提供全方位7X24H專業售后支撐,域名注冊特價1元起,高速穩定云主機45元起,更多詳情請瀏覽三五互聯官網:http://www.shinetop.cn/