'upfile.aspx <form encType="multipart/form-data" runat="server"> <INPUT id="File1" name="fileup" runat="server"> <asp:textbox id="filename" runat="server"/> <asp:botton id="fileClick" runat="server"/> </form> 'upfile.aspx.vb Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim file As HttpPostedFile = File1.PostedFile Dim FileSplit() As String = Split(file.FileName, "\") '按照"\"来分割file.FileName字符串 Dim a() As String = Split(file.FileName, ".") Dim FileName As String = FileSplit(FileSplit.Length - 1) '获取文件名称 Dim c As String = a(a.Length - 1) If file.ContentLength <> 0 And file.ContentLength <= 1000000 Then file.SaveAs("d:\Images\" & filename.text & "." & c) Else If file.ContentLength > 1000000 Then Response.Write("图片大小超过500KB!") End If End If End Sub
Dim file As HttpPostedFile = File1.PostedFile Dim FileSplit() As String = Split(file.FileName, "\") '按照"\"来分割file.FileName字符串 Dim a() As String = Split(file.FileName, ".") Dim FileName As String = FileSplit(FileSplit.Length - 1) '获取文件名称需要这么复杂吗: Dim file As HttpPostedFile = File1.PostedFile Dim FileName As String = Path.GetFileName(HttpPostedFile.FileName) '如果图片的名字中有汉字,上传就会失败'--还是要修改web.config中的设置。上面都说了。
<form encType="multipart/form-data" runat="server">
<INPUT id="File1" name="fileup" runat="server">
<asp:textbox id="filename" runat="server"/>
<asp:botton id="fileClick" runat="server"/>
</form>
'upfile.aspx.vb
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim file As HttpPostedFile = File1.PostedFile
Dim FileSplit() As String = Split(file.FileName, "\")
'按照"\"来分割file.FileName字符串
Dim a() As String = Split(file.FileName, ".")
Dim FileName As String = FileSplit(FileSplit.Length - 1) '获取文件名称
Dim c As String = a(a.Length - 1)
If file.ContentLength <> 0 And file.ContentLength <= 1000000 Then
file.SaveAs("d:\Images\" & filename.text & "." & c)
Else
If file.ContentLength > 1000000 Then
Response.Write("图片大小超过500KB!")
End If
End If
End Sub
Dim FileSplit() As String = Split(file.FileName, "\")
'按照"\"来分割file.FileName字符串
Dim a() As String = Split(file.FileName, ".")
Dim FileName As String = FileSplit(FileSplit.Length - 1) '获取文件名称需要这么复杂吗:
Dim file As HttpPostedFile = File1.PostedFile
Dim FileName As String = Path.GetFileName(HttpPostedFile.FileName)
'如果图片的名字中有汉字,上传就会失败'--还是要修改web.config中的设置。上面都说了。