＜input id = " loFile " type = " file " runat = " server " ＞
＜form method = " post " enctype =" multipart/form-data " runat = " server "＞
＜/form ＞
1.获得上传文件的名称：（关键是PostedFile类的应用）
使用Path类中的GetFileName方法，具体如下：
lstrFileName = loFile.PostedFile.FileName
' 注： loFile.PostedFile.FileName 返回的是通过文件对话框选择的文件名，
这之中包含了文件的目录信息
lstrFileName = Path.GetFileName ( lstrFileName )
' 去掉目录信息，返回文件名称
（2）. 判断上传目录是否存在，不存在就建立
建立目录要使用到Directory类中的 CreateDirectory 方法，判断目录是否存在要用到 Directory 类中的Exists方法。具体如下：
If ( not Directory.Exists( lstrFileFolder ) ) Then
Directory.CreateDirectory ( lstrFileFolder )
End If
' 注：lstrFileFolder是用户填入的目录名称，或者是缺省的目录名称
＜四＞．上传选定文件到服务器上
在前面工作都已经完成以后，就可以上传文件了，上传文件相对比较简单，就用下面2行语句就可以完成上传工作。
lstrFileNamePath = lstrFileFolder & lstrFileName
' 得到上传目录及文件名称
loFile.PostedFile.SaveAs ( lstrFileNamePath )
'上传文件到服务器
＜五＞．获得并显示上传文件的属性
FileName.Text = lstrFileName
' 获得文件名称
FileType.Text = loFile.PostedFile.ContentType
'获得文件类型
FileLength.Text = cStr ( loFile.PostedFile.ContentLength )
'获得文件长度
FileUploadForm.visible = false
AnswerMsg.visible = true
'显示上传文件属性
＜% @ Import Namespace=" System.IO " %＞
＜html ＞
＜BODY ＞
＜SCRIPT LANGUAGE = "VB" RUNAT = "SERVER" ＞
Sub UploadFile_Clicked ( Sender as Object, e as EventArgs )
Dim lstrFileName as string
Dim lstrFileNamePath as string
Dim lstrFileFolder as string
' 如果上传目录为空，就使用" c:\ "作为缺省上传目录
' 获得上传到服务器的目录名称
if dir.value ＜＞ "" then
lstrFileFolder = dir.value
else
lstrFileFolder = "c:\"
end if
' 获得文件名称
lstrFileName = loFile.PostedFile.FileName
下面介绍实现方法：
一、拖拉一个Menu控件
这个控件是负责控件各个选项卡的，也就是最终呈现在用户面前的界面，并且我们指定每个选项卡的图片。
代码：
<asp:Menu ID="Menu1" runat="server" onmenuitemclick="Menu1_MenuItemClick"
Orientati ......
