《支持中文的无组件文件上传》-- 示例

网络整理 - 09-14

关键词：ASP, 组件Components

  文件：uploadtest.asp
  <html>
  <head>
  <title>Untitled Document</title>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  </head>

  <body bgcolor="#FFFFFF">
  <form method="post" enctype="multipart/form-data" action="showdata.asp">
   <p>text1:
   <input type="text">
   </p>
   <p>text2:
   <input type="text">
   </p>
   <p>txtarea:
   <textarea cols="20" rows="10"></textarea>
   </p>
   <p>file:
   <input type="file">
   </p>
   <p>
   <input type="submit" value="Submit">
   <input type="reset" value="Reset">
   </p>
  </form>
  </body>
  </html>

  文件：showdata.asp
  
   <%
   'Fields("xxx").Name 取得Form中xxx(Form Object)的名字
   'Fields("xxx").FilePath 如果是file Object 取得文件的完整路径
   'Fields("xxx").FileName 如果是file Object 取得文件名
   'Fields("xxx").ContentType 如果是file Object 取得文件的类型
   'Fields("xxx").Length 取得Form中xxx(Form Object)的数据长度
   'Fields("xxx").Value 取得Form中xxx(Form Object)的数据内容
   Dim FormData,FormSize
   FormSize=Request.TotalBytes
   FormData=Request.BinaryRead(FormSize)
   Set Fields = GetUpload(FormData)
   response.write "text1:" & Fields("text1").Value & "<br>" & VbCrLf
   response.write "text2:" & Fields("text2").Value & "<br>" & VbCrLf
   response.write "textarea:" & Fields("textfield").Value & "<br>" & VbCrLf
   response.write Fields("newfile").FileName
   response.write Fields("newfile").ContentType
   Response.ContentType = Fields("newfile").ContentType
   If Fields("newfile").FileName<>"" Then
   Response.ContentType = Fields("newfile").ContentType
   response.binarywrite Fields("newfile").Value
   End If

   'Response.BinaryWrite FormData
   %>
   (chinaasp)