<html>
<body>
<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>
<Div id="FileInfo" Visible="False" runat="server">
文件名称:<asp:Label id="FName" runat="server"/><br>
文件大小:<asp:Label id="FSize" runat="server"/><br>
文件类型:<asp:Label id="FType" runat="server"/><br>
</Div>
</body>
</html>
<script Language="VB" runat="server">
Sub UpLoadFile(Sender As Object,e As EventArgs)
'如果上传的长度为0，表示没有上传成功
If FileUP.PostedFile.ContentLength=0 Then
Fileinfo.Visible=False
Exit Sub
Else
Fileinfo.Visible=True
End if
'显示上传文件的信息
FSize.Text=CStr(FileUp.PostedFile.ContentLength)
FType.Text=FileUp.PostedFile.ContentType
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(".")&"/"&FileName)
End Sub
</script>
<body>
<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>
<Div id="FileInfo" Visible="False" runat="server">
文件名称:<asp:Label id="FName" runat="server"/><br>
文件大小:<asp:Label id="FSize" runat="server"/><br>
文件类型:<asp:Label id="FType" runat="server"/><br>
</Div>
</body>
</html>
<script Language="VB" runat="server">
Sub UpLoadFile(Sender As Object,e As EventArgs)
'如果上传的长度为0，表示没有上传成功
If FileUP.PostedFile.ContentLength=0 Then
Fileinfo.Visible=False
Exit Sub
Else
Fileinfo.Visible=True
End if
'显示上传文件的信息
FSize.Text=CStr(FileUp.PostedFile.ContentLength)
FType.Text=FileUp.PostedFile.ContentType
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(".")&"/"&FileName)
End Sub
</script>
5414
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
