求助HtmlInputFile控件不能上传：（在线等：）

这是错误提示，初学ASP。NET，特请教呦：）说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。源错误:
行 1：  <script runat="server">
行 2：  sub B1_Click(s as Object,e as EventArgs)
行 3：   inpFileUp.PostedFile.SaveAs("c:\upload\newfile.jpg")
行 4：  end sub
行 5：  </script>
源文件: E:\asp4\NewASP.net\HtmlInputFile.aspx    行: 3 堆栈跟踪:
[NullReferenceException: 未将对象引用设置到对象的实例。]
   ASP.HtmlInputFile_aspx.B1_Click(Object s, EventArgs e) in E:\asp4\NewASP.net\HtmlInputFile.aspx:3
   System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
   System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +57
   System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18
   System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
   System.Web.UI.Page.ProcessRequestMain() +1263

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

做一下判断看看！
if(inpFileUp.PostedFile != null && inpFileUp.PostedFile.FileName.Length>0)
{
inpFileUp.PostedFile.SaveAs("c:\upload\newfile.jpg")
}
这是c#的了，看看是不是这里错误！我记着以前也犯过的了！
不行再说了！
加上这句
encType="multipart/form-data"
<form id="adddoc" method="post" encType="multipart/form-data" runat="server">
加上这句
encType="multipart/form-data"
<form id="adddoc" method="post" encType="multipart/form-data" runat="server">

这句我加了呀：（
就是上面的呀，
<script runat="server">
sub B1_Click(s as Object,e as EventArgs)
inpFileUp.PostedFile.SaveAs("c:\upload\newfile.jpg")
end sub
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>HtmlInputFile</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</head>
<body MS_POSITIONING="GridLayout">
<form id="Form1" enctype="mulitpart/form-data" method="post" runat="server">
<input id="inpFileUp" type="file" runat="server">
<asp:Button Text="upload" Runat="server" OnClick="B1_Click" />
</form>
</body>
</html>
inpFileUp.PostedFile.SaveAs("c:\upload\newfile.jpg")---错误
后台代码这样写
Dim UpLoadFile As HttpPostedFile
        i = Request.Files.Count
        For i = 0 To Request.Files.Count - 1
            UpLoadFile = Request.Files(i)
            temp = Session("Directory") + Path.GetFileName(UpLoadFile.FileName)
            UpLoadFile.SaveAs(temp)
        Next
Dim UpFile As HttpPostedFile
UpFile = inpFileUp.PostedFile;
UpFile.SaveAs("c:\upload\newfile.jpg")
异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。
还是不行：（
还是用codebehind吧
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="111.aspx.vb" Inherits="vb1._111"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>_111</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server" encType="multipart/form-data">
<FONT face="宋体">
<asp:Button id="Button1" style="Z-INDEX: 101; LEFT: 272px; POSITION: absolute; TOP: 112px" runat="server" Text="Button"></asp:Button>
<INPUT style="Z-INDEX: 102; LEFT: 16px; POSITION: absolute; TOP: 112px" type="file" runat="server" id="uf"></FONT>
</form>
</body>
</HTML>
Public Class _111
    Inherits System.Web.UI.Page
    Protected WithEvents uf As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim UpFile As HttpPostedFile
        UpFile = uf.PostedFile
        UpFile.SaveAs("c:\upload\newfile.jpg")
    End Sub
End Class