新手请教：文件上传的问题。错误信息和代码如下。

代码如下 ：＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
<%@ import namespace="system.data.oledb"%>
<%@ import namespace="system.data"%>
<script language="vb" runat=server>
sub uploadfile(sender as object,e as eventargs)
dim filesplit() as string=split(vocfile.postedfile.filename,"\")
dim filename as string =filesplit(filesplit.length-1)
vocfile.postedfile.saveas(server.mappath(".") & "\upload\" & filename)
end sub
</script>
<HTML>
<HEAD>
<title>吼吼</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 enctype="multipart/form-data" runat=server>

<input type=file runat=server id="vocfile"><br><br>
<asp:Button Runat=server ID="upload" OnClick="uploadfile" Text="上传"></asp:Button>
</form>
</body>
</HTML>＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊