A股上市公司传智教育(股票代码 003032)旗下技术交流社区北京昌平校区

 找回密码
 加入黑马

QQ登录

只需一步,快速开始

© 王海飞 黑马帝   /  2011-7-21 23:54  /  2816 人查看  /  7 人回复  /   0 人收藏 转载请遵从CC协议 禁止商业使用本文

我遇到一个问题,提交表单时不但要提交文本信息而且要上传图片,我想做在一个  
form中,由于要上传图片,这个form的entype要改为  enctype="multipart/form-data",  
     <form  method="post"  enctype="multipart/form-data"        action="upload.jsp">   
       这样写,文件可以上传,其他字段无法获取。  

     <form  method="get"  enctype="multipart/form-data"        action="upload.jsp">  
       这样写,文件无法上传,其他字段可以获取。  

     <form  method="post"          action="upload.jsp">  
       这样写,文件无法上传,其他字段可以获取。  

       我获取字段值的方法是request.getParameter("NewsTitle")  
       请教高手,有什么好的解决办法?

评分

参与人数 1技术分 +1 收起 理由
admin + 1 没明白你问的!

查看全部评分

7 个回复

倒序浏览
没明白你真正的意思,要是上传图片的话,那需要在服务器端用一个File 类型的变量来收,通过这个对象得到文件名。我觉着应该是File file = (File)request.getParameter("NewsTitle");获得文件信息,其次就是IO流的操作,将文件读进程序,然后再写到服务器磁盘上

评分

参与人数 1技术分 +1 收起 理由
admin + 1 希望你的答案能帮助到他!

查看全部评分

回复 使用道具 举报
黑马网友  发表于 2011-7-22 01:47:11
藤椅
这样方式提交数据,在服务器端是不能通过调用getParm方式获取数据的。因为客户端请求体的格式不再是
aa=xxxx&bb=yyyyyyy格式。而ServletRequest的getParm方法只能解析aa=xxxx&bb=yyyyyyy格式提交的参数。
事实上,multipart/form-data方式提交的请求体格式为这样:
1、
分隔符:-----------------------------7db2172320848
数据描述:Content-Disposition: form-data; name="author"
空行:
数据:zyb
2、
分隔符:-----------------------------7db2172320848
数据描述:Content-Disposition: form-data; name="description"
空行:
数据:Don't play any role, or the people and things that in two people with on the date when a redundant。
以上汉字是我对每行格式的解释。如此,便可看出普通的解析方法是不行的。但也是有规律的。Aphah提供了专门的解析工具
fileupload。你可用此包去完成的你的任务。方老在WEB中对此有很详细的讲解。

评分

参与人数 1技术分 +2 收起 理由
xiaolong + 2 新手报到!

查看全部评分

回复 使用道具 举报
1111111111111111111111111111111111111111
[ 本帖最后由 zybzyb1987 于 2011-07-22  01:50 编辑 ]
回复 使用道具 举报
黑马网友  发表于 2011-7-22 11:57:17
报纸
[code=java]<form method="post" action="/Library/BookServlet?method=insert" enctype="multipart/form-data" name="myform">
     <input type="file" name="file" />
     <input type="button" value="  取 消  " onClick="fun()">
</form>
SmartUpload  su=new SmartUpload();
                PageContext pageContext = JspFactory.getDefaultFactory().getPageContext(this, request, response, null,
                        true, 8192, true);
                //初始始化对象
                su.initialize(pageContext);
                //上传
                su.upload();
//获得所有上传的文件
                Files files=su.getFiles();
                //获得文件流中的第一个文件
                File f = files.getFile(0);
                //获得时间
                Date d=new Date();
                //获得随机数
                Random  r=new Random();
                //获得时间的毫秒数和4位数的随机数跟文件的后缀名
                String fn=d.getTime()+""+r.nextInt(1000)+"."+f.getFileExt();
                //将文件保存在项目中的路径的路径
                f.saveAs("/images/"+fn);[/code]这个是以前用的一个方法,意思是把上传的图片复制到项目中的一个文件夹,贴了以段代码给你看看,不晓得你是否用得着。
回复 使用道具 举报
黑马网友  发表于 2011-7-22 12:00:20
地板
页面JSP代码[code=java]<form method="post" action="/Library/BookServlet?method=insert" enctype="multipart/form-data" name="myform">
     <input type="file" name="file" />
     <input type="button" value="  取 消  " onClick="fun()">
</form>[/code]后台Servlet[code=java]SmartUpload  su=new SmartUpload();
                PageContext pageContext = JspFactory.getDefaultFactory().getPageContext(this, request, response, null,
                        true, 8192, true);
                //初始始化对象
                su.initialize(pageContext);
                //上传
                su.upload();
                //获得所有上传的文件
                Files files=su.getFiles();
                //获得文件流中的第一个文件
                File f = files.getFile(0);
                //获得时间
                Date d=new Date();
                //获得随机数
                Random  r=new Random();
                //获得时间的毫秒数和4位数的随机数跟文件的后缀名
                String fn=d.getTime()+""+r.nextInt(1000)+"."+f.getFileExt();
                //将文件保存在项目中的路径的路径
                f.saveAs("/images/"+fn);[/code]这个是以前用的一个有点那个的方法,意思是把上传的图片复制到项目中的一个文件夹,贴了以段代码给你看看,不晓得你是否用得着。

评分

参与人数 1技术分 +2 收起 理由
xiaolong + 2 希望你答案能帮助到他!

查看全部评分

回复 使用道具 举报
黑马网友  发表于 2011-7-22 12:44:43
7#
多百度一下,会找到很多参考代码,然后稍改就能搞定。
例:以服务端ASP代码为例

网页部分:[code=xml]<FORM   id= "FileEditForm "   Name= "FileEditForm "   Action= "UpdateFile.asp "   enctype= "multipart/form-data "   method= "post ">   
  <INPUT   id= "FileTitle "   Name= "FileTitle "   type= "text "   size=50   style= "background-color:   #ffffff;   font-family:   宋体;   font-size:   12px;   border-style:   groove;   border-width:   1 ">
  <INPUT   type= "file "   id= "IconPic "   Name= "IconPic "   value= " "   size= "39 "   style= "background-color:   #ffffff;   font-family:   宋体;   font-size:   12px;   border-style:   groove;   border-width:   1 ">     
  <INPUT   type= "submit "   value= "确 定 ">
</FORM> [/code]ASP部份
文件名:UpdateFile.asp
插不进VB脚本代码,用JAVA脚本代码器编辑,VB脚本部份可能有问题,你注意点看哈[code=jscript]<SCRIPT   RUNAT=SERVER   LANGUAGE= "JavaScript ">
function   getfileextraname(string_value)
{
  string_value=trim_spaces(string_value);
  var   index=string_value.length-1;

  while(index> =0&&string_value.charAt(index)!= ". ")
  {
    index--;
  }

  if(index!=-1)
  {
    return   string_value.substring(index+1,string_value.length)
  }
  else
  {
    return   " ";
  }
}

function   trim_spaces(string_value)
{
  var   start;
  var   end;

  start=0;
  end=string_value.length-1;

  while(string_value.charAt(start)== "   ")
  {
    start++;
  }   

  while(string_value.charAt(end)== "   ")
  {
    end--;
  }   

  return   string_value.substring(start,end+1);
}

function   get_newfilename()
{
  var   Date_obj=new   Date();
  return   "Adj "+Date_obj.getTime();
}
</SCRIPT>

<SCRIPT   RUNAT=SERVER   LANGUAGE= "VBScript ">
Function   GetFileName(FullPath)   
  FullPath=trim_spaces(FullPath)
  IF   FullPath <> " "   Then   
    FullPath=Replace(FullPath, "/ ", "\ ")
    GetFileName=mid(FullPath,InStrRev(FullPath, "\ ")+1)   
  Else   
    GetFileName= " "   
  End   IF   
End   Function   
</SCRIPT>

<%
  'VB 脚本部份代码,因回贴用的JSP代码模式,可能显示不方便,你自己看着办吧。
  Dim   objStream
  Dim   vbEnter,MAXFileSize

  Set   objStream=Server.CreateObject( "ADODB.Stream ")     
  objstream.mode=3
  objStream.Type=1
  objStream.Open     
  objstream.write   Request.BinaryRead(Request.TotalBytes)   
  vbEnter=Chr(13)&Chr(10)   

  MAXFileSize=1024*2048
  filesavepath= "UploadIMG/ "

  FileTitle=get_generalfield_value( "FileTitle ",1)   

  IconPicFileSize=get_filesize( "IconPic ")
  IF   IconPicFileSize> 0   And   IconPicFileSize <MAXFileSize   Then
    NewFileName=get_newfilename()
    IconPicSaveFileName=NewFileName& "IconPic "
    filesize=get_filedata_savetofile( "IconPic ",filesavepath,IconPicSaveFileName)
    IconPicFileType=filetype
    IF   IconPicFileType <> " "   Then
      IconPicFullFileName=NewFileName& "IconPic "& ". "&IconPicFileType
    Else
      IconPicFullFileName=NewFileName& "IconPic "
    End   IF
    IconPicFullPath=filesavepath&IconPicFullFileName
    Response.Write   "您上传的文本是: "&FileTitle& "
"
    Response.Write   "您上传的文件保存在服务器的路径为: "&IconPicFullPath     
  Else
    HTMLCode= " <Script> "
    HTMLCode=HTMLCode& "alert( '上传文件超过 "&MAXFileSize/1024& "K限制或文件不存在! '); "
    HTMLCode=HTMLCode& " </Script> "     
    Response.Write   HTMLCode
    Response.End   
  End   IF
  
  objStream.close
%>

<SCRIPT   RUNAT=SERVER   LANGUAGE= "VBScript ">
function   get_generalfield_value(fieldname,index)
  dim   startposition
  dim   endposition

  vbEnter=Chr(13)&Chr(10)   
  startposition=1
  for   i=1   to   index-1
    startposition=instring(startposition,fieldname)+len(fieldname)
  next

  get_generalfield_value= " "
  startposition=instring(startposition,fieldname)
  startposition=startposition+len(fieldname)+5
  endposition=instring(startposition,vbenter+ "----------------------------- ")
  if   startposition> 5+len(fieldname)   then
    get_generalfield_value=substring(startposition,endposition-startposition)
  end   if
end   function

function   get_filesize(fieldname)     '获得文件大小
  vbEnter=Chr(13)&Chr(10)   
  dim   startposition
  dim   endposition

  startposition=1
  startposition=instring(startposition,fieldname)
  startposition=startposition+len(fieldname)+13
  endposition=instring(startposition,vbenter)-1
  startposition=instring(endposition,vbenter+vbenter)+3
  endposition=instring(startposition,vbenter+ "----------------------------- ")
  get_filesize=endposition-startposition-1
end   function

function   get_filedata_savetofile(fieldname,paths,savefilename)           'fieldname为接收的名称,path为上传文件存放路径,该路径必须在服务器端已存在,否则upload.asp不能上载任何文件,savefilename为保存到服务器的文件名
  vbEnter=Chr(13)&Chr(10)   
  dim   startposition
  dim   endposition
  
  startposition=1
  startposition=instring(startposition,fieldname)
  startposition=startposition+len(fieldname)+13
  endposition=instring(startposition,vbenter)-1
  filename=substring(startposition,endposition-startposition)
  filename=getfilename(filename)
  filetype=getfileextraname(filename)
  startposition=instring(endposition,vbenter+vbenter)+3
  endposition=instring(startposition,vbenter+ "----------------------------- ")
  filestart=startposition
  filesize=endposition-startposition-1
  
  objstream.position=filestart
  Set   StreamObj   =   Server.CreateObject( "ADODB.Stream ")
  StreamObj.Mode=3   
  StreamObj.Type=1   
  StreamObj.Open   
  objstream.copyto   StreamObj,FileSize   
  savefilename=paths+savefilename+ ". "+filetype
  StreamObj.SaveToFile   server.mappath(savefilename),2
  get_filedata_savetofile=filesize
end   function

Private   function   GetFileName(FullPath)   
  If   FullPath   <>   " "   Then   
    GetFileName   =   mid(FullPath,InStrRev(FullPath,   "\ ")+1)   
  Else   
    GetFileName   =   " "   
  End   If   
End     function   

Function   inString(theStart,varStr)   
  dim   i,j,bt,theLen,str   
  InString=0   
  Str=toByte(varStr)   
  theLen=LenB(Str)   
  for   i=theStart   to   objStream.Size-theLen   
    if   i> objstream.size   then   exit   Function   
      objstream.Position=i-1   
      if   AscB(objstream.Read(1))=AscB(midB(Str,1))   then   
        InString=i   
        for   j=2   to   theLen   
            if   objstream.EOS   then     
                inString=0   
                Exit   for   
            end   if   
            if   AscB(objstream.Read(1)) <> AscB(MidB(Str,j,1))   then   
              InString=0   
              Exit   For   
            end   if   
        next   
        if   InString <> 0   then   Exit   Function   
      end   if
  next   
End   Function

function   toByte(Str)   
  dim   i,iCode,c,iLow,iHigh   
  toByte= " "   
  For   i=1   To   Len(Str)   
    c=mid(Str,i,1)   
    iCode   =Asc(c)   
    If   iCode <0   Then   iCode   =   iCode   +   65535   
      If   iCode> 255   Then   
        iLow   =   Left(Hex(Asc(c)),2)   
        iHigh   =Right(Hex(Asc(c)),2)   
        toByte   =   toByte   &   chrB( "&H "&iLow)   &   chrB( "&H "&iHigh)   
      Else   
      toByte   =   toByte   &   chrB(AscB(c))   
    End   If   
  Next   
End   function   

Function   subString(theStart,theLen)   
  dim   i,c,stemp   
  objStream.Position=theStart-1   
  stemp= " "   
  for   i=1   to   theLen   
    if   objStream.EOS   then   Exit   for   
      c=ascB(objStream.Read(1))   
      If   c   >   127   Then   
        if   objStream.EOS   then   Exit   for   
          stemp=stemp&Chr(AscW(ChrB(AscB(objStream.Read(1)))&ChrB(c)))   
          i=i+1   
        else   
          stemp=stemp&Chr(c)   
        End   If   
  Next   
  subString=stemp   
End   function   
</SCRIPT>[/code]

评分

参与人数 1技术分 +2 收起 理由
xiaolong + 2 代码满天飞!

查看全部评分

回复 使用道具 举报
黑马网友  发表于 2011-7-22 13:07:10
8#

回复 7 # 的帖子

哥们,这么长的代码,你打算刷屏啊
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 加入黑马