全部答案

2018-04-26 14:22:48

•   上传分为几个页面来的,所以你最好看完我写给你的东东,,你要仔细看。。。 
  这样你最好是加我百度HI,我用HI传给你,就两个文件。在这里说一大通,你可能还是不会明白。。。  
   
   
   
   
  这是上传第一个页面  
   
    
   上传课程:   
    
  点击上传 （允许格式为avi|wmv|mov|rm|rmvb|wma）  
    
   
  你看到那个NAME没?你在写入数据时,就把它写进去就可以了,你点那个点击上传,就会另外弹出一个小窗口页面,那个页面名就叫upfile。
    htm,这一段你可以加到你想要加的地方  
   
   
   
   
   
  第二个页面:弹出小窗口进行上传的页面,也就是upfile。
    htm页面  
   
    
   
    
   
    
   
   
    
     
    
    
    
    
   
    
    
  这个页面是让你选择上传文件来的,然后把你选择的文件一些值传到upfile_flash。
    asp?id=id这个页面进行处理  
   
   
   
   
   
  最后第三个页面upfile_flash。asp,也就是处理页面了  
    
    
   
    
    
  文件上传  
    
    
   
    
   
    
   
    
   
  "" then  
  GuFolderPath=upload。
    form("GuFolderPath")  
  call FolderNameCheck(GuFolderPath)  
  GuFolderPath=upload。form("GuFolderPath")  
  if right(GuFolderPath,1)"" then  
  GuFolderPath=GuFolder0  
  call FolderNameCheck(GuFolderPath)  
  GuFolderPath=GuFolder0  
  if right(GuFolderPath,1)0 then  
   
  dim FileExtF,FileExtY,FileExtOK,ii,jj  
  FileExtF=split(File。
    FileName,"。")  
  for jj=0 to ubound(FileExtF)  
  next  
  FileExtY=0  
  FileExtOK=split(GuFileExt0,"|")  
   
  for ii=0 to ubound(FileExtOK)  
  if FileExtOK(ii)=FileExtF(jj-1) then  
  FileExtY=1  
  exit for  
  end if  
  next  
   
  if FileExtY=0 then  
  response。
    Write "上传失败，不允许上传的文件类型"  
   
  elseif file。FileSize>GuFileSize0*1024 then  
  response。Write "上传失败，单个文件大小超过限制，最大"&GuFileSize0&"*1024 字节，1K=1024字节"  
   
  else  
  dim FileNameOK  
  if GuAutoName="1" then  
  FileNameOK=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&iCount&"。
    "&FileExtF(jj-1)  
  else  
  FileNameOK=file。FileName  
  end if  
   
  file。SaveAs Server。
    mappath(GuFolderPath&FileNameOK) '保存文件  
   
  dim pictext  
  '标题: upload。form("pictext")  
  'call savedata(file。
    FileName,file。FileSize)  
  Response。write ""  
  'iCount=iCount 1  
   
  end if  
   
  else  
  response。
    Write "上传失败，请选择要上传的文件"  
   
  end if  
   
  set file=nothing  
   
  next  
   
  set upload=nothing  
   
  'response。
    Write "上传成功!"  
   
   
  Sub FolderNameCheck(FolderNameNew)  
   
  dim Letters,i,c  
  Letters=" =:;,[]0 then  
  Htmend "上传失败，文件夹名称含有特殊字符"  
  end if  
  next  
   
  GuFolderPath=server。
    MapPath(GuFolderPath)  
  Set fso=Server。CreateObject("Scripting。FileSystemObject")  
  if fso。FolderExists(GuFolderPath)=false then  
  fso。
    CreateFolder(GuFolderPath)  
  end if  
  Set fso=nothing  
   
  End sub  
   
  %>  
    
    
   
  这当中有一个很重要的地方,你一定要注意,就是在这一段中Response。
    write ""  
   
  你看到有个zuoyeup没有?传值的名字来的,这个名字一定要与要写入数据的名字一样,不然,就无法将获取得到的图片地址传到第一个页面的框框中,反正你再看看上面第一个页面哪里有这个名字的,你要改名字的,这两个地方都要一样的名字就是了。
      
   
   
   
  第四个,upload_5xsoft。inc页面内容 
  。

  全部
  

  倔***

  2018-04-26 14:22:48

  24 17 评论

  分享
  提交评论