asp.net的上传文件，无需组件 |
|---|
|
| 2003-04-10 |
| |
<script language=""VB"" runat=""server"">
Sub UploadFile(sender As Object, e As EventArgs)
If FileUp.PostedFile.ContentLength = 0 Then
FileInfo.Visible = False
Exit Sub
Else
FileInfo.Visible = True
End If
FSize.Text = CStr(FileUp.PostedFile.ContentLength)
FName.Text = FileUp.PostedFile.FileName
Dim FileSplit() As String = Split( FileUp.PostedFile.FileName, ""\"" )
Dim FileName As String = FileSplit(FileSplit.Length-1)
FileUp.PostedFile.SaveAs( Server.MapPath(""."") & ""\Upload\"" & FileName )
Dim Exts() As String = Split( FileName, ""."" )
Dim Ext As String = LCase(Exts(Exts.Length-1))
If Ext <> ""jpg"" And Ext <> ""jpeg"" And Ext <> ""gif"" And Ext <> ""txt"" And Ext <> ""htm"" And Ext <> ""html"" Then
FDisplay.Visible = False
Else
FDisplay.Text = ""<A Target='_blank' HREF='Upload/"" & _
FileName & ""'>上传文件</A>""
End If
End Sub
</script>
<Html>
<Body BgColor=White>
<H3>上传文件<Hr></H3>
<Form Enctype=""multipart/form-data"" runat=""server"">
上传文件
<Input Type=""File"" id=""FileUp"" runat=""server""><P>
<Asp:button id=""Upload"" OnClick=""UploadFile"" Text=""Upload""
runat=""server""/>
</form><Hr>
<Div id=""FileInfo"" Visible=""False"" runat=""server"">
上传文件名 <Asp:Label id=""FName"" runat=""server""/><br>
上传文件大小 <Asp:Label id=""FSize"" runat=""server""/><br>
<Asp:Label id=""FDisplay"" runat=""server""/>
</Div>
</Body>
</Html>
|
|
| |
|
发表评论
推荐文章
关闭窗口
|
|
|
|
