|
把下面的代码保存为Upload.aspx即可运行（事先在同目录下建立一个Upload文件夹保存上传的文件，再建立一个数据库、表Upload，字段ID：自动编号，FilePath：文本型）：
  <%@Import Namespace =Namespace="System.Data"%>
 <%''''@Import Namespace="System.Data.OleDb"%> <!--Access数据库用这个-->
  <%@Import Namespace =Namespace="System.Data.SqlClient"%> <!--SQL Server数据库用这个-->
<script language="VB" runat="server">
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.L[1] [2] 下一页 |
