<%@ Import Namespace="System" %>  
<%@ Import Namespace="System.Web.HttpPostedFile" %>  
<%@ Import Namespace="System.Web.UI.HtmlControls.HtmlInputFile" %>  
<%
  'www.yemaosheng.com
  Response.expires   =   0      
  Response.addHeader("pragma","no-cache")    
  Response.addHeader("cache-control","private")
  Response.CacheControl   =   "no-cache"
  dim i=0
  if request.queryString("state")="" then
    For i=0 to Request.Files.Count-1  
      '使用Request.Files()来逐个获取上传的文件  
      dim myFile as HttpPostedFile=Request.Files(i)  
      response.write(request.Form("text_desc"))
      myFile.SaveAs(Server.MapPath(".") & "\upload\" & myFile.FileName)
    Next
  end if
%>
<form action="" method="post" enctype="multipart/form-data" name="form_file" id="form_file">
  <textarea name="text_desc" id="text_desc"></textarea>
  <input type="file" name="filename">
  <input type="hidden" name="state" value="1">
  <input type="hidden" name="site" value="yemaosheng.com">
  <input type="submit" name="Submit" value="Submit">
</form>