Asp.Net上传文件示例
来源:互联网 发布:淘宝批量添加图片 编辑:程序博客网 时间:2024/05/17 06:49
<%@Import Namespace =Namespace =Namespace =Namespace="System.Data"%>
<%'@Import Namespace="System.Data.OleDb"%> <!--Access数据库用这个-->
<%@Import Namespace =Namespace =Namespace =Namespace="System.Data.SqlClient"%> <!--SQL Server数据库用这个-->
<script language="VB" runat="server">
Sub UploadFile()Sub UploadFile()Sub UploadFile()Sub UploadFile(sender As Object, e As EventArgs)
Dim FileExt
FileExt = LCase(Right(Trim(FileUp.Value),3))
If FileExt = "gif" Or FileExt = "jpg" Or FileExt = "bmp" Or FileExt = "png" Or FileExt = "tif" Or LCase(Right(Trim(FileUp.Value),4)) = "jpeg" Then
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 )
'把文件路径写入数据库 By Dicky 2005-7-12 9:26:29
' Access数据库用这个
' Dim objCommand As OleDbCommand
' Dim objConnection As OleDbConnection
' objConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source="+Server.MapPath("Upload.mdb"))
' objCommand = New OleDbCommand("Insert Into Upload (FilePath) Values ('Upload/"+FileName+"')" , objConnection)
' Access数据库用这个
' SQL Server数据库用这个
Dim objCommand As SqlCommand
Dim objConnection As SqlConnection
objConnection = New SqlConnection("Server=localhost;Uid=sa;Pwd=;Database=Shat_edg")
objCommand = New SqlCommand("Insert Into Upload (FilePath) Values ('Upload/"+FileName+"')" , objConnection)
' SQL Server数据库用这个
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
'把文件路径写入数据库 By Dicky 2005-7-12 9:26:29
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
Response.Write("上传成功!")
Else
' Msgbox("对不起,只能上传扩展名为gif、jpg、bmp、png、tif或jpeg等图片文件!",65,"a")
Response.Write("对不起,只能上传扩展名为gif、jpg、bmp、png、tif或jpeg等图片文件!")
End If
End Sub
</script>
<Html>
<head>
<title>文件上传</title>
</head>
<Body BgColor=White>
<H3>上传文件<Hr></H3>
<Form Name="Form1" 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>
<%'@Import Namespace="System.Data.OleDb"%> <!--Access数据库用这个-->
<%@Import Namespace =Namespace =Namespace =Namespace="System.Data.SqlClient"%> <!--SQL Server数据库用这个-->
<script language="VB" runat="server">
Sub UploadFile()Sub UploadFile()Sub UploadFile()Sub UploadFile(sender As Object, e As EventArgs)
Dim FileExt
FileExt = LCase(Right(Trim(FileUp.Value),3))
If FileExt = "gif" Or FileExt = "jpg" Or FileExt = "bmp" Or FileExt = "png" Or FileExt = "tif" Or LCase(Right(Trim(FileUp.Value),4)) = "jpeg" Then
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 )
'把文件路径写入数据库 By Dicky 2005-7-12 9:26:29
' Access数据库用这个
' Dim objCommand As OleDbCommand
' Dim objConnection As OleDbConnection
' objConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source="+Server.MapPath("Upload.mdb"))
' objCommand = New OleDbCommand("Insert Into Upload (FilePath) Values ('Upload/"+FileName+"')" , objConnection)
' Access数据库用这个
' SQL Server数据库用这个
Dim objCommand As SqlCommand
Dim objConnection As SqlConnection
objConnection = New SqlConnection("Server=localhost;Uid=sa;Pwd=;Database=Shat_edg")
objCommand = New SqlCommand("Insert Into Upload (FilePath) Values ('Upload/"+FileName+"')" , objConnection)
' SQL Server数据库用这个
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
'把文件路径写入数据库 By Dicky 2005-7-12 9:26:29
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
Response.Write("上传成功!")
Else
' Msgbox("对不起,只能上传扩展名为gif、jpg、bmp、png、tif或jpeg等图片文件!",65,"a")
Response.Write("对不起,只能上传扩展名为gif、jpg、bmp、png、tif或jpeg等图片文件!")
End If
End Sub
</script>
<Html>
<head>
<title>文件上传</title>
</head>
<Body BgColor=White>
<H3>上传文件<Hr></H3>
<Form Name="Form1" 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>
- Asp.Net上传文件示例
- ASP.NET MVC处理文件上传示例
- ASP.NET 2.0使用FileUpload控件上传文件示例
- ASP.NET 2.0使用FileUpload控件上传文件示例
- ASP.NET 2.0使用FileUpload控件上传文件示例
- ASP的文件上传示例
- asp.net文件上传
- ASP.Net文件上传
- ASP.Net文件上传
- ASP.NET上传文件
- asp.net文件上传
- ASP.NET上传文件
- Asp.Net 文件上传
- asp.net上传文件
- ASP.NET上传文件
- asp.net上传文件
- asp.net文件上传
- ASP.NET上传文件
- 详细说明 foxrar.exe 病毒
- 绝对调用IE浏览器的弹窗
- Pygame之Tutorials - Import and Initialize
- 在深圳为什么能在任何地方碰到SIAS的校友呢?
- ASP.NET 加密口令
- Asp.Net上传文件示例
- [操作系统]临界区访问与“先人后己”的过河精神
- 通过HtmlInputFile控件上传文件的类
- 难眠的夜晚
- ShootSearch (基于dotlucene的开源搜索引擎)
- ShootSearch 中文分词组件(c#开源)
- 理解接口
- 文件-进程关联演示程序
- 如何度过程序员30岁以后的人生