test.asp网页
<form name="FORM" action="upload.asp" method="post">
<input type="submit" name="submit" value="OK">
     <input type="file" name="file1" style="width:400"  value="">
</form>
upload.asp网页
<%
Function GetFileName(ByVal strFile)
  If strFile <> "" Then
   GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
  Else
   GetFileName = ""
  End If
End  function

strFileName = Request.Form("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
*objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>
上传的时候提示写入文件失败，是怎么回事。提示在打*这一行。