問(wèn)：空間里USER目錄里有個(gè)上傳組件文件名“upload_5xsoft.inc”，該文件上傳到空間后內(nèi)容立即被清空。造成整站程序相應(yīng)功能無(wú)法運(yùn)行。請(qǐng)告知原因。謝謝！—–upload_5xsoft.inc 文件內(nèi)容—<%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 \’取得表單項(xiàng)目名稱 = 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 \’如果是表單項(xiàng)目 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%>結(jié)束,空間里目錄里有個(gè)上傳組件文件名
截止目前，已經(jīng)為超過(guò)2000萬(wàn)個(gè)域名提供了注冊(cè)、解析等服務(wù)，是中國(guó)五星級(jí)域名注冊(cè)注冊(cè)商！已為超過(guò)50萬(wàn)個(gè)網(wǎng)站提供了高速穩(wěn)定的云托管服務(wù)，獲評(píng)中國(guó)最受用戶喜歡云主機(jī)服務(wù)商。
西部數(shù)碼提供全方位7X24H專業(yè)售后支撐，域名注冊(cè)特價(jià)1元起，高速穩(wěn)定云主機(jī)45元起，更多詳情請(qǐng)瀏覽西部數(shù)碼官網(wǎng)：http://www.ps-sw.cn/
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享網(wǎng)絡(luò)內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-62778877-8306；郵箱：fanjiao@west.cn。本站原創(chuàng)內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明出處：
西部數(shù)碼知識(shí)庫(kù) »
空間里目錄里有個(gè)上傳組件文件名