列表B
<%@ Page language="c#" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<html><head><title> TechRepublic File Upload Example </title>
</head>
<script language="c#" runat="server">
private void btnSubmit_Click(object o, EventArgs e) {
if (fileUpload.PostedFile != null) {
string uploadPath = "files";
string filename;
try {
if (fileUpload.PostedFile.ContentLength > 0) {
int pos = fileUpload.PostedFile.FileName.LastIndexOf("\\");
if (pos > 0)
filename = fileUpload.PostedFile.FileName.Substring(pos + 1);
else
filename = fileUpload.PostedFile.FileName;
Response.Write(Server.MapPath(uploadPath) + "\\" + filename);
fileUpload.PostedFile.SaveAs(Server.MapPath(uploadPath) + "\\" + filename);
} else
Response.Write("Empty file may not be uploaded.");
} catch (Exception ex) {
Response.Write("Error: " + ex.Message.ToString());
} } }
</script>
<body>
<h2 align="center">TechRepublic File Upload Example</h2>
<div id="divCenter" align="center">
<form id="frmFileUploadDemo" method="post" runat="server">
<input type="file" name="fileUpload" id="fileUpload" runat="server" size="50" />
<br /><br />
<input type="submit" id="btnSubmit" value="Submit" runat="server" OnServerClick="btnSubmit_Click" />
</form></div></body></html>
列表C
<%@ Page language="vb" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<html><head><title> TechRepublic File Upload Example </title>
</head>
<script language="vb" runat="server">
Sub btnSubmit_Click(o As Object, e As EventArgs)
If Not (fileUpload.PostedFile Is Nothing) Then
Dim uploadPath As String = "files"
Dim filename As String
Try
If (fileUpload.PostedFile.ContentLength > 0) Then
Dim pos As Integer
pos = fileUpload.PostedFile.FileName.LastIndexOf("\")
If (pos > 0) Then
filename = fileUpload.PostedFile.FileName.Substring(pos + 1)
Else
filename = fileUpload.PostedFile.FileName
End If
Response.Write(Server.MapPath(uploadPath) + "\" + filename)
fileUpload.PostedFile.SaveAs(Server.MapPath(uploadPath) + "\" + filename)
Else
Response.Write("Empty file may not be uploaded.")
End If
Catch ex As Exception
Response.Write("Error: " + ex.Message.ToString())
End Try
End If
End Sub
</script>
<body><h2 align="center">TechRepublic File Upload Example</h2>
<div id="divCenter" align="center">
<form id="frmFileUploadDemo" method="post" runat="server">
<input type="file" name="fileUpload" id="fileUpload" runat="server" size="50" />
<br /><br />
<input type="submit" id="btnSubmit" value="Submit" runat="server"
OnServerClick="btnSubmit_Click" />
</form></div></body></html>
其代码应用HtmlInputFile和HttpPostedFile类。这些类（及其集合）的完整路径为：
在输入文件元素时建立HtmlputFile对象（在我们的例子中为fileUpload）。文件由表单（与HtmlInputFile对象）提交到服务器时则建立HttpPostedFile对象。只有在页面的回传事件中，HttpPostedFile对象才有效。
