空间里目录里有个上传组件文件名

问：空间里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 =nothingend ifend sub function getfilepath(fullpath) if <> \”\” then = left(fullpath,instrrev(fullpath, \”\\\”)) else = \”\” end ifend function getfilename(fullpath) if <> \”\” then = mid(fullpath,instrrev(fullpath, \”\\\”) 1) else = \”\” end ifend 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%>结束,空间里目录里有个上传组件文件名
答：您好，
非常感谢您对我司的支持，谢谢！


权重与反链的密码亲密关系
降低网站跳出率的方法有哪些
企业做网站设计要注意什么呢
详谈电子商务网站建设需求分析
详细分析营销型企业网站的优势
网站建设有几大类？
杭州做网站教您几招判别网站的真伪和合法性
浏览器兼容性问题