台灣最大程式設計社群網站
線上人數
2138
 
會員總數:246098
討論主題:189672
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 使用ASP內定的上傳元件
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
使用ASP內定的上傳元件
價值 : 0 QP  點閱數:1259 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
下列範例取自 : 王國榮 著作 ASP.NET 網頁製作教材

<Html>
<Body BgColor=White>
<H3>檔案上傳 <Hr></H3>

<Form Enctype="multipart/form-data" runat="server">
請輸入完整路徑檔案名稱:
<Input Type="File" id="FileUp1" runat="server" size="50">
<Input Type="File" id="FileUp2" runat="server" size="50">
<Input Type="File" id="FileUp3" runat="server" size="50">
<asp:button runat="server" Text="Upload" OnClick="UploadFile" />
<Hr>
<asp:Label runat="server" id="Msg" />
</Form>
</Body>
</Html>

<script language="VB" runat="server">
Sub UploadFile(sender As Object, e As EventArgs)
Dim I As Integer
Msg.Text = ""
For I = 0 To Request.Files.Count - 1
Dim File As HttpPostedFile = Request.Files(I)

If File.ContentLength > 0 Then
' 顯示上傳檔案的資訊
Msg.Text &= "檔案: " & File.FileName
Msg.Text &= ", " & File.ContentLength
Msg.Text &= ", " & File.ContentType & ""

' 儲存檔案
Dim FileSplit() As String = Split( File.FileName, "\" )
Dim FileName As String = FileSplit(FileSplit.Length-1)
File.SaveAs( Server.MapPath(FileName) )
End If
Next
End Sub
</script>

本篇文章發表於2002-06-13 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.